Solutions to 4.27, 4.28 and 4.29.

[sicp.git] / src / sicp / ex2_36.rkt

diff --git a/src/sicp/ex2_36.rkt b/src/sicp/ex2_36.rkt
index 658b860011fed5b78b458d8c80dcd6da7cdf2e55..94a276c59028b861b94d42876982b5b18e261a2e 100644 (file)
--- a/src/sicp/ex2_36.rkt
+++ b/src/sicp/ex2_36.rkt
@@ -1,6 +1,7 @@
 #lang racket
 
-(require "utils.rkt")
+(require "utils.rkt"
+         rackunit)
 
 (define (accumulate-n op init seqs)
   (if (null? (car seqs))
@@ -8,6 +9,10 @@
       (cons (accumulate op init (map car seqs))
             (accumulate-n op init (map cdr seqs)))))
 
+(check equal? 
+       (accumulate-n + 0 '((1 2 3) (4 5 6) (7 8 9) (10 11 12)))
+       '(22 26 30))
+       
+
 (provide accumulate-n)
 
-;; (accumulate-n + 0 '((1 2 3) (4 5 6) (7 8 9) (10 11 12)))
\ No newline at end of file