From e185c7f44e2a20c225fba1b4ced5bce70f5e9783 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com> Date: Thu, 27 May 2010 18:15:53 +0530 Subject: [PATCH] solution to 1.40 --- src/sicp/ex1_40.clj | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src/sicp/ex1_40.clj diff --git a/src/sicp/ex1_40.clj b/src/sicp/ex1_40.clj new file mode 100644 index 0000000..741b646 --- /dev/null +++ b/src/sicp/ex1_40.clj @@ -0,0 +1,15 @@ +(ns sicp.ex1_40 + (:use [clojure.contrib test-is] + [sicp utils] + [sicp ch1_3])) + +(defn cubic [a b c] + (fn [x] (+ (cube x) + (* a (square x)) + (* b x) + c))) + +(comment +(newton-method (cubic 0 0 (* 3 3 -3)) 1.0) +;;=> 3.0000000000019176 +) -- 2.45.2