11 lines
196 B
Haskell
11 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
|