Heronian triangles: Difference between revisions

Content deleted Content added
Better D entry
→‎{{header|Perl 6}}: better integer test
Line 198: Line 198:
sub heronian-area($a, $b, $c) {
sub heronian-area($a, $b, $c) {
given hero $a, $b, $c { .floor == .ceiling ?? .floor !! 0 }
$_ when Int given hero($a, $b, $c).narrow;
}
}