19999
19111
19191
19191
11191
####
# run with perl -ln prog.pl input
push@a,/./g;$r||=@a}{print$s{-1+map{$u{$_}||=$a[$_]+$s{$g-1}for
grep$a[$_]*!$s{$_},$g+$r,$g-!!($g%$r),$g-$r*($g>=$r),++$g*!!($g
%$r);($g)=sort{$u{$a}-$u{$b}}keys%u;$s{$g}=delete$u{$g}}@a}
##
##
1 push @a,/./g;
2 $r||=@a
3 }{
4 print $s{
5 -1 + map{
6 $u{$_}||=$a[$_]+$s{$g-1} for
7 grep $a[$_] * !$s{$_},
8 $g+$r,
9 $g-!!($g%$r),
10 $g-$r*($g>=$r),
11 ++$g*!!($g %$r);
12 ($g)=sort{$u{$a}-$u{$b}}keys%u;
13 $s{$g}=delete$u{$g}
14 }@a
15 }