RosettaCodeData/Task/Anonymous-recursion/Wart/anonymous-recursion.wart

8 lines
210 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
def (fib n)
if (n >= 0)
(transform n :thru (afn (n)
(if (n < 2)
n
(+ (self n-1)
(self n-2)))))