RosettaCodeData/Task/Identity-matrix/Haskell/identity-matrix-1.hs

2 lines
60 B
Haskell
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
matI n = [ [fromEnum $ i == j | i <- [1..n]] | j <- [1..n]]