Secret Number

Score: 79.00 (pass)

#!/usr/bin/perl
map{$*=!print@:,$/;map{($_,$.)=($_+$:[++$*])=~/./g;$_+=$.}@:;pop@:}@:=pop=~/./g

Score: 81.00 (pass)

#!/usr/bin/perl
map{print@a,"
";my$i;map{($_,$c)=split//,$_+$a[++$i];$_+=$c}@a;pop@a}@a=pop=~/./g

Score: 81.00 (pass)

#!/usr/bin/perl
map{print@:,"
";$*=0;map{($_,$.)=($_+$:[++$*])=~/./g;$_+=$.}@:;pop@:}@:=pop=~/./g

Score: 81.00 (pass)

#!/usr/bin/perl
map{print@:,"
";$*=0;map{($_,$.)=($_+$:[++$*])=~/./g;$_+=$.}@:;$#:--}@:=pop=~/./g

Score: 94.00 (pass)

#!/usr/bin/perl
@a=pop=~/./g;map{print@a,"
";@a<1?exit:my$i;map{($_,$c)=split//,$_+$a[++$i];$_+=$c}@a;pop@a}@a

Score: 95.00 (pass)

#!/usr/bin/perl
@a=pop=~/./g;map{print@a,"
";@a<1?exit:my$i;map{($_,$c)=split//,$_+$a[++$i];$_+=$c;}@a;pop@a}@a

Score: 152.00 (pass)

#!/usr/bin/perl
sub z{$s=$_[0]+pop;z($s=~/./g)if$s>9;return$s}@a=pop=~/./g;print@a,"
";while($#a>0&&$#b!=0){$#b=$c=-1;map{push@b,z$c,$_ if$c>=0;$c=$_}@a;print@a=@b,"
"}