02.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 chomp (my @a = <>);
   6 my $prev;
   7 my $inc;
   8
   9 for my $i (0 .. $#a-2) {
  10         my $sum = $a[$i]+$a[$i+1]+$a[$i+2];
  11         $inc++ if $prev && $sum > $prev;
  12         $prev = $sum;
  13 }
  14
  15 print "$inc\n";