10 lines
151 B
Perl
10 lines
151 B
Perl
|
#!/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 ]
|