10 lines
196 B
Haskell
10 lines
196 B
Haskell
*Main> putStr $ showMat $ matId 9
|
|
1 0 0 0 0 0 0 0 0
|
|
0 1 0 0 0 0 0 0 0
|
|
0 0 1 0 0 0 0 0 0
|
|
0 0 0 1 0 0 0 0 0
|
|
0 0 0 0 1 0 0 0 0
|
|
0 0 0 0 0 1 0 0 0
|
|
0 0 0 0 0 0 1 0 0
|
|
0 0 0 0 0 0 0 1 0
|
|
0 0 0 0 0 0 0 0 1
|