2018/15.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.30;
   4 use strict;
   5
   6 my @tree = split /\s+/, <>;
   7
   8 use List::Util qw(sum);
   9
  10 my $metasum = 0;
  11 sub walk {
  12         my $subnodes = shift @tree;
  13         my $metadata = shift @tree;
  14         say "walk $subnodes $metadata";
  15         while ($subnodes--) {
  16                 walk();
  17         }
  18         while ($metadata--) {
  19                 $metasum += shift @tree;
  20         }
  21 }
  22 walk();
  23 say $metasum;
  24
  25