2016/05.pl

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