Secret Number

Score: 47.00 (pass)

#!/usr/bin/perl -l
print while+s/./hex($`%10+$&)%15/eg^s//pop/e

Score: 47.00 (pass)

#!/usr/bin/perl -l
print while+s!.!hex($`%10+$&)%15!eg^s//pop/e

Score: 47.00 (pass)

#!/usr/bin/perl -l
print,while+s!.!hex($`%10+$&)%15!eg^s//pop/e

Score: 47.00 (pass)

#!/usr/bin/perl -l
print,while+s^.^hex($`%10+$&)%15^eg^s^^pop^e

Score: 47.00 (pass)

#!/usr/bin/perl -l
s//pop/e;print^s/./hex($`%10+$&)%15/eg&&do$0

Score: 47.00 (pass)

#!/usr/bin/perl -l
s//pop/e;print^s/./hex($`%10+$&)%15/eg&&do$0

Score: 48.00 (pass)

#!/usr/bin/perl -l
print while+s/./($`%10+$&)*1.1%10/eg^s//pop/e

Score: 48.00 (pass)

#!/usr/bin/perl -l
print while+s/./($`%10+$&)*1.1%10/eg^s//pop/e

Score: 49.00 (pass)

#!/usr/bin/perl -l
print while+s/./($`%10+$&)*1.11%10/eg^s//pop/e

Score: 52.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while+print,s!(?=(..)).!$+*1.11%10!eg

Score: 55.00 (pass)

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

Score: 55.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while+print,s!(?=(..)).!$+%9||$++0&&9!eg

Score: 58.00 (pass)

#!/usr/bin/perl -l
$_=pop;1while print,s!(?<=(.)).|..!$&?"$1$&"%9||9:$1!eg

Score: 61.00 (pass)

#!/usr/bin/perl -l
$_=pop;1while print,s!(?<=(.)).|..!$1+$&&&1+($1.$&-1)%9!eg

Score: 62.00 (pass)

#!/usr/bin/perl -l
$_=pop;1while print,s!(?<=(.)).|..!$1+$&&&1+("$1$&"-1)%9!eg

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;1while print,s!(?<=(.)).|..!"$1$&"+0&&1+("$1$&"-1)%9!eg

Score: 67.00 (pass)

#!/usr/bin/perl -l
$_=pop;1while print&&s!(?<=(.)).|..!"$1$&"+0&&1+("$1$&"-1)%9!eg