15 lines
409 B
Text
15 lines
409 B
Text
func[][] krpr a[][] b[][] .
|
|
for m = 1 to len a[][]
|
|
for p = 1 to len b[][]
|
|
r[][] &= [ ]
|
|
for n = 1 to len a[m][]
|
|
for q = 1 to len b[p][]
|
|
r[$][] &= a[m][n] * b[p][q]
|
|
.
|
|
.
|
|
.
|
|
.
|
|
return r[][]
|
|
.
|
|
print krpr [ [ 1 2 ] [ 3 4 ] ] [ [ 0 5 ] [ 6 7 ] ]
|
|
print krpr [ [ 0 1 0 ] [ 1 1 1 ] [ 0 1 0 ] ] [ [ 1 1 1 1 ] [ 1 0 0 1 ] [ 1 1 1 1 ] ]
|