aboutsummaryrefslogtreecommitdiff
path: root/docs/samples.fs
blob: 33714534d50abb79d03d77aa4dea83b82e7557b7 (plain)
1
2
: fibonacci dup 2 < if drop 1 else dup 2 - recurse swap 1 - recurse + then ;
: fibnums for i fibonacci u. next ;