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