Conjugate transpose: Difference between revisions
m
→{{header|Perl 6}}: whitespace tweaks
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: whitespace tweaks) |
||
Line 1,099:
=={{header|Perl 6}}==
{{works with|Rakudo|2015-12-13}}
<lang perl6>for
[ 1, 1+i, 2i],
[ 1-i, 5, -3],
[0-2i, -3, 0]
[1, 1, 0],
[0, 1, 1],
[1, 0, 1]
[0.707 , 0.707, 0],
[0.707i, 0-0.707i, 0],
[0 , 0, i]
sub is-Hermitian (@m, @t, --> Bool) {
Line 1,141:
sub mat-ident ($n) { [ map { [ flat 0 xx $_, 1, 0 xx $n - 1 - $_ ] }, ^$n ] }
sub mat-mult (@a, @b, \ε = 1e-15) {
my @p;
for ^@a X ^@b[0] -> ($r, $c) {
|