Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

RE: 'nother P(erlython) Hacker

by mt2k (Hermit)
on Sep 10, 2000 at 03:49 UTC ( #31775=note: print w/replies, xml ) Need Help??


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";

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://31775]
help
Chatterbox?
erix (and now ... beer )

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (10)
As of 2017-11-22 13:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (324 votes). Check out past polls.

    Notices?