众所周知,clojure基于jvm,可以在不做引入的情况下调用java.lang下面的任意对象,但是,在调用交互中
需要注意clojure中的自定义类型,下面我们用代码来说明一下。
下面的例子是采用牛顿法求平方根 的clojure实现:
user> (defn average [x y] (/ (+ x y) 2)) ;定义求平均值函数 user> (defn good-enough? [guess x] ;定义平方根的精确度 (< (Math/abs (- (* guess guess) x)) 0.001)) user> (defn sqrt-iter [guess x] ;定义求平方根的函数 (loop [g guess] (if (good-enough? g x) g (recur (average g (/ x g)))))
上面代码看着没有任何问题,但是运行时会抛出abs的参数异常,为什么呢?
问题出在(/ x g)这儿,clojure中的除法机制是如果无法整除,返回值默认是分数(clojure.lang.Ratio),而
java.lang.Math中的abs方法接收的参数没有这个类型,所以会抛出abs的参数异常。
我们把除法的返回值强制转换为小数后,程序就能够正常运行了:
user> (defn sqrt-iter [guess x] (loop [g guess] (if (good-enough? g x) g (recur (average g (double (/ x g))))))) user> (sqrt-iter 1 9) 3.00009155413138