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: | Line 751: | ||
my @coeff = (.5 - rand) xx 5; |
my @coeff = (.5 - rand) xx 5; |
||
my $v = [+] @coeff Z* @e[^5]; |
my $v = [+] @coeff Z* @e[^5]; |
||
ok ($v**2).narrow ~~ Real, 'contraction';</ |
ok ($v**2).narrow ~~ Real, 'contraction';</lang> |
||