Improved tiebreak (but not lisibility, I'm afraid !)
#!perl -pla
@,{'JZ¼ªT)²O‡—kpéÕQ^³¤4"AŠŸòünñ'=~/./g}=(1..20,map$_.0,3..10,1E5,100,1E8);map{$,=$,{$_=chr 8*/n/+unpack'%8C*',$_};$*=y!ünñ!!?!($;+=$**$,):/ò/?$**$,:$*+$,}@F}{$_=$*+$;;s;.(?=(...)+$);$&,;g
|
broke the 200 barrier. That was a fair goal...
#!perl -pla
@a{'JZ¼ªT)²O‡—kpéÕQ^³¤4"AŠŸònüñ'=~/./g}=(1..20,map$_.0,3..10,100,1E5,1E8);map{$b=$a{$_=chr 8*/n/+unpack'%8C*',$_};$s=/[ünñ]/?!($c+=$b*$s):/ò/?$b*$s:$b+$s}@F}{$_=$s+$c;s/.(?=(...)+$)/$&,/g
|
Waou, first try for it, and first hole since (too?) many months...
#!perl -pla
@a{'ÀJZ¼ªT)²O‡—kpéÕQ^³¤4"AŠŸnüñ'=~/./g}=(0..20,map{10*$_}3..9,1E2,1E5,1E8);map{$_=chr(8*/n/+unpack"%8c*",$_);if(/n|ü|ñ/){$c+=$a{$_}*$s;$s=0}else{$s+=/ò/?99*$s:$a{$_}}}@F}{$_=$s+$c;s/.(?=(...)+$)/$&,/g
|