7 my $target = 375054920;
10 while (my $num = <>) {
16 print "Adding $num, sum=$sum\n";
18 while ($sum > $target) {
21 print "Removing $n1, sum=$sum\n";
24 if ($sum == $target) {
25 print "found $sum = ", join('+', @prev), "\n";
28 $min = $n1 if !defined $min || $min > $n1;
29 $max = $n1 if !defined $max || $max < $n1;
31 print "$min+$max=", $min+$max, "\n";