Heronian triangles: Difference between revisions
m
→{{header|Perl 6}}: added .race for concurrency
m (→using SQRT table: updated a comment in the REXX section header) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: added .race for concurrency) |
||
Line 3,261:
=={{header|Perl 6}}==
{{works with|
<lang perl6>sub hero($a, $b, $c) {
my $s = ($a + $b + $c) / 2;
}
Line 3,285 ⟶ 3,284:
sub MAIN ($maxside = 200, $first = 10, $witharea = 210) {
my @h
}
}
}
}
@h = @h.sort;
say "Primitive Heronian triangles with sides up to $maxside: ", +@h;
| |||