diff options
| -rw-r--r-- | examples/fib.gorth | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/examples/fib.gorth b/examples/fib.gorth new file mode 100644 index 0000000..d044d85 --- /dev/null +++ b/examples/fib.gorth @@ -0,0 +1,14 @@ +# 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 |