Secret Number

Score: 58.00 (pass)

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

Score: 64.00 (pass)

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

Score: 71.00 (pass)

#!/usr/bin/perl -l
split//,pop;map{print@q=@_;shift@_;map{$_+=shift@q;$_-=9if$_>9}@_}@_

Score: 72.00 (pass)

#!/usr/bin/perl -l
split//,pop;map{print@q=@_;shift@_;map{$_+=shift@q;$_-=$_>9?9:0}@_}@_

Score: 74.00 (pass)

#!/usr/bin/perl -l
split//,pop;map{print@q=@_;shift@_;map{$_+=shift@q;$_-=($_>9?9:0)}@_}@_

Score: 78.00 (pass)

#!/usr/bin/perl -l
split//,pop;while(@q=@_){print@_;shift@_;map{$_+=shift@q;$_-=($_>9?9:0)}@_}

Score: 90.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;while($_>9){s/(?<=.).(?=.)/$&$&/g;s!(\d)(\d)!$1+$2-($1+$2>9?9:0)!eg;print}

Score: 94.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;while($_>9){s/(?<=.)\d(?=.)/$&$&/g;s((\d)(\d)){$q=$1+$2;$q>9?$q-9:$q}eg;print}