RosettaCodeData/Task/Fibonacci-sequence/PicoLisp/fibonacci-sequence-1.l

5 lines
81 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(de fibo (N)
(if (>= 2 N)
1
(+ (fibo (dec N)) (fibo (- N 2))) ) )