Geometric algebra: Difference between revisions
Content added Content deleted
(→{{header|Go}}: As output is random, made it clear that this is just a sample.) |
m (→{{header|Perl 6}}: closed the lang tag) |
||
Line 751:
my @coeff = (.5 - rand) xx 5;
my $v = [+] @coeff Z* @e[^5];
ok ($v**2).narrow ~~ Real, 'contraction';</
|