Kronecker product: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added whitespace, added a couple of comments.) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 282:
0 0 0 0 1 1 1 1 0 0 0 0
</pre>
=={{header|ALGOL 68}}==
Line 2,108 ⟶ 2,107:
0 0 0 0 1 1 1 1 0 0 0 0
</pre>
=={{header|Octave}}==
Line 2,260 ⟶ 2,257:
print "kron(A,B) = " . kron($mat->[0], $mat->[1]) . "\n";
}</lang>
=={{header|Perl 6}}==▼
{{works with|rakudo|2017.01-34-g700a077}}▼
<lang perl6>sub kronecker_product ( @a, @b ) {▼
return (@a X @b).map: { .[0].list X* .[1].list };▼
}▼
.say for kronecker_product([ <1 2>, <3 4> ],▼
[ <0 5>, <6 7> ]);▼
say '';▼
.say for kronecker_product([ <0 1 0>, <1 1 1>, <0 1 0> ],▼
[ <1 1 1 1>, <1 0 0 1>, <1 1 1 1>]);▼
</lang>▼
{{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)</pre>▼
=={{header|Phix}}==
Line 2,717 ⟶ 2,686:
#[0 0 0 0 1 0 0 1 0 0 0 0]
#[0 0 0 0 1 1 1 1 0 0 0 0]])</pre>
(formerly Perl 6)
▲{{works with|rakudo|2017.01-34-g700a077}}
▲<lang perl6>sub kronecker_product ( @a, @b ) {
▲ return (@a X @b).map: { .[0].list X* .[1].list };
▲}
▲.say for kronecker_product([ <1 2>, <3 4> ],
▲ [ <0 5>, <6 7> ]);
▲say '';
▲.say for kronecker_product([ <0 1 0>, <1 1 1>, <0 1 0> ],
▲ [ <1 1 1 1>, <1 0 0 1>, <1 1 1 1>]);
▲</lang>
▲{{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)</pre>
=={{header|REXX}}==
Line 2,974 ⟶ 2,972:
[0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0]
</pre>
=={{header|Simula}}==
<lang simula>BEGIN
Line 3,297 ⟶ 3,296:
]
</pre>
=={{header|Swift}}==
| |||