add Vector sum function

Anut-py · Oct 16, 2023 · 64619c1 · 64619c1
1 parent e48056e
commit 64619c1
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Raylib/Util/Math.hs b/src/Raylib/Util/Math.hs
@@ -307,6 +307,10 @@ class Vector a where
   -- | Max value for each pair of components
   vectorMax :: a -> a -> a
   vectorMax v1 v2 = fromList $ zipWith max (asList v1) (asList v2)
+
+  -- | sum of vectors
+  vectorSum :: Foldable t => t a -> a
+  vectorSum = foldl' (|+|) zero 
 
 instance Vector Vector2 where
   asList (Vector2 x y) = [x, y]