Secret Number

Score: 64.00 (pass)

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

Score: 64.00 (pass)

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

Score: 66.00 (pass)

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

Score: 68.00 (pass)

#!/usr/bin/perl -l
print$_=pop;{s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge&&chop^print^redo}

Score: 75.00 (pass)

#!perl -l
print$_=pop;{s/.(?=(.))/$x-=9if($x=$&+$1)>9;$x/ge||last;chop;print;redo}

Score: 75.00 (pass)

#!/usr/bin/perl -l
print$_=pop;{s/.(?=(.))/$x-=9if($x=$&+$1)>9;$x/ge||last;chop;print;redo}