gistfile1.txt

# perl6, 130 secs on my machine
use v6;
my $maxChainLen = 0;
my $maxChainLenNum = 0;
my @cache is default(0);
for (1..1_000_000) -> $x {
  my $num = $x;
  my $chainLen = 0;
  while $num > 1 {
    if $num < 75_000 && (@cache[$num] != 0) {
      $chainLen += @cache[$num];
      last;
    }
    $chainLen++;
    $num = ($num % 2 == 0) ?? $num div 2 !! 3 * $num + 1;
  }
  $chainLen++ if $num == 1;
  @cache[$x] = $chainLen if $x < 75_000;
  if $chainLen > $maxChainLen {
    $maxChainLen = $chainLen;
    $maxChainLenNum = $x;
  }
}
say "Max chain length was $maxChainLen for number $maxChainLenNum";


# perl5 , seven seconds
use strict;
my $maxChainLen = 0;
my $maxChainLenNum = 0;
my @cache = ();
for (my $x = 1; $x <= 1_000_000; $x++) {
  my $num = $x;
  my $chainLen = 0;
  while ($num > 1) {
    if ($num < 75_000 && defined($cache[$num])) {
      $chainLen += $cache[$num];
      last;
    }
    $chainLen++;
    $num = ($num % 2 == 0)? $num / 2: 3 * $num + 1;
  }
  $chainLen++ if $num == 1;
  $cache[$x] = $chainLen if ($x < 75_000);
  if ($chainLen > $maxChainLen) {
    $maxChainLen = $chainLen;
    $maxChainLenNum = $x;
  }
}
print "Max chain length was $maxChainLen for number $maxChainLenNum";