RosettaCodeData/Task/Y-combinator/PicoLisp/y-combinator-3.l
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

9 lines
141 B
Text

# Fibonacci
(de fibo (F)
(curry (F) (N)
(if (> 2 N)
1
(+ (F (dec N)) (F (- N 2))) ) ) )
: ((Y fibo) 22)
-> 28657