尾递归版,斐波那契数列
尾递归版
(def f (fn fb
[n a1 a2]
(if (< n 2)
a1
(fb (- n 1) a2 (+ a1 a2) )
)
))
(map #(f % 1 1) [1 2 3 4 5 6 7])
尾递归版
(def f (fn fb
[n a1 a2]
(if (< n 2)
a1
(fb (- n 1) a2 (+ a1 a2) )
)
))
(map #(f % 1 1) [1 2 3 4 5 6 7])