adventofcode/2017/day1/day1b.pl

10 lines
151 B
Perl
Raw Normal View History

2017-12-02 01:28:26 +00:00
#!/usr/bin/env perl -n
use 5.20.0;
use List::AllUtils qw/ sum /;
chomp;
my @n = split '';
say sum @n[ grep { $n[$_] == $n[($_+@n/2)%@n] } 0..$#n ]