solution to 1.40

diff --git a/src/sicp/ex1_40.clj b/src/sicp/ex1_40.clj
new file mode 100644 (file)
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
+)