Secret Number

Score: 51.00 (pass)

#!/usr/bin/perl -l
$_=pop;s#.#print,s/.?/$`>9&&$`%100*1.11%10/ge#ge

Score: 52.00 (pass)

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

Score: 54.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop,while+print^s/./($&+($'&'?'))*1.1%10/ge

Score: 55.00 (pass)

#!/usr/bin/perl -l
print^s/./($&+($'&'?'))*1.1%10/ge&&chop^redo,for+pop

Score: 56.00 (pass)

#!/usr/bin/perl -l
print,s/.(?=(.))/($&+$1)*1.1%10/ge&&chop^redo,for+pop

Score: 57.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/.(?=(.))/($&+$1)*1.1%10/ge&&chop^redo}

Score: 60.00 (pass)

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

Score: 63.00 (pass)

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

Score: 65.00 (pass)

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

Score: 67.00 (pass)

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

Score: 67.00 (pass)

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