Kronecker product: Difference between revisions

</pre>

=={{header|EasyLang}}==

{{trans|Lua}}

<syntaxhighlight>

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 ] ]

</syntaxhighlight>

{{out}}

<pre>

[

[ 0 5 0 10 ]

[ 6 7 12 14 ]

[ 0 15 0 20 ]

[ 18 21 24 28 ]

]

[

[ 0 0 0 0 1 1 1 1 0 0 0 0 ]

[ 0 0 0 0 1 0 0 1 0 0 0 0 ]

[ 0 0 0 0 1 1 1 1 0 0 0 0 ]

[ 1 1 1 1 1 1 1 1 1 1 1 1 ]

[ 1 0 0 1 1 0 0 1 1 0 0 1 ]

[ 1 1 1 1 1 1 1 1 1 1 1 1 ]

[ 0 0 0 0 1 1 1 1 0 0 0 0 ]

[ 0 0 0 0 1 0 0 1 0 0 0 0 ]

[ 0 0 0 0 1 1 1 1 0 0 0 0 ]

]