Up: Vector addition [Top][Contents]
… in Scheme as
my-vector-add
(define (my-vector-add vector . vectors) (if (null? vectors) vector (map + vector (apply my-vector-add vectors))))