17.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my @prev;
   6 my $len = 25;
   7
   8 while (my $num = <>) {
   9         chomp $num;
  10         if (@prev >= $len) {
  11                 shift @prev if @prev > $len;
  12                 for my $i (0 .. $len-2) {
  13                         for my $j ($i+1 .. $len-1) {
  14                                 if ($prev[$i]+$prev[$j] == $num) {
  15                                         goto FOUND;
  16                                 }
  17                         }
  18                 }
  19                 print "$num is not a sum of ", join(', ', @prev), "\n";
  20                 exit 0;
  21         FOUND:
  22         }
  23         push @prev, $num;
  24 }
  25