Secret Number

Score: 65.00 (pass)

#!/usr/bin/perl -l
print$_=pop;chop^print while s/.(?=(.))/($.=$&+$1)%9||$.&&9/eg

Score: 65.00 (pass)

#!/usr/bin/perl -l
print$_=pop;chop,print,while+s/.(?=(.))/($.=$&+$1)%9||$.&&9/eg

Score: 69.00 (pass)

#!/usr/bin/perl -l
print$_=pop;chop^print while s/.(?=(.))/($a=$&+$1)>9?1+$a%10:$a/eg

Score: 71.00 (pass)

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

Score: 95.00 (pass)

#!/usr/bin/perl -l
for(@_=split//,pop){print$a=shift@_,@_,my@a;@a=(@a,($a+=$_)>9?1+$a\%10:$a),$a=$_ for@_;@_=@a}

Score: 100.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;while(@_){print$a=shift@_,@_,my@a;@a=(@a,($a+=$_)>9?1+$a\%10:$a),$a=$_ for@_;@_=@a}

Score: 102.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;while(@_){print$a=shift@_,@_,my@a;for(@_){@a=(@a,($a+=$_)>9?1+$a\%10:$a),$a=$_}@_=@a}

Score: 103.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;while(@_){print$a=shift@_,@_,my@a;for$b(@_){push@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}

Score: 104.00 (pass)

#!/usr/bin/perl -l
@_=split//,pop;while(@_){print@_;$a=shift@_;@a=();for$b(@_){push@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}

Score: 111.00 (pass)

#!/usr/bin/perl -l
*_=*ARGV;@_=split//,pop;while(@_){print@_;$a=shift;@a=();for$b(@_){push@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}

Score: 134.00 (pass)

#!/usr/bin/perl -l
*_=*ARGV;@_=split//,pop;while(defined($a=pop)){print@_,$a;@a=();while(defined($b=pop)){unshift@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}

Score: 138.00 (pass)

#!/usr/bin/perl -l
*_=*ARGV;@a=split//,pop;while(defined($a=pop@a)){print@a,$a;@_=();while(defined($b=pop@a)){unshift@_,($a+=$b)>9?1+$a\%10:$a;$a=$b}@a=@_}

Score: 140.00 (pass)

#!/usr/bin/perl -l
*_=*ARGV;@a=split//,pop;while(defined($a=pop@a)){print@a,$a;@_=();while(defined($b=pop@a)){unshift@_,($c=$a+$b)>9?1+$c\%10:$c;$a=$b}@a=@_}

Score: 144.00 (pass)

#!/usr/bin/perl -l
*_=*ARGV;print@a=split//,pop;while(defined($a=pop@a)){@_=();while(defined($b=pop@a)){unshift@_,($c=$a+$b)>9?1+$c\%10:$c;$a=$b}print@a=@_ if@_}