Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge pull request #3 from tmakarios/master

Fixed _row to return a list of the correct length
  • Loading branch information...
commit 98c866cccb2338aface45cd1c285c51b284fb159 2 parents 85de4e8 + f24a801
@scravy authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/Numeric/Matrix.hs
View
2  src/Numeric/Matrix.hs
@@ -577,7 +577,7 @@ _at :: (IArray a (u Int e), IArray u e)
_at arr (i,j) = arr ! i ! j
_row, _col :: (IArray a (u Int e), IArray u e) => Int -> a Int (u Int e) -> [e]
-_row i arr = let row = arr ! i in [ row ! j | j <- [1..(snd (bounds arr))] ]
+_row i arr = let row = arr ! i in [ row ! j | j <- [1..(snd (bounds row))] ]
_col j arr = [ arr ! i ! j | i <- [1..(snd (bounds arr))] ]
_toList :: (IArray a e) => Array Int (a Int e) -> [[e]]
Please sign in to comment.
Something went wrong with that request. Please try again.