2022/02.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.36;
   4 use strict;
   5 use experimental 'multidimensional';
   6 use List::Util qw(sum);
   7
   8 local $/  = "\n\n";
   9
  10 chomp (my @elves = <>);
  11 my @l;
  12
  13 for my $elf (@elves) {
  14         my $s = sum split(/\n/, $elf);
  15         push @l, $s;
  16 }
  17
  18 @l = sort { $b <=> $a } @l;
  19 say sum splice (@l, 0, 3);
  20