X-Git-Url: http://gitweb.michael.orlitzky.com/?p=numerical-analysis.git;a=blobdiff_plain;f=src%2FLinear%2FMatrix.hs;h=054bb6e3afac2777ef16e200ff64b9c60a9fd3fd;hp=660330245b330b840bcb848af512b7d6561e217f;hb=b64e8d2a0ef24e880265b9ba4997c3d4eb995570;hpb=91069005ec9f5249efe64cb96fb84fbbd70aad25 diff --git a/src/Linear/Matrix.hs b/src/Linear/Matrix.hs index 6603302..054bb6e 100644 --- a/src/Linear/Matrix.hs +++ b/src/Linear/Matrix.hs @@ -816,11 +816,11 @@ colzipwith f c1 c2 = -- Examples: -- -- >>> let m = fromList [[1,2],[3,4]] :: Mat2 Int --- >>> matmap (^2) m +-- >>> map2 (^2) m -- ((1,4),(9,16)) -- -matmap :: (a -> b) -> Mat m n a -> Mat m n b -matmap f (Mat rows) = +map2 :: (a -> b) -> Mat m n a -> Mat m n b +map2 f (Mat rows) = Mat $ V.map g rows where g = V.map f