changed the name `cubert' to a saner name `cuberoot'.
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 25 Mar 2010 04:05:11 +0000 (09:35 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 25 Mar 2010 04:05:11 +0000 (09:35 +0530)
chapter1/ch1_1.clj

index 118022ecf9a3a0a2abae4b67dc7a47cff48e4375..d5eb7317bd6c24bc11f202ce46ff366e7d084c10 100644 (file)
@@ -248,17 +248,17 @@ user> (sqrt 81)
     (cubert-iter new-guess (improve new-guess x)
                 x)))
 
-(defn cubert [x]
+(defn cuberoot [x]
   (cubert-iter x 1.0 x))
 
-user> (cubert (cube 2))
+user> (cuberoot (cube 2))
 2.000000000012062
-user> (cubert (cube 10))
+user> (cuberoot (cube 10))
 10.000000000000002
-user> (cubert (cube 9))
+user> (cuberoot (cube 9))
 9.000000000053902
-user> (cubert (cube 0.001))
+user> (cuberoot (cube 0.001))
 0.001000000000000962
-user> (cubert (cube 0.0001))
+user> (cuberoot (cube 0.0001))
 1.000000000000001E-4
-user> 
\ No newline at end of file
+user>