Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn v2d+ [v1 v2] (map + v1 v2))
- (defn v2d- [v1 v2] (map - v1 v2))
- (defn v2d*s [v s] (map #(* % s) v))
- (defn v2d*v2d [v1 v2] (reduce + (map * v1 v2)))
- (defn v2d-len [v] (Math/sqrt (reduce + (map #(* % %) v))))
Advertisement
Add Comment
Please, Sign In to add comment
