From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Tue, 3 Aug 2010 11:08:40 +0000 (+0530)
Subject: Solution to 2.35. Yet another enlightening problem
X-Git-Url: https://git.rkrishnan.org/(%5B%5E?a=commitdiff_plain;h=62c166f66e8f3470977c9a8a680eb6e2ce73a839;p=sicp.git

Solution to 2.35. Yet another enlightening problem
---

diff --git a/src/sicp/ex2_35.clj b/src/sicp/ex2_35.clj
new file mode 100644
index 0000000..0bf7f08
--- /dev/null
+++ b/src/sicp/ex2_35.clj
@@ -0,0 +1,21 @@
+(ns sicp.ex2_35
+  (:use [clojure.test]
+        [sicp [ch2-2 :only (accumulate)]]))
+
+;; Redefine count-leaves from section 2.2.2 as an accumulation:
+
+;; (define (count-leaves t)
+;;   (accumulate <??> <??> (map <??> <??>)))
+(defn count-leaves-with-accumulate [t]
+  (accumulate + 0 (map
+                   (fn [x] (if (seq? x)
+                             (count-leaves-with-accumulate x)
+                             1))
+                   t)))
+
+(deftest test-count-leaves
+  (let [foo (list (list 1 2) 3 4)]
+    (are [x y] [= x y]
+         (count-leaves-with-accumulate foo) 4
+         (count-leaves-with-accumulate (list foo)) 4
+         (count-leaves-with-accumulate (list foo foo)) 8)))
\ No newline at end of file