8 lines
163 B
Text
8 lines
163 B
Text
: fibon \ n -- fib(n)
|
|
>r 0 1
|
|
( tuck n:+ ) \ fib(n-2) fib(n-1) -- fib(n-1) fib(n)
|
|
r> n:1- times ;
|
|
|
|
: fib \ n -- fib(n)
|
|
dup 1 n:= if 1 ;; then
|
|
fibon nip ;
|