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


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

My version:
$n=int(rand(1001));print'>'; while(<>){++$i;last if$_==$n;$_>$n?$n--:++$n;print'Too ',$_>$n?'big':' +small',"\n>";} print"Won in $i tries\n";