8 lines
181 B
Text
8 lines
181 B
Text
identityMatrix templates
|
|
n is $;
|
|
[1..$n -> [1..~$ -> 0, 1, $~..$n -> 0]] !
|
|
end identityMatrix
|
|
|
|
identity is 5 -> identityMatrix;
|
|
$identity... -> '|$(1);$(2..)... -> ', $;';|
|
|
' !
|