読者です 読者をやめる 読者になる 読者になる

*iroi*

mechairoi の Blog

Project Euler Problem62

perl Project Euler

借りてきたラクダ本に力をわけてもらった.
まだ1章だけど.
リストコンテキストはちょっと楽しい.

#!/usr/bin/env perl
use strict;
use warnings;

my (%count, %min);
for(my $i=1;;$i++)
{
  my $cube = $i**3;
  my $key  = join '', sort $cube =~ /./go;
  $min{$key} = $cube unless $count{$key};
  $count{$key}++;
  if ($count{$key} == 5)
  {
    print $min{$key} . "\n";
    last;
  }
}