Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (25 sloc) 273 Bytes
recfib [
[small] []
[-- dup --]
[+]
binrec
] ==
iterfib [
--
0 1 rolldown
[ dup swapd + ] times
] ==
fib [
0 1
[200 <]
[
dup swapd +
dup tostr "Fibonacci number: " swap concat puts
] while
pop pop
] ==
factorial [
[small] []
[dup --] [*]
linrec
] ==