Secret Number

Score: 67.00 (pass)

#!/usr/bin/perl -l
print$_=pop;s/(.)(?=(.))/$f.=$1+$2-($1+$2>9)*9/ge&&exec$^X,$0,$f

Score: 67.00 (pass)

#!/usr/bin/perl -l
print$_=pop;s/(.)(?=(.))/$f.=$1+$2-($1+$2>9)*9/ge&&exec$^X,$0,$f

Score: 68.00 (pass)

#!/usr/bin/perl -l
print$_=pop;s/(.)(?=(.))/$f.=(0..9,1..9)[$1+$2]/ge&&exec$^X,$0,$f

Score: 69.00 (pass)

#!/usr/bin/perl -l
$_=pop;while(print&&/../){s/(.)(?=(.))/(0..9,1..9)[$1+$2]/ge;chop}

Score: 77.00 (fail)

#!/usr/bin/perl -l
$_=pop;while(/../){s/(.)(?=(.))/(0..9,1..9)[$1+$2]/ge;s/0*(.*)./$1/;print}

Score: 83.00 (pass)

#!/usr/bin/perl -l
$_=pop;while(print){/../||last;s/(.)(?=(.))/(0..9,1..9)[$1+$2]/ge;s/0*(.*)./$1/}