http://www.perlmonks.org?node_id=31778


in reply to 'nother P(erl|ython) Hacker

i'm too lazy to play the game myself:
;$*=1000;$@=int rand$*;sub _{print@_}$%= $*/2;for(;$%!=$@;$-++){;($%>$@)?$*=$%:$: =$%;$%=int(($%>$@)?$%-(($*-$:)/2):$%+($* -$:)/2);}_("Answer is $% ($- tries)\n");

-- ar0n (lazy bastard)