aboutsummaryrefslogtreecommitdiffstats
path: root/projects/Stacker/samples/fibonacci.st
diff options
context:
space:
mode:
Diffstat (limited to 'projects/Stacker/samples/fibonacci.st')
-rw-r--r--projects/Stacker/samples/fibonacci.st6
1 files changed, 6 insertions, 0 deletions
diff --git a/projects/Stacker/samples/fibonacci.st b/projects/Stacker/samples/fibonacci.st
new file mode 100644
index 0000000..d5132d8
--- /dev/null
+++ b/projects/Stacker/samples/fibonacci.st
@@ -0,0 +1,6 @@
+#
+# Fibonacci Algorithm in Stacker.
+#
+: print >d CR;
+: fibonacci RROT DUP2 + print 3 PICK -- ;
+: MAIN 0 print 1 print 44 WHILE fibonacci END ;