summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Numeric/Container.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/Container.hs b/lib/Numeric/Container.hs
index e9a8f22..0fecf86 100644
--- a/lib/Numeric/Container.hs
+++ b/lib/Numeric/Container.hs
@@ -203,10 +203,10 @@ instance (Container Vector a) => Container Matrix a where
203 atIndex = (@@>) 203 atIndex = (@@>)
204 minIndex m = let (r,c) = (rows m,cols m) 204 minIndex m = let (r,c) = (rows m,cols m)
205 i = (minIndex $ flatten m) 205 i = (minIndex $ flatten m)
206 in (i `div` c,(i `mod` c) + 1) 206 in (i `div` c,i `mod` c)
207 maxIndex m = let (r,c) = (rows m,cols m) 207 maxIndex m = let (r,c) = (rows m,cols m)
208 i = (maxIndex $ flatten m) 208 i = (maxIndex $ flatten m)
209 in (i `div` c,(i `mod` c) + 1) 209 in (i `div` c,i `mod` c)
210 minElement = ap (@@>) minIndex 210 minElement = ap (@@>) minIndex
211 maxElement = ap (@@>) maxIndex 211 maxElement = ap (@@>) maxIndex
212 sumElements = sumElements . flatten 212 sumElements = sumElements . flatten