Secret Number

Score: 83.00 (pass)

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

Score: 85.00 (pass)

#!/usr/bin/perl
split//,pop;do{print@_,"\n"}while@_=map{$r=$_[$_]+$_[$_+1];$r%10+($r>=10)}(0..$#
_-1)

Score: 130.00 (pass)

#!/usr/bin/perl
sub n{map{[@_[$_,$_+1]]}(0..$#_-1)}sub r{$#_?r(split//,$_[0]+$_[1]):$_[0]} split
//,pop;do{print@_,"\n"}while@_=map{r(@{$_})}n(@_)