RosettaCodeData/Task/Fibonacci-sequence/Retro/fibonacci-sequence-2.retro

3 lines
57 B
Plaintext

: fib ( n-N )
[ 0 1 ] dip [ over + swap ] times drop ;