Secret Number

Score: 58.00 (pass)

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

Score: 60.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while print,s/(.)(?=(.))/chop($_=$1+$2)+$_/ge

Score: 66.00 (pass)

#!/usr/bin/perl
$_=shift;chop while(print"$_\n"),s/(.)(?=(.))/chop($_=$1+$2)+$_/ge

Score: 69.00 (pass)

#!/usr/bin/perl
$_=shift;chop while((print"$_\n")&&s/(.)(?=(.))/chop($_=$1+$2)+$_/ge)

Score: 73.00 (pass)

#!/usr/bin/perl
$_=shift;while((print"$_\n")&&s/(.)(?=(.))/$b=$1+$2;chop($b)+$b/ge){chop}

Score: 79.00 (pass)

#!/usr/bin/perl
$_=shift;while((print"$_\n")&&s/(.)(?=(.))/$b=$1+$2;$b\%10+int($b\/10)/ge){chop}

Score: 106.00 (fail)

#!/usr/bin/perl
$a=shift;while((print$_=$a,"\n")&&/dd/){$a;while(s/^(.)(.)/$2/e){$b=$1+$2;$b=~s/(.)(.)/$1+$2/e;$a.=$b;}}

Score: 107.00 (pass)

#!/usr/bin/perl
$a=shift;while((print$_=$a,"\n")&&/../){$a="";while(s/^(.)(.)/$2/e){$b=$1+$2;$b=~s/(.)(.)/$1+$2/e;$a.=$b;}}

Score: 109.00 (pass)

#!/usr/bin/perl
$a=shift;while((print$_=$a,"\n")&&/dd/){$a="";while(s/^(.)(.)/$2/e){$b=$1+$2;$b=~s/(.)(.)/$1+$2/e;$a.=$b;}}

Score: 114.00 (pass)

#!/usr/bin/perl
$_=shift;while((print"$_\n")&&/dd/){$a="";while(s/^(d)(d)/$2/e){$b=$1+$2;$b=~s/^(d)(d)/$1+$2/e;$a.=$b}$_=$a}