8 lines
138 B
Text
8 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 .
|