RosettaCodeData/Task/Fibonacci-sequence/PicoLisp/fibonacci-sequence-1.l
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
81 B
Text

(de fibo (N)
(if (>= 2 N)
1
(+ (fibo (dec N)) (fibo (- N 2))) ) )