Gitiles
Code Review Sign In
gerrit-public.fairphone.software / fp2-dev / platform / external / llvm / ba4733d901b1c2b994f66707657342b8c81c92bc / . / projects / Stacker / samples / fibonacci.st
blob: d5132d8bbea30c0107da185e0074e22a82ac467d [file] [log] [blame]
Chris Lattner9d014e72003-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 ;