13 lines
193 B
Text
13 lines
193 B
Text
|
(let fib (fun (n) {
|
||
|
|
(let f (fun (n)
|
||
|
|
(if (< n 2)
|
||
|
|
n
|
||
|
|
(+ (f (- n 1)) (f (- n 2))))))
|
||
|
|
(f n) }))
|
||
|
|
|
||
|
|
(import std.List)
|
||
|
|
|
||
|
|
(list:forEach
|
||
|
|
(list:iota 0 20)
|
||
|
|
(fun (n) (print (fib n))))
|