首页 > 代码库 > [4Clojure]解题记录-#78
[4Clojure]解题记录-#78
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))
[4Clojure]解题记录-#78
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。