RosettaCodeData/Task/Fibonacci-sequence/Min/fibonacci-sequence.min

6 lines
69 B
Plaintext

(
(2 <)
(pred (1 0 (over + swap)) dip times pop)
unless
) ^fib