Secret Number

Score: 55.00 (pass)

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

Score: 55.00 (pass)

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

Score: 55.00 (pass)

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

Score: 55.00 (pass)

#!/usr/bin/perl -l
print,while+s#.?#$`>9?$`%100%9||$`%100&&9:pop#eg,/./

Score: 59.00 (pass)

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

Score: 62.00 (pass)

#!/usr/bin/perl -l
print while s/.|^/$'.0?($n=($'&v63)+$&)-9*($n>9):pop/ge,/./

Score: 67.00 (pass)

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

Score: 68.00 (pass)

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

Score: 69.00 (pass)

#!/usr/bin/perl -l
print@_ while@_=(pop=~/./g,map-9*(($n=$_[1]+shift@_)>9)+$n,1..$#_)

Score: 69.00 (pass)

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