diff options
-rw-r--r-- | lib/Numeric/Container.hs | 4 |
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 |