(accumulate-n + 0 (list (list 1 2 3) (list 4 5 6) (list 7 8 9) (list 10 11 12) ))
(defn accumulate-n [op init seqs]
(if (empty? (first seqs))
nil
(cons (accumulate op init (map first seqs ) ) (accumulate-n op init (map rest seqs)) )
))
习题2.36
最新推荐文章于 2024-10-20 00:58:54 发布