Secret Number

Score: 63.00 (pass)

#!/usr/bin/perl
{print$_||=pop,$/;s/.(?=(.))/(0..9,1..9)[$&+$1]/eg<

Score: 64.00 (pass)

#!/usr/bin/perl
{print$_||=pop,$/;chop,redo if s/.(?=(.))/(0..9,1..9)[$&+$1]/eg}

Score: 65.00 (pass)

#!/usr/bin/perl
{print$_||=pop,$/;chop,redo if s/.(?=(.))/(0,(1..9)x2)[$&+$1]/eg}

Score: 67.00 (pass)

#!/usr/bin/perl
{print$_||=pop,$/;chop,redo if s/.(?=(.))/($a=$&+$1)<=9?$a:$a-9/eg}