13 (defn add-vect [v1 v2]
14 (make-vect (+ (xcor-vect v1)
19 (defn sub-vect [v1 v2]
20 (make-vect (- (xcor-vect v1)
25 (defn scale-vect [v s]
26 (make-vect (* s (xcor-vect v))
29 (deftest test-add-vectors
30 (let [v1 (make-vect 1 1)
32 (is (= (add-vect v1 v2) (make-vect 3 3)))))