1
0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-10-30 07:22:55 +01:00
llvm-mirror/projects/Stacker/samples/fibonacci.st
Chris Lattner 4a737afef2 Initial checkin of stacker samples
llvm-svn: 10181
2003-11-23 17:55:19 +00:00

7 lines
144 B
Smalltalk

#
# Fibonacci Algorithm in Stacker.
#
: print >d CR;
: fibonacci RROT DUP2 + print 3 PICK -- ;
: MAIN 0 print 1 print 44 WHILE fibonacci END ;