RosettaCodeData/Task/Y-combinator/PicoLisp/y-combinator-3.l

10 lines
141 B
Plaintext

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