Implement matrixSum

tp/mine-sweeper/main.hs

@@ -73,6 +73,9 @@ gridMoves m =
     let allMov = tail $ cartesianProduct (.) hMov wMov in
     map (\f -> f m) allMov
 
+matrixSum::Mat -> Mat -> Mat
+matrixSum m1 m2 = zipWith (zipWith (+)) m1 m2
+
 
 -- Testing data