Matt Owen

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

return to portfolio
  1.  #!/usr/bin/perl
  2.  
  3.  use strict;
  4.  use warnings;
  5.  
  6.  my %hash;
  7.  
  8.  for my $a (2..100) {
  9.   for my $b (2..100) {
  10.   $hash{$a**$b} = 1;
  11.   }
  12.  }
  13.  
  14.  print int keys %hash;