习题2.34

这个题目，我真的费了好多时间，总结起来，就是对公式理解不到，好不容易理解了公式，又出现计算结果有偏差的情况，反复思考折腾代码，都毫无结果。于是先写了一版自己理解的公式，按照自己的思路写，结果无误，但是无法按照题目要求改造好。先看看这版代码。

(defn horner [x coefficient-sequence]
(defn ttt[x y]
  (cond (empty? y) 0
    :else (* x (+ (ttt x (rest y)) (first y) ))
    ))
(+ (ttt x (rest coefficient-sequence)) (first coefficient-sequence))
)

很典型的实现逻辑 没有什么复杂的技巧，之所以要定义内部函数，是因为我理解的公式，a0需要特殊处理。再看看另外一个版本，跟题目要求很接近。

;;(+ 1 (horner 2 (list  3 0 5 0 1))) 计算结果正确版本
(defn horner [x coefficient-sequence