9 lines
138 B
Text
9 lines
138 B
Text
|
: identity-matrix
|
||
|
|
dup iota 'A set
|
||
|
|
|
||
|
|
: i.(*) A in ;
|
||
|
|
[1] swap append reverse A swap reshape 'i. apply
|
||
|
|
;
|
||
|
|
|
||
|
|
5 identity-matrix .
|