fix recursive odd?/even?

cemerick · cemerick · commit bcc7c5886298 · 2013-09-09T06:48:24.000-04:00
diff --git 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
 
