diff options
Diffstat (limited to 'coding-exercises/2/36.rkt')
| -rw-r--r-- | coding-exercises/2/36.rkt | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/coding-exercises/2/36.rkt b/coding-exercises/2/36.rkt new file mode 100644 index 0000000..abe3feb --- /dev/null +++ b/coding-exercises/2/36.rkt @@ -0,0 +1,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)))) |