习题2.35

2.35早早完成了，一直攒着想喝2.34一起发。先贴代码，再讲讲自己折腾的时候遇到的问题。

;;旧版
(defn count-leaves [x]
  (cond
        (not (seq? x))  1
        (empty? x) 0
        :else (+ (count-leaves (first x)) (count-leaves (rest x)) )
        )

  )
;;新版
(def x (cons (list 1 2) (list 3 4)))
(def x (cons (list 1 (list 2 6 7)) (list 3 (list 4 5))))

(defn cons2[x y](cond (not (seq? x)) (cons x y) (empty? x) y :else (concat (cons2 (first x)  (cons2 (rest x) y)))))

(defn map2 [p sequences]
  (accumulate (fn [x y] (if (= x nil) nil (p x y) ) ) nil sequences)
)

(defn count-leaves2 [x]
  (accumulate (fn [x y] (+ y 1))  0 (map2 cons2  x )))

在编写的过程中，犯了一个很严重的错误，导致消耗了我2个小时，就是使用了系统原生的map方法，而不是2.33的map方法，导致执行一直出错。

解决的思路也一直在变，最初想在匿名函数中迭代，尝试了下，发现没有办法实现。于是就回归map返回所有叶子节点。在map中也是因为无法递归，无法将树转换为一维list，想了想，定义了cons2方法，可是用系统原生 的map，无论如何调整，都无法把树形结构改成list。忽然想到可能是语言实现层面的差异，于是使用2.33中的map，发现居然一次性就成功了。代码马上就跑出了正确的结果，为了以防万一，还测试了几个特别复杂的结构，均正确计算出了结果。