Secret Number

Score: 54.00 (pass)

#!/usr/bin/perl -l
print,while+s!!$+?$+%9||0+$+&&9:pop!ge,/(?=(..)?)./

Score: 55.00 (pass)

#!/usr/bin/perl -l
print,while s!(?=(..)?).?!~$+?$+\%9||0+$+&&9:pop!ge^2

Score: 55.00 (pass)

#!/usr/bin/perl -l
print,while+s!(?=(..)?).?!~$+?$+\%9||0+$+&&9:pop!ge^2

Score: 60.00 (pass)

#!/usr/bin/perl -l
print while s!.?(?=(.?))!~$1?$1+$&-9*($1+$&>9):pop!ge,~$_

Score: 60.00 (pass)

#!/usr/bin/perl -l
print,while+s!.?(?=(.?))!~$+?$++$&-9*($++$&>9):pop!ge,/./

Score: 62.00 (pass)

#!/usr/bin/perl -l
$_=pop;do{print}while s/.(?=(.))/$1+$&-9*($1+$&>9)/ge^~chop

Score: 64.00 (pass)

#!/usr/bin/perl -l
$_=pop;do{print}while s/.(?=(.))/($t=$&+$1)-9*($t>9)/ge^~chop

Score: 65.00 (pass)

#!/usr/bin/perl -l
print$_=pop;chop,print while s/.(?=(.))/($t=$&+$1)-9*($t>9)/ge

Score: 66.00 (pass)

#!/usr/bin/perl -l
print$_=pop;chop,print while s/.(?=(.))/($t=$&+$1)%10+($t>9)/ge

Score: 68.00 (pass)

#!/usr/bin/perl -l
print$_=pop;chop,print while s/.(?=(.))/($t=$&+$1)%10+($t>=10)/ge