Secret Number

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;do{print;s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg;chop}while$_

Score: 68.00 (pass)

#!/usr/bin/perl -l
$_=pop;do{print;s/(.)(?=(.))/$x=$1+$2,$x-9*($x>9)/eg;chop}while$_

Score: 70.00 (pass)

#!/usr/bin/perl -l
$_=pop;do{print;s/(.)(?=(.))/$x=$1+$2,$x-9*($x>9)/eg;chop}while($_)

Score: 75.00 (pass)

#!/usr/bin/perl -l
$_=pop;while($_>9){print;s/(.)(?=(.))/$x=$1+$2,$x-9*($x>9)/eg;chop}print

Score: 86.00 (pass)

#!/usr/bin/perl -l
$_=pop;while($_>9){print;s/(.)(?=(.))/$x=$1+$2;$n.=$x-9*($x>9)/eg;$_=$n;$n=''}print

Score: 87.00 (pass)

#!/usr/bin/perl -l
$_=pop;while($_>9){print;s/(.)(?=(.))/$x=$1+$2;$n.=$x>9?$x-9:$x/eg;$_=$n;$n=''}print

Score: 118.00 (pass)

#!/usr/bin/perl -l
$_=pop;while($_>9){$p=10;print;while(/(\d)/g){if($p<=9){$x=$p+$1;$p=$1;$x-=9if($x>9);$n.=$x}$p=$1}$_=$n;$n=''}print

Score: 153.00 (pass)

#!/usr/bin/perl -l
$_=pop;while($_>9){$p=10;print"$_";while(/(\d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(\d)(\d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';}print"$_";

Score: 155.00 (pass)

#!/usr/bin/perl -l
$_=shift;while($_>9){$p=10;print"$_";while(/(\d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(\d)(\d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';}print"$_";

Score: 156.00 (pass)

#!/usr/bin/perl
$_=shift;while($_>9){$p=10;print"$_\n";while(/(d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(d)(d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';}print"$_\n";

Score: 162.00 (pass)

#!/usr/bin/perl
$_=shift;$p=10;while($_>9){print"$_\n";while(/(d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(d)(d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';$p=10;}print"$_\n";