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