2008-04-15 Ex 2.36 SICP (define (accumulate-n op init xs) (if (null? (car xs)) nil (cons (accumulate op init (accumulate (lambda (x xs) (cons (car x) xs)) nil xs)) (accumulate-n op init (accumulate (lambda (x xs) (cons (cdr x) xs)) nil xs)))))