Matt Owen

source code for "files/pe/pe_030.pl"

return to portfolio
  1.  #!/usr/bin/perl
  2.  
  3.  use strict;
  4.  use warnings;
  5.  use necessary;
  6.  
  7.  my @found;
  8.  
  9.  for (10..5*9**5) {
  10.   my @lis = split //, $_;
  11.   my $n = necessary::sum(map { $_**5 } @lis);
  12.   push(@found, $_) if $n == $_;
  13.  }
  14.  
  15.  print "@found";