projects
/
oota-llvm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d5132d8bbea30c0107da185e0074e22a82ac467d
[oota-llvm.git]
/
projects
/
Stacker
/
samples
/
fibonacci.st
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 ;