[4Clojure]解题记录-#78

时间：2014-11-27 21:48:11 阅读：197 评论：0 收藏：0 [点我收藏+]

Reimplement Trampoline

Difficulty:	Medium
Topics:	core-functions

Reimplement the function described in "Intro to Trampoline".

(= (letfn [(triple [x] #(sub-two (* 3 x)))

(sub-two [x] #(stop?(- x 2)))

(stop? [x] (if (> x 50) x #(triple x)))] (__ triple 2)) 82)

(= (letfn [(my-even? [x] (if (zero? x) true #(my-odd? (dec x))))

(my-odd? [x] (if (zero? x) false #(my-even? (dec x))))]

(map (partial __ my-even?) (range 6))) [true false true false true false])

解长度 41：

#(loop [t (apply % %&)] (if (fn? t) (recur (t)) t))

原文地址：http://www.cnblogs.com/zjfu/p/4127172.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行