From 180b6ab7c204ddf3a8aa2b9b022085e6a96ff99a Mon Sep 17 00:00:00 2001 From: Suleyman Farajli Date: Tue, 7 Jan 2025 02:24:19 +0400 Subject: program name changed to 'ash' --- examples/fib.ash | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 examples/fib.ash (limited to 'examples/fib.ash') diff --git a/examples/fib.ash b/examples/fib.ash new file mode 100644 index 0000000..bf2b90d --- /dev/null +++ b/examples/fib.ash @@ -0,0 +1,16 @@ +# Print out given number of elements in the Fibonacci sequence, 46 is the max value +define fib + var lim push lim + var a 1 push a + var b 1 push b + pull lim while dup 0 > do + pull a dump + pull b dup + pull a + + push b + push a + 1 - + done +end + +10 fib -- cgit v1.2.3