Secret Number

Score: 85.00 (pass)

#!/usr/bin/perl -l
for($_=shift;$r=!print,/../;$_=$r){--pos,$r.=($t=$1+$2)%10+int$t/10while/(.)(.)/g}

Score: 89.00 (pass)

#!/usr/bin/perl -l
for($_=shift;print,$_>9;$_=$r){for($r='';/(.)(.)/g;--pos){$r.=($t=$1+$2)\%10+int$t/10}}

Score: 90.00 (pass)

#!/usr/bin/perl -l
for($_=shift;print&&$_>9;$_=$r){$r='';($r.=($t=$1+$2)\%10+int$t/10,--pos)while/(.)(.)/g}

Score: 91.00 (pass)

#!/usr/bin/perl -l
for($_=shift;print&&$_>9;$_=$r){$r='';($r.=($t=$1+$2)\%10+int$t/10,--pos)while /(.)(.)/g}

Score: 108.00 (pass)

#!/usr/bin/perl -l
sub t{my($n,$p,$r)=@_;$n>9?do{$p||print$n;$r.=t($1+$2,--pos$n)while$n=~/(.)(.)/g;t($r)}:$n}print t(shift)

Score: 111.00 (pass)

#!/usr/bin/perl -l
sub t{my($n,$p,$r)=@_;$n>9?do{$p||print$n;while($n=~/(.)(.)/g){$r.=t($1+$2,--pos$n)}t($r)}:$n}print t(shift)

Score: 115.00 (pass)

#!/usr/bin/perl -l
sub t{my($n,$p,$r)=@_;$n>9?do{$p||print$n;while($n=~/G(.)(.)/g){$r.=t($1+$2,1);--pos$n}t($r)}:$n}print t(shift)

Score: 120.00 (pass)

#!/usr/bin/perl -l
sub t{my($n,$p,$r)=@_;return$n if$n<10;$p||print$n;while($n=~/G(.)(.)/g){$r.=t($1+$2,1);--pos$n}t($r)}print t(shift)

Score: 126.00 (pass)

#!/usr/bin/perl -l
$"='';sub t{my($n,$p,$r)=@_;return$n if$n<10;$p||print$n;while($n=~/G(.)(.)/g){$r.=t($1+$2,1);--pos$n}t($r)}print t(shift)