Matt Owen

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

return to portfolio
  1.  #!/usr/bin/perl
  2.  
  3.  use strict;
  4.  use warnings;
  5.  use bigint;
  6.  
  7.  my ($s, $k) = (0, 0);
  8.  
  9.  $_ = 2**1000;
  10.  
  11.  
  12.  while ($_) {
  13.   $k = chop;
  14.   $s += $k;
  15.  }
  16.  
  17.  print $s;