32 lines
667 B
Text
32 lines
667 B
Text
class IdentityMatrix {
|
|
function : Matrix(n : Int) ~ Int[,] {
|
|
array := Int->New[n,n];
|
|
|
|
for(row:=0; row<n; row+=1;){
|
|
for(col:=0; col<n; col+=1;){
|
|
if(row = col){
|
|
array[row, col] := 1;
|
|
}
|
|
else{
|
|
array[row,col] := 0;
|
|
};
|
|
};
|
|
};
|
|
return array;
|
|
}
|
|
|
|
function : PrintMatrix(array : Int[,]) ~ Nil {
|
|
sizes := array->Size();
|
|
for(row:=0; row<sizes[0]; row+=1;){
|
|
for(col:=0; col<sizes[1]; col+=1;){
|
|
value := array[row,col];
|
|
"{$value} \t"->Print();
|
|
};
|
|
'\n'->PrintLine();
|
|
};
|
|
}
|
|
|
|
function : Main(args : String[]) ~ Nil {
|
|
PrintMatrix(Matrix(5));
|
|
}
|
|
}
|