7 lines
166 B
Text
7 lines
166 B
Text
|
identity: procedure (A, n);
|
||
|
|
declare A(n,n) fixed controlled;
|
||
|
|
declare (i,n) fixed binary;
|
||
|
|
allocate A; A = 0;
|
||
|
|
do i = 1 to n; A(i,i) = 1; end;
|
||
|
|
end identity;
|