hailstone-sequence.pl works.

Author: Filip Sergot

best-of-rosettacode/hailstone-sequence.pl

@@ -1,24 +1,25 @@
-=head1 Description
-    The Hailstone sequence of numbers can be generated from a starting positive integer, n by:
-    If n is 1 then the sequence ends.
-    If n is even then the next n of the sequence = n/2
-    If n is odd then the next n of the sequence = (3 * n) + 1
-    The (unproven), Collatz conjecture is that the hailstone sequence for any starting number always terminates.
-    Task Description:
-    Create a routine to generate the hailstone sequence for a number.
-    Use the routine to show that the hailstone sequence for the number 27 has 112 elements starting with 27, 82, 41, 124 and ending with 8, 4, 2, 1
-    Show the number less than 100,000 which has the longest hailstone sequence together with that sequences length.
-    (But don't show the actual sequence)!
+#=head1 Description
+#    The Hailstone sequence of numbers can be generated from a starting positive integer, n by:
+#    If n is 1 then the sequence ends.
+#    If n is even then the next n of the sequence = n/2
+#    If n is odd then the next n of the sequence = (3 * n) + 1
+#    The (unproven), Collatz conjecture is that the hailstone sequence for any starting number always terminates.
+#    Task Description:
+#    Create a routine to generate the hailstone sequence for a number.
+#    Use the routine to show that the hailstone sequence for the number 27 has 112 elements starting with 27, 82, 41, 124 and ending with 8, 4, 2, 1
+#    Show the number less than 100,000 which has the longest hailstone sequence together with that sequences length.
+#    (But don't show the actual sequence)!
 
-=head1 Code
+#=head1 Code
     sub hailstone($n) { $n, { $_ %% 2 ?? $_ div 2 !! $_ * 3 + 1 } ... 1 }
 
     my @h = hailstone(27);
     say "Length of hailstone(27) = {+@h}";
     say ~@h;
 
-    my $m max= +hailstone($_) => $_ for 1..99_999;
+	my $m = 0 => 0;
+    $m max= +hailstone($_) => $_ for 1..99_999;
     say "Max length $m.key() was found for hailstone($m.value()) for numbers < 100_000";
 
-=head2 More
-    http://rosettacode.org/wiki/Hailstone_sequence#Perl_6
+#=head2 More
+#    http://rosettacode.org/wiki/Hailstone_sequence#Perl_6