Secret Number

Score: 53.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while print^s/./(hex$&-48+ord$')%15/eg

Score: 53.00 (pass)

#!/usr/bin/perl -l
$_=pop;s!.!print;s,,(hex$&-48+ord$')%15,eg;chop!eg

Score: 54.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop until print==s/./(hex$&-48+ord$')%15/eg

Score: 56.00 (pass)

#!/usr/bin/perl -l
for($_=pop;/./;chop){print;s//(hex$&-48+ord$')%15/eg}

Score: 67.00 (pass)

#!/usr/bin/perl -l
map{$i=print@a;map{$_+=$a[$i++];$_-=9*/../}@a;pop@a}@a=pop=~/./g

Score: 69.00 (pass)

#!/usr/bin/perl -l
map{$i=print@a;map{$_+=$a[$i++];$_-=9*/../}@a;pop@a}@a=pop=~/(.)/g

Score: 70.00 (pass)

#!/usr/bin/perl -l
map{$i=print@a;map{$_+=$a[$i++];$_-=9if/../}@a;pop@a}@a=split//,pop