Secret Number

Score: 56.00 (pass)

#!/usr/bin/perl -l
$_=pop;s^^^while+print^s^.^(($_=$?)+=$?=$&)-9*/../^ge

Score: 58.00 (pass)

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

Score: 59.00 (pass)

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

Score: 60.00 (pass)

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

Score: 63.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s|.|(($_=$?)+=$?=$&)-9*/../|ge;s|.||;$_&&redo}

Score: 65.00 (fail)

#!/usr/bin/perl -l
$_=pop;{print;s/./(($y=$x)+=$x=$&)%9||$&&&9/ge;s/.//;$_&&redo}

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/./(($.=$?)+=$?=$&)-9*($.>9)/ge;s/.//;$_&&redo}

Score: 66.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/./$y=$x+$&;$x=$&;$y-($y>9)*9/ge;s/.//;$_&&redo}

Score: 67.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/./$y=$x+$&;$x=$&;$y-=9*($y>9)/ge;s/.//;$_&&redo}

Score: 76.00 (fail)

#!/usr/bin/perl -l
$_=pop;do{print;s/(?<=.)./$&$&/g;s/(.)(.)/($1+$2-1)%9+1/gee;chop}while$_

Score: 77.00 (fail)

#!/usr/bin/perl -l
$_=pop;do{print;s/./$&$&/g;s/^.//;s/(.)(.)/($1+$2-1)%9+1/gee;chop}while$_

Score: 79.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/./$&$&/g;s/(^.|)(.)(.)/$2?($2+$3-1)%9+1:$3/ge;chop;$_&&redo}

Score: 81.00 (pass)

#!/usr/bin/perl -l
@_=pop=~/./g;while(@_){print@_;($z,@_)=map{$y-=9if($y=$_+$x)>9;$x=$_;$_=$y}@_}

Score: 84.00 (pass)

#!/usr/bin/perl -l
@_=pop=~/./g;while(@_){print@_;map{$_[$_]-=9if($_[$_]+=$_[$_+1])>9}0..@_-1;pop@_}