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