Secret Number

Score: 65.00 (fail)

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

Score: 65.00 (pass)

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

Score: 65.00 (pass)

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

Score: 65.00 (pass)

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

Score: 65.00 (pass)

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

Score: 65.00 (pass)

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

Score: 65.00 (pass)

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

Score: 67.00 (pass)

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

Score: 68.00 (pass)

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

Score: 68.00 (pass)

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

Score: 72.00 (pass)

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