RosettaCodeData/Task/Fibonacci-sequence/Forth/fibonacci-sequence-1.fth

3 lines
61 B
Forth

: fib ( n -- fib )
0 1 rot 0 ?do over + swap loop drop ;