5 lines
83 B
Factor
5 lines
83 B
Factor
|
: fib ( n -- m )
|
||
|
|
dup 2 < [
|
||
|
|
[ 1 - fib ] [ 2 - fib ] bi +
|
||
|
|
] unless ;
|