diff options
Diffstat (limited to 'examples/fib.ash')
| -rw-r--r-- | examples/fib.ash | 16 |
1 files changed, 16 insertions, 0 deletions
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 |