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