recursion - Clojure Koans 递归是偶数？

Question

我正在通过 Clojure Koans 工作，我正在处理递归 koans。

不明白怎么解决is-even?使用递归。练习部分地将此功能定义为:

(defn is-even? [n]
    (if (= n 0)
        true
        (__ (is-even? (dec n)))))

如果我不想使用递归，那么我会将其定义为 (defn is-even? [n] (= (mod n 2) 0))但这与练习的目的背道而驰。

Answer 1

就像 amalloy 所说的，用“不”填空。但是如果您假设参数只能为 0 或正数，则不需要另一个基本情况:dec确保你总是以 0 结束，奇数返回 false，如下所示:

(is-even? 0) ==> base case (= 0 0) ==> true.
(is-even? 1) ==> (not (is-even? (dec 1))
             ==> (not (is-even? 0))
             ==> (not true)
             ==> false
(is-even? 2) ==> (not (is-even? 1))
             ==> (not false)
             ==> true

等等。