diff --git a/ch01-welcome-repl-interactions.clj b/ch01-welcome-repl-interactions.clj index 9e3ed8d..c5477b5 100644 --- a/ch01-welcome-repl-interactions.clj +++ b/ch01-welcome-repl-interactions.clj @@ -1,4 +1,3 @@ - ;----- (defn average [numbers] @@ -542,10 +541,12 @@ p ;----- (letfn [(odd? [n] - (even? (dec n))) + (if (zero? n) + false + (even? (dec n)))) (even? [n] (or (zero? n) - (odd? (dec n))))] + (odd? (dec n))))] (odd? 11)) ;= true