Secret Number

Score: 62.00 (pass)

#!/usr/bin/perl -l
for($_=pop;/./;chop){print;s/.(?=(.))/$1+$&-9*($1+$&>9)/eg}

Score: 64.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;chop,redo if s/(.(?=(.)))/$1+$2-9*($1+$2>9)/eg}

Score: 65.00 (pass)

#!/usr/bin/perl -l
for($_=pop;/./;){print;s/(.(?=(.)))/$1+$2-9*($1+$2>9)/eg;chop}

Score: 72.00 (pass)

#!/usr/bin/perl -l
$_=shift;while(/./){print;s/(.(?=(.)))/($s=$1+$2)>9?$s-=9:$s/eg;chop}

Score: 87.00 (pass)

#!/usr/bin/perl
print$_=$ARGV[0],$/;
s/(.(?=(.)))/($s=$1+$2)>9?$s-=9:$s/eg;
chop; print`$^X $0 $_`if/./

Score: 90.00 (pass)

#!/usr/bin/perl
print$_=$ARGV[0],$/;while(/.(?=(.))/g){($t=$&+$1)<10or$t-=9;$a.=$t}
print`$^X $0 $a`if/../

Score: 104.00 (pass)

#!/usr/bin/perl
$_=$ARGV[0];print$_,$/;while(/(.)(.)/g){pos()--;($t=$1+$2)<10or$t-=9;$a.=$t}
print`$^X $0 $a`if length>1

Score: 128.00 (pass)

#!/usr/perl/bin
use integer;$\=$/;$_=$ARGV[0];print;while(length>1){$a="";while(/(..)/g){pos()--;$a.=($t=$1%10+$1/10)>9?$t-9:$t}$_=$a;print}

Score: 135.00 (pass)

#!/usr/perl/bin
use integer; $\="\n"; $_=$ARGV[0];print;while(length>1){$a=""; while(/(..)/g){pos()--;$a.=($t=$1%10+$1/10)>9?$t-9:$t;}$_=$a;print;}

Score: 184.00 (pass)

#!/usr/bin/perl
@s =split//,$ARGV[0];@a=([0..9,1..9]);for($i=1;$i<=9;$i++ ){@{$a[$i]}=
@{$a[0]}[$i..$i+9];}print@s,"\n";while( $#s ){my$h=shift@s;print+(@s=
map{($_,$h)=($a[$h]->[$_],$_);$_}@s),"\n";}