20 lines
242 B
Perl
20 lines
242 B
Perl
|
use lib qw/ . /;
|
||
|
|
use lib qw! ../../perl-lib !;
|
||
|
|
|
||
|
|
use 5.36.0;
|
||
|
|
|
||
|
|
package Part2;
|
||
|
|
|
||
|
|
use Moo;
|
||
|
|
|
||
|
|
use AoC::Grid;
|
||
|
|
use List::AllUtils qw/ sum /;
|
||
|
|
|
||
|
|
extends 'Part1';
|
||
|
|
|
||
|
|
sub trailhead_score_resolution($self,%endpoints) {
|
||
|
|
return sum values %endpoints;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|