Secret Number

Score: 64.00 (pass)

#!/usr/bin/perl -l
$_=pop;0while+print,s/(?<=.).\B/$&$&/g,s/../0+$&?$&%9||9:0/ge

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;0while+print,s/.\B/$&$&/g,s/^.//,s/../0+$&?$&%9||9:0/ge

Score: 66.00 (pass)

#!/usr/bin/perl -l
$_=pop;0while+print,s/.\B/$&$&/g,s/^.//g,s/../0+$&?$&%9||9:0/ge

Score: 69.00 (pass)

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

Score: 80.00 (pass)

#!/usr/bin/perl -l
@c=split//,pop;do{print@c;($r,@c)=map{$r-=9if($r=$_+$p)>9;$p=$_;$r}@c}while@c

Score: 81.00 (pass)

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

Score: 82.00 (pass)

#!/usr/bin/perl -l
@c=split//,pop;do{print@c;($r,@c)=map{$r=(0..9,1..9)[$_+$p];$p=$_;$r}@c}while@c