Gitiles
Code Review Sign In
gerrit-public.fairphone.software / toolchain / llvm-project / 4bbf66b7a27e5ed5c3bb563cd1d0dd28ca6201c2 / . / llvm / projects / Stacker / samples / fibonacci.st
blob: d5132d8bbea30c0107da185e0074e22a82ac467d [file] [log] [blame]
Chris Lattner1a12f7c2003-11-23 17:55:19 +0000[diff] [blame]1#
2# Fibonacci Algorithm in Stacker.
3#
4: print >d CR;
5: fibonacci RROT DUP2 + print 3 PICK -- ;
6: MAIN 0 print 1 print 44 WHILE fibonacci END ;