Beat this short Arc snippet using map with a list comprehension:
(def vector-dot-product (vector-1 vector-2)
(map [* _1 _2] vector-1 vector-2))
That's from Light Makes Right the raytracer, I think.
Equivalent python: def vectorDotProduct(vector1, vector2):
return [x * y for x, y in zip(vector1, vector2)]
I'm pretty sure that the Lisp snippet above is neither harder to decipher nor longer. Though maybe that's just because Arc is nice.