Secret Number

Score: 63.00 (pass)

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

Score: 64.00 (pass)

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

Score: 67.00 (pass)

#!/usr/bin/perl -l
$_=shift;while(/./){print;s!.(?=(.))!($_=$&+$+)%10+/../!ge;chop}

Score: 68.00 (pass)

#!/usr/bin/perl -l
$_=shift;while(/./){print;s!.(?=(.))!$_=$&+$1;$_%10+/../!ge;chop}

Score: 68.00 (pass)

#!/usr/bin/perl -l
$_=shift;while(/./){print;s!.(?=(.))!$_=$&+$+;$_%10+/../!ge;chop}

Score: 77.00 (pass)

#!/usr/bin/perl
$_=shift;print"$_\n";while(length){$x='';while(/(.)(?=(.))/g){$y=$1+$2;$y=$y%10+1if$y>9;$x.=$y}print"$x\n"if$x ne'';$_=$x}

Score: 77.00 (pass)

#!/usr/bin/perl -l
$_=shift;while(length){print;s/(.)(?=(.)?)/$y=$1+$2;$y=$y%10+($y>9);$2eq''?'':$y/ge}

Score: 77.00 (pass)

#!/usr/bin/perl -l
$_=shift;while(/./){print;s/(.)(?=(.)?)/$2eq''?'':($1+$2)%10+($1+$2>9)/ge}