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