19 lines
241 B
Perl
19 lines
241 B
Perl
use 5.20.0;
|
|
use warnings;
|
|
use experimental qw/
|
|
signatures
|
|
postderef
|
|
/;
|
|
|
|
use lib './lib';
|
|
|
|
use Entry;
|
|
|
|
use List::AllUtils qw/ sum /;
|
|
|
|
my @input = split / /, <>;
|
|
|
|
my $entry = Entry->new( stream => \@input );
|
|
|
|
say sum $entry->all_data;
|