simple vector addition... added by szablica on Tue Feb 26 21:48:30 2013
(use srfi-1) (define-record vect x y) (define (vect-add . vs) (define (add-two a b) (make-vect (+ (vetc-x a) (vetc-x b)) (+ (vetc-y a) (vetc-y b)))) (fold add-two zero-vect vs))
(use srfi-1) (define-record vect x y) (define (vect-add . vs) (define (add-two a b) (make-vect (+ (vetc-x a) (vetc-x b)) (+ (vetc-y a) (vetc-y b)))) (fold add-two zero-vect vs))