From: Ramakrishnan Muthukrishnan Date: Tue, 4 May 2010 09:56:12 +0000 (+0530) Subject: solution to 1.29. X-Git-Url: https://git.rkrishnan.org/pf/content/en/seg/biz/cyclelanguage?a=commitdiff_plain;h=b22d54d1e79f635b5f42cd9a0466beb374b5d5a3;p=sicp.git solution to 1.29. --- 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