i'm too lazy to play the game myself:

;$*=1000;$@=int rand$*;sub _{print@_}$%=
$*/2;for(;$%!=$@;$-++){;($%>$@)?$*=$%:$:
=$%;$%=int(($%>$@)?$%-(($*-$:)/2):$%+($*
-$:)/2);}_("Answer is $% ($- tries)\n");
[download]

-- ar0n (lazy bastard)