Learning-SICP 趣题 #2.
解题报告

(define (reduce op initial sequence)
  (if (null? sequence)
      initial
      (reduce op (op initial (car sequence)) (cdr sequence))))