added parts of section 2.2.3
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Mon, 2 Aug 2010 13:51:45 +0000 (19:21 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Mon, 2 Aug 2010 13:51:45 +0000 (19:21 +0530)
src/sicp/ch1_2.clj
src/sicp/ch2_2.clj

index 102195314f0cf1364817af01005cfeb1569144d0..bcf0dbab1e7145a2fe1af365f1266bcf08f44dfd 100644 (file)
@@ -1,5 +1,5 @@
 (ns sicp.ch1-2
-  (:use [sicp utils]
+  (:use [sicp.utils :only (square)]
        [clojure.contrib.math :only (sqrt expt)]
        [clojure.contrib.trace :only (dotrace)]))
 
     (mygcd b (rem a b))))
 
 ;;; section 1.2.6 Primality testing.
-(defn prime? [n]
-  (= (smallest-divisor n) n))
-
-(defn smallest-divisor [n]
-  (find-divisor n 2))
+(defn divides? [a b]
+  (= (rem b a) 0))
 
 (defn find-divisor [n test-divisor]
   (cond (> (square test-divisor)  n) n
        (divides? test-divisor n) test-divisor
        :else (find-divisor n (inc test-divisor))))
 
-(defn divides? [a b]
-  (= (rem b a) 0))
+(defn smallest-divisor [n]
+  (find-divisor n 2))
+
+(defn prime? [n]
+  (= (smallest-divisor n) n))
+
 
 ;; fermat's little theorem
 (defn expmod [base exp m]
        :else (rem (* base (expmod base (dec exp) m))
                   m)))
 
-(defn fermat-test [n]
-  (try-it (+ 1 (rand-int (- n 1))) n))
-
 (defn try-it [a n]
   (= a (expmod a n n)))
 
+(defn fermat-test [n]
+  (try-it (+ 1 (rand-int (- n 1))) n))
+
 (defn fast-prime? [n times]
   (cond (= times 0) true
        (fermat-test n) (fast-prime? n (dec times))
index e0107f588bee0249443ab988173dd35443c6dbdd..21d9f33bdb98508296ed93a20f9f9d0bc0e55cdb 100644 (file)
@@ -1,5 +1,6 @@
-(ns sicp.ch2_2
-  (:refer-clojure :exclude (map)))
+(ns sicp.ch2-2
+  (:refer-clojure :exclude (map))
+  (:use (sicp [ch1-2 :only (fib)])))
 
 (cons 1
       (cons 2
         (if (seq? sub-tree)
           (scale-tree-with-map sub-tree factor)
           (* sub-tree factor)))
-       tree))
\ No newline at end of file
+       tree))
+
+;;; 2.2.3
+(defn sum-odd-squares [tree]
+  (cond (nil? tree) 0
+       (not (seq? tree)) (if (odd? tree)
+                           ((fn [x] (* x x)) tree)
+                           0)
+       :else (+ (sum-odd-squares (first tree))
+                (sum-odd-squares (next tree)))))
+
+(defn even-fibs [n]
+  (letfn [(next-fib [k]
+                   (if (> k n)
+                     nil
+                     (let [f (fib k)]
+                       (if (even? f)
+                         (cons f (next-fib (+ k 1)))
+                         (next-fib (+ k 1))))))]
+    (next-fib 0)))
+
+(map #(* % %) (list 1 2 3 4 5))
+
+(defn myfilter-1 [pred? xs]
+  (cond (nil? xs) nil
+       (not (seq? xs)) (if (pred? xs)
+                         (list xs)
+                         ())
+       :else (concat (myfilter-1 pred? (first xs))
+                     (myfilter-1 pred? (next xs)))))
+
+(defn myfilter-2 [pred? xs]
+  (cond (nil? xs) nil
+       (pred? (first xs)) (cons (first xs)
+                                (myfilter-2 pred? (next xs)))
+       :else (myfilter-1 pred? (next xs))))
+
+;; accumulate
+(defn accumulate [op init xs]
+  (if (nil? xs)
+    init
+    (op (first xs)
+       (accumulate op init (next xs)))))
+
+(defn enumerate-interval
+  ([high]
+     (enumerate-interval 0 high))
+  ([low high]
+     (if (> low high)
+       nil
+       (cons low (enumerate-interval (+ low 1) high)))))
\ No newline at end of file