Secret Number

Score: 71.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;s/(.)(?=(.))/$a.=($b=$1+$2)>9?$b-9:$b/eg&&exec$^X,$0,$a

Score: 74.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;s/(.)(?=(.))/$a.=($b=$1+$2)>9?$b-9:$b/eg;$a&&exec$^X,$0,$a

Score: 77.00 (fail)

#!/usr/bin/perl -l
$_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b}$a&&exec$0,$a

Score: 78.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b-9:$b}$a&&exec$^X,$0,$a

Score: 81.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b}$a&&exec$^X,$0,$a

Score: 84.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b}$a&&exec"perl $0 $a"

Score: 90.00 (pass)

#!/usr/bin/perl
$_=pop;do{$a="";print$_,$/;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b;}}while($_=$a);

Score: 95.00 (pass)

#!/usr/bin/perl
$_=$ARGV[0];do{$a="";print$_,$/;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b;}}while($_=$a);