【SICP练习】65 练习2.36



练习2.36

虽然accumulate正在变得越来越复杂，但我还并未完全领悟到它的深刻意义。不过直觉告诉对于序列的序列，我们要做的是依次取出它每个序列的第一个元素。此方法来源于网络，我一直都是想着用lambda来写，最后感觉太复杂了。没想到一个map就解决了问题。

Lisp中的高阶函数果然不仅仅是函数那么简单，它能做的真是太多了。抽象也不是一般的抽象。简简单单的一个(map car seqs)便能把序列中的序列的第一个元素计算出来。有了这个技巧题目自然就有了答案。

(define (accumulate-n op init seqs)

   (if (null? (car seqs))

      ‘()

       (cons (accumulate op init (map car seqs))

             (accumulate-n op init (map cdrseqs)))))