chickadee » math-utils » vector-apply

(vector-apply FUNC [VEC1 VEC2 VEC...]) -> (vector-of 'a)procedure
FUNC
('t1 't2 ... -> 'a ; .
VEC#
(vector-of 't#) ; .

Must be same vector-length.

(import (only (math-utils vector) vector-apply))

(define (vector-mul . vs) (apply vector-apply * vs))
(define (vector-add . vs) (apply vector-apply + vs))