RosettaCodeData/Task/Kronecker-product/Factor/kronecker-product.factor
2023-07-01 13:44:08 -04:00

7 lines
193 B
Factor

USING: kernel math.matrices.extras prettyprint ;
{ { 1 2 } { 3 4 } }
{ { 0 5 } { 6 7 } }
{ { 0 1 0 } { 1 1 1 } { 0 1 0 } }
{ { 1 1 1 1 } { 1 0 0 1 } { 1 1 1 1 } }
[ kronecker-product . ] 2bi@