Secret Number

Score: 80.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;while(@_){print@_;$i=1;for(@_){$_+=$_[$i++];$_-=9if$_>9}pop@_}

Score: 90.00 (pass)

#!/usr/bin/perl -l
$_=pop;while(length){print;split//;$_="";while(@_>1){$_.=($a=$_[1]+shift@_)>9?$a-9:$a}}

Score: 91.00 (pass)

#!/usr/bin/perl -l
print@_=split//,pop;while(@_>1){$s.=($a=$_[1]+shift@_)>9?$a-9:$a}exec"$^X $0 $s"if""ne$s

Score: 92.00 (pass)

#!/usr/bin/perl -l
print@_=split//,pop;while(@_>1){$a=$_[1]+shift@_;$s.=$a>9?$a-9:$a}exec"$^X $0 $s"if""ne$s

Score: 95.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;print@_;while(@_>1){$a=$_[1]+shift@_;$s.=$a>9?$a-9:$a}exec"$^X $0 $s"if""ne$s

Score: 97.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;print@_;while(@_>1){$s=$_[1]+shift@_;$_.=$s>9?$s-9:$s}exec"$^X $0 $_"if $_ ne""

Score: 126.00 (fail)

#!/usr/bin/perl -l
@_=split//,pop;print@_;do{$s.=&a while@_>1;print$s if$s;@_=split//,$s;$s=''}while@_;sub a{$r=($_[0]+$_[1])%9;shift;$r?$r:9}

Score: 127.00 (fail)

#!/usr/bin/perl -l
@_=split//,pop;print@_;do{$s.=&a while@_>1;print$s if$s;
@_=split//,$s;$s=''}while@_;sub a{$r=($_[0]+$_[1])%9;shift;$r?$r:9}

Score: 128.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;print@_;do{$s.=&a while@_>1;print$s if$s;@_=split//,$s;$s=''}while@_;sub a{$r=$_[0]+$_[1];shift;$r<10?$r:$r-9}