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