Secret Number

Score: 67.00 (fail)

#!/usr/bin/perl -l
s>.$|(\B.)>$&$1>g&s>..>-$&&&($&-1)%9+1>ge while($_+=pop)>9&print

Score: 67.00 (fail)

#!/usr/bin/perl -l
s>.$|(\B.)>$&$1>g&s>..>-$&&&($&-1)%9+1>ge while($_+=pop)>9&print

Score: 68.00 (pass)

#!/usr/bin/perl -l
$_=pop;s>.$|(\B.)>$&$1>g&s>..>-$&?1+($&-1)%9:0>ge while$_>9&print

Score: 69.00 (pass)

#!/usr/bin/perl -l
$_=pop;s>^.|.$|(.)>$&$1>g&s>..>-$&?1+($&-1)%9:0>ge while$_>9&print

Score: 70.00 (pass)

#!/usr/bin/perl -l
for($_=pop;9<$_&print;s>..>-$&?1+($&-1)%9:0>ge){s>^.|.$|(.)>$&$1>g}

Score: 72.00 (pass)

#!/usr/bin/perl -l
for($_=pop;9<$_&print;chop){s/.(?=.)/$a=5+$&+ord$';$a>53?$a%9+1:0/ge}

Score: 74.00 (pass)

#!/usr/bin/perl
$_=pop;while(9<$_&print$_.$/){s>^.|.$|(.)>$&$1>g;s>..>-$&?1+(8+$&)%9:0>ge}

Score: 79.00 (pass)

#!/usr/bin/perl
$_=pop;while(''ne$_){print$_.$/;s,^.|(.),$&$1,g;chop;s>..>$&<1?0:1+(8+$&)%9>ge}

Score: 96.00 (pass)

#!/usr/bin/perl
$_=pop;while(''ne$_){print$_.$/;s,^.|(.),$&$1,g;chop;s/../_($&)/ge;}sub _{$_[0]>0?1+(8+pop)%9:0}

Score: 111.00 (pass)

#!/usr/bin/perl
$_=pop;while(''ne$_){print$_.$/;s,.(.)?,''ne$1&&_($&).(''ne$'&&_($1+($'&'?'))),ge;}sub _{$_[0]>0?1+(8+pop)%9:0}

Score: 112.00 (pass)

#!/usr/bin/perl
$_=pop;while(''ne$_){print"$_\n";s,.(.)?,''ne$1&&_($&).(''ne$'&&_($1+($'&'?'))),ge;}sub _{$_[0]>0?1+(8+pop)%9:0}