mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-10-30 16:17:05 +00:00
9d014e70bb
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@10181 91177308-0d34-0410-b5e6-96231b3b80d8
7 lines
144 B
Smalltalk
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 ;
|