Heronian triangles: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,261: / Line 3,261: @@
 =={{header|Perl 6}}==
-{{works with|rakudo|2015-10-26}}
+{{works with|Rakudo|2018.09}}
 <lang perl6>sub hero($a, $b, $c) {
     my $s = ($a + $b + $c) / 2;
-    my $a2 = $s * ($s - $a) * ($s - $b) * ($s - $c);
+    ($s * ($s - $a) * ($s - $b) * ($s - $c)).sqrt;
-    $a2.sqrt;
 }
@@ Line 3,285: / Line 3,284: @@
 sub MAIN ($maxside = 200, $first = 10, $witharea = 210) {
-    my @h = sort gather
+    my @h;
-        for 1 .. $maxside -> $c {
+    (1 .. $maxside).race.map: -> $c {
-            for 1 .. $c -> $b {
+        for 1 .. $c -> $b {
-                for $c - $b + 1 .. $b -> $a {
+            for $c - $b + 1 .. $b -> $a {
-                    if primitive-heronian-area($a,$b,$c) -> $area {
+                if primitive-heronian-area($a,$b,$c) -> $area {
-                        take [$area, $a+$b+$c, $c, $b, $a];
+                    @h.push: [$area, $a+$b+$c, $c, $b, $a];
-                    }
                 }
             }
         }
+    }
+    @h = @h.sort;
     say "Primitive Heronian triangles with sides up to $maxside: ", +@h;