Secret Number

Score: 75.00 (pass)

#!/usr/bin/perl -l
$_=pop;$_=join'',map{$_+0?$_%9||9:0}@d while(print)and@d=$_=~/(?=(..))/g

Score: 75.00 (pass)

#!/usr/bin/perl -l
$_=join'',map{$_+0?$_%9||9:0}@d while(print$_|=pop)and@d=$_=~/(?=(..))/g

Score: 76.00 (pass)

#!/usr/bin/perl -l
print$i=pop;print$i=join'',map{$_+0?$_%9||9:0}@d while @d=$i=~/(?=(..))/g

Score: 77.00 (pass)

#!/usr/bin/perl -l
print$i=pop;print$i=join'',map{$_+0?$_%9||9:0}@d while(@d=$i=~/(?=(..))/g)

Score: 81.00 (fail)

#!/usr/bin/perl -l
print$_=pop;while($_>9){my$a;while(/(?=(..))/g){$a.=$1?($1%9||9):0}print$_=$a}

Score: 83.00 (pass)

#!/usr/bin/perl -l
print$_=pop;while($_>9){my$a;while(/(?=(..))/g){$a.=$1+0?($1%9||9):0}print$_=$a}

Score: 91.00 (pass)

#!/usr/bin/perl -l
print$_=pop;while(/../){my$a;while(/(?=(.)(.))/g){$z=$1+$2;$a.=$z>9?$z-9:$z}prin
t$_=$a}