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