习题2.37

部分代码有使用以前题目写过的，我没有复制过来。先看看代码

(def w (list (list 1 2 3 4) (list 4 5 6 6) (list 6 7 8 9) ))
(def v (list 1 2 3 4))
(defn dot-product [v1 v2](accumulate + 0 (map * v1 v2) ))

(defn matrix-*-vector[m v]
  (map (fn [v2] (dot-product v v2))  m)
  )

(defn transpose [mat]
  (accumulate-n cons nil  mat)
   )

(defn matrix-*matrix [m n]
  (let [cols (transpose n)]
 (map (fn [v2] (matrix-*-vector cols v2))   m))
 )

如果对矩阵运算非常熟悉，这段代码非常容易补足，略微思考一下就行。需要注意的是，这道题的map，可以使用原生语言提供的，反而不能使用以前题目中自己写的map。代码中的w 和v是用来测试的