Secret Number

Score: 85.00 (pass)

#!/opt/perl/bin/perl -l
$a=pop;do{print$_=$a;$a='';while(/(.)(.)/g){$a.=$1+$2-9*($1+$2>9);--pos}}while($a)

Score: 86.00 (pass)

#!/opt/perl/bin/perl -l
$_=pop;do{print;split'';$_='';while($#_){$_.=($c=$_[1]+shift@_)-9*($c>9)}}while($_)

Score: 89.00 (pass)

#!/opt/perl/bin/perl
$_=pop;do{print"$_\n";split'';$_='';while($#_){$_.=($c=$_[1]+shift@_)-9*($c>9)}}while($_)

Score: 91.00 (pass)

#!/opt/perl/bin/perl
$_=pop;do{print"$_\n";split'';$_='';while($#_){$_.=($c=$_[1]+shift@_)<10?$c:$c-9}}while($_)