Anonymous user
Fibonacci sequence: Difference between revisions
→{{header|Forth}
(Forth) |
|||
Line 34:
END FUNCTION</qbasic>
=={{header|Forth}}==
: fib ( n -- fib )
0 1 rot 0 do over + swap loop drop ;
|
(Forth) |
|||
Line 34:
END FUNCTION</qbasic>
=={{header|Forth}}==
: fib ( n -- fib )
0 1 rot 0 do over + swap loop drop ;
|