blob: abe3feba27a83a8b4c23a8f2f32e7f7e95be651a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#lang racket
(require "../../shared/lists.rkt")
(define (accumulate-n op init seqs)
(if (null? (car seqs))
'()
(cons (accumulate op init (map car seqs))
(accumulate-n op init (map cdr seqs)))))
(define test-n (list (list 1 2 3) (list 4 5 6) (list 7 8 9) (list 10 11 12)))
((lambda ()
(display "testing")
(newline)
(display (accumulate-n + 0 test-n))))
|
