8 lines
202 B
Text
8 lines
202 B
Text
templates identityMatrix
|
|
def n: $;
|
|
[1..$n -> [1..~$ -> 0, 1, $~..$n -> 0]] !
|
|
end identityMatrix
|
|
|
|
def identity: 5 -> identityMatrix;
|
|
$identity... -> '|$(1);$(2..last)... -> ', $;';|
|
|
' -> !OUT::write
|