Secret Number

Score: 60.00 (fail)

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

Score: 61.00 (pass)

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

Score: 62.00 (pass)

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

Score: 69.00 (pass)

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

Score: 71.00 (pass)

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

Score: 74.00 (pass)

#!/usr/bin/perl -l
@$=pop=~/./g;print(@$),@$=map{($$[1]+shift@$)=~/./;$&+$'}1..$#$ while@$

Score: 76.00 (fail)

#!/usr/bin/perl -l
@$=pop=~/./g;@$=map{($$[$_]+$$[$_-1])=~/./;$&+$'}1..$#$ while@$>1;print@$

Score: 76.00 (pass)

#!/usr/bin/perl -l
@$=pop=~/./g;print(@$),@$=map{($$[$_]+$$[$_-1])=~/./;$&+$'}1..$#$ while@$

Score: 78.00 (pass)

#!/usr/bin/perl -l
print@$=pop=~/./g;print@$=map{($$[$_]+$$[$_-1])=~/./;$&+$'}1..$#$ while@$>1