src/sicp/ex2_36.rkt

   1 #lang racket
   2
   3 (require "utils.rkt"
   4          rackunit)
   5
   6 (define (accumulate-n op init seqs)
   7   (if (null? (car seqs))
   8       '()
   9       (cons (accumulate op init (map car seqs))
  10             (accumulate-n op init (map cdr seqs)))))
  11
  12 (check equal?
  13        (accumulate-n + 0 '((1 2 3) (4 5 6) (7 8 9) (10 11 12)))
  14        '(22 26 30))
  15
  16
  17 (provide accumulate-n)
  18