From b22d54d1e79f635b5f42cd9a0466beb374b5d5a3 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Tue, 4 May 2010 15:26:12 +0530 Subject: [PATCH] solution to 1.29. --- src/sicp/ex1_29.clj | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/sicp/ex1_29.clj b/src/sicp/ex1_29.clj index 33a3458..cf30a23 100644 --- a/src/sicp/ex1_29.clj +++ b/src/sicp/ex1_29.clj @@ -3,12 +3,6 @@ [clojure.contrib trace test-is])) ;; simpson's rule of integration -(defn sum [term a next b] - (if (> a b) - 0 - (+ (term a) - (sum term (next a) next b)))) - (defn make-fac [k n] (cond (= k 0) 1 (= k n) 1 -- 2.45.2