6 lines
105 B
Factor
6 lines
105 B
Factor
|
: fib ( n -- m )
|
||
|
|
dup 2 < [
|
||
|
|
[ 0 1 ] dip [ swap [ + ] keep ] times
|
||
|
|
drop
|
||
|
|
] unless ;
|