Matt Owen

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

return to portfolio
  1.  #!/usr/bin/perl
  2.  
  3.  use strict;
  4.  use warnings;
  5.  use bigint;
  6.  
  7.  my $sum = 1; # auto count the first element in the spiral
  8.  
  9.  my @range = 1..3;
  10.  
  11.  #print "upper right #$_ = ", (2*$_+1)**2, "\n" for (1..3);
  12.  #print "\n";
  13.  
  14.  #print "upper left #$_ = ", (2*$_+1)**2-2*$_, "\n" for (@range);
  15.  #print "\n";
  16.  
  17.  #print "lower left #$_ = ", (2*$_+1)**2-4*$_, "\n" for (@range);
  18.  #print "\n";
  19.  
  20.  #print "lower right #$_ = ", (2*$_+1)**2-6*$_, "\n" for (@range);
  21.  
  22.  for (1..500) {
  23.   $sum += 4*(2*$_+1)**2-12*$_;
  24.  }
  25.  
  26.  print $sum;