| commit | 9d014e70bb572d8b9250c9f2089ef2a67caa3727 | [log] [tgz] |
|---|---|---|
| author | Chris Lattner <sabre@nondot.org> | Sun Nov 23 17:55:19 2003 +0000 |
| committer | Chris Lattner <sabre@nondot.org> | Sun Nov 23 17:55:19 2003 +0000 |
| tree | 25f48f63d65c7361cf42bfb7f38a21c11a0f6a30 | |
| parent | 900f12b9f0784d0cf014e384d2d44099cb58166e [diff] [blame] |
Initial checkin of stacker samples git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@10181 91177308-0d34-0410-b5e6-96231b3b80d8
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 ;