2016/06.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use v5.30;
   5
   6 my $valid;
   7 my @d;
   8 while (<>) {
   9         chomp;
  10         push @d, [ /(\d+)/g ];
  11         if (@d == 3) {
  12                 for my $c (0 .. 2) {
  13                         my @t = sort { $a <=> $b } ($d[0][$c], $d[1][$c], $d[2][$c]);
  14                         $valid++ if $t[0]+$t[1] > $t[2];
  15                 }
  16                 @d = ();
  17         }
  18 }
  19
  20 say $valid;