习题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]
  (accumulate (fn [this-coeff higher-terms] (* x  (+ this-coeff  higher-terms))) 0 coefficient-sequence))

唉，唯一的缺陷就是a0要特殊处理。这个问题，我一直在代码层面琢磨思考，怎么也想不出解决方法。昨天晚上