Secret Number

Score: 50.00 (pass)

#!/usr/bin/perl -l
$_=pop;s#.#print;s//$`&&($&+$`%10)*1.1%10/ge#ge

Score: 50.00 (pass)

#!/usr/bin/perl -l
$_=pop;s#.#print;s//$`&&($&+$`%10)*1.1%10/ge#ge

Score: 51.00 (pass)

#!/usr/bin/perl -l
$_=pop;s#.#print;s//$`&&($&+$`%10)*1.11%10/ge#ge

Score: 52.00 (pass)

#!/usr/bin/perl -l
$_=pop;s#.#print;s/./$`&&($&+$`%10)*1.11%10/ge#ge

Score: 53.00 (pass)

#!/usr/bin/perl -l
for($_=pop;print,s/(?=(..))./$1*1.11\%10/ge;chop){}

Score: 53.00 (pass)

#!/usr/bin/perl -l
$_=pop;s#.#print;s/(?=(..)?)./$1&&$1*1.11%10/ge#ge

Score: 54.00 (fail)

#!/usr/bin/perl -l
for($_=pop;print,s/(?=(..))[1-9]/$1%9||9/ge;chop){}

Score: 55.00 (fail)

#!/usr/bin/perl -l
for($_=pop;print,s/(?=(..))./$&and$1%9||9/ge;chop){}

Score: 55.00 (fail)

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

Score: 56.00 (pass)

#!/usr/bin/perl -l
for($_=pop;print,s/(?=(..))./-$1?$1%9||9:0/ge;chop){}

Score: 57.00 (pass)

#!/usr/bin/perl -l
for($_=pop;print,s|(?=(..)).|$&&&($1-1)%9+1|ge;chop){}

Score: 58.00 (pass)

#!/usr/bin/perl -l
for($_=pop;print,s|(?=(..)).|$&?($1-1)%9+1:0|ge;chop){}

Score: 60.00 (pass)

#!/usr/bin/perl -l
for($_=pop;print,s|(?=(..)).|$&?($1-1)%9+1:$&|ge;chop){}

Score: 61.00 (pass)

#!/usr/bin/perl -l
for($_=pop;print,s|.(?=(.))|$&?($&.$1-1)%9+1:$1|ge;chop){}