10 lines
169 B
Text
10 lines
169 B
Text
beads 1 program 'Identity matrix'
|
|
|
|
var
|
|
id : array^2 of num
|
|
n = 5
|
|
|
|
calc main_init
|
|
loop from:1 to:n index:i
|
|
loop from:1 to:n index:j
|
|
id[i,j] = 1 if i == j else 0
|