fork download
  1. n = 5
  2. m = 3
  3.  
  4. readMatr :: IO [[Int]]
  5. readMatr = sequence . replicate n $ fmap (map read . take m . words) getLine
  6.  
  7. main = readMatr >>= print
Success #stdin #stdout 0s 6284KB
stdin
1 2 3
2 3 4
1 2 4
5 3 5
4 6 4
stdout
[[1,2,3],[2,3,4],[1,2,4],[5,3,5],[4,6,4]]