examples till ex 2.33.
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Mon, 2 Aug 2010 18:41:26 +0000 (00:11 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Mon, 2 Aug 2010 18:41:26 +0000 (00:11 +0530)
src/sicp/ch2_2.clj

index 21d9f33bdb98508296ed93a20f9f9d0bc0e55cdb..30fd55bdbd9cf2d7c221d3fc41c42585a2976883 100644 (file)
@@ -1,6 +1,7 @@
 (ns sicp.ch2-2
   (:refer-clojure :exclude (map))
-  (:use (sicp [ch1-2 :only (fib)])))
+  (:use [sicp [ch1-2 :only (fib)]]
+        [clojure.test]))
 
 (cons 1
       (cons 2
   ([low high]
      (if (> low high)
        nil
-       (cons low (enumerate-interval (+ low 1) high)))))
\ No newline at end of file
+       (cons low (enumerate-interval (+ low 1) high)))))
+
+;; same as flatten/fringe
+(defn enumerate-tree [tree]
+  (cond (nil? tree) nil
+        (not (seq? tree)) (list tree)
+        :else (concat (enumerate-tree (first tree))
+                      (enumerate-tree (next tree)))))
+
+(defn square [x] (* x x))
+
+;; define sum of odd squares in terms of myfilter-2, enumerate, accumulate
+(defn sum-of-odd-squares [tree]
+  (->> tree
+       (enumerate-tree)
+       (filter odd?)
+       (map square)
+       (accumulate + 0)))
+
+(deftest test-sum-of-odd-squares
+  (is [= (sum-of-odd-squares '((1) (2) (3 4) ((5) (((6) (7)) (8)))))
+         (reduce + (map #(* % %) (filter odd? (range 1 9))))]))
+
+(defn even-fibs-new [n]
+  (->> n
+       (enumerate-interval ,,,)
+       (map fib ,,,)
+       (filter even? ,,,)
+       (accumulate cons nil ,,,)))
+
+(defn list-fib-squares [n]
+  (->> n
+       (enumerate-interval ,,,)
+       (map fib ,,,)
+       (map square ,,,)
+       (accumulate cons nil ,,,)))
+
+(defn product-of-squares-of-odd-elements [sequence]
+  (accumulate *
+              1
+              (map square
+                   (filter odd? sequence))))
+
+;; note how beautiful and clear the clojure ->> macro is!
+(defn product-of-squares-of-odd-elements [sequence]
+  (->> sequence
+       (filter odd? ,,,)
+       (map square ,,,)
+       (accumulate * 1 ,,,)))
+