4 lines
72 B
Forth
4 lines
72 B
Forth
: fib ( n -- fib )
|
|
0 1 rot 0 do
|
|
over + swap
|
|
loop drop ;
|