src/sicp/ex2_36.rkt

   1 #lang racket
   2
   3 (require "utils.rkt")
   4
   5 (define (accumulate-n op init seqs)
   6   (if (null? (car seqs))
   7       '()
   8       (cons (accumulate op init (map car seqs))
   9             (accumulate-n op init (map cdr seqs)))))
  10
  11 (provide accumulate-n)
  12
  13 ;; (accumulate-n + 0 '((1 2 3) (4 5 6) (7 8 9) (10 11 12)))