2017/03.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 use List::Util qw(min max);
   7
   8 my $res = 0;
   9 while (<>) {
  10         my @a = split /\s+/;
  11         my $m1 = min @a;
  12         my $m2 = max @a;
  13         $res += $m2-$m1;
  14 }
  15
  16 say $res;
  17