67 lines
1.3 KiB
Text
67 lines
1.3 KiB
Text
func[][] smul m[][] a .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] *= a
|
|
.
|
|
return m[][]
|
|
.
|
|
func[][] sdiv m[][] a .
|
|
return smul m[][] (1 / a)
|
|
.
|
|
func[][] sadd m[][] a .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] += a
|
|
.
|
|
return m[][]
|
|
.
|
|
func[][] ssub m[][] a .
|
|
return sadd m[][] -a
|
|
.
|
|
func[][] spow m[][] a .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] = pow m[i][j] a
|
|
.
|
|
return m[][]
|
|
.
|
|
func[][] mmul m[][] n[][] .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] *= n[i][j]
|
|
.
|
|
return m[][]
|
|
.
|
|
func[][] mdiv m[][] n[][] .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] /= n[i][j]
|
|
.
|
|
return m[][]
|
|
.
|
|
func[][] madd m[][] n[][] .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] += n[i][j]
|
|
.
|
|
return m[][]
|
|
.
|
|
func[][] msub m[][] n[][] .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] -= n[i][j]
|
|
.
|
|
return m[][]
|
|
.
|
|
func[][] mpow m[][] n[][] .
|
|
for i to len m[][] : for j to len m[i][]
|
|
m[i][j] = pow m[i][j] n[i][j]
|
|
.
|
|
return m[][]
|
|
.
|
|
m[][] = [ [ 5 3 ] [ 4 2 ] ]
|
|
n[][] = [ [ 1 2 ] [ 7 8 ] ]
|
|
#
|
|
print smul m[][] 2
|
|
print sdiv m[][] 2
|
|
print sadd m[][] 2
|
|
print ssub m[][] 2
|
|
print spow m[][] 2
|
|
print mmul m[][] n[][]
|
|
print mdiv m[][] n[][]
|
|
print madd m[][] n[][]
|
|
print msub m[][] n[][]
|
|
print mpow m[][] n[][]
|