The Turtoise and The Hare

The Turtoise and the Hare are having a race.
The Turtoise is T, the Hare is H.
both can slip back.
first to get to the finish line wins.

save to a file and run multiple times to get the feel of it.

@t=qw/3 3 3 3 3 -6 -6 1 1 1/;$|++;
@h=qw/0 0 9 9 -12 1 1 1 -2 -2/; {local$\=pack'H*', 
"42414e472121210a414e442054484559275245204f464621210a0aH";
print+$:;}$_=$i=$t=$h=$?;while(1){$i=int(rand()*10);
$t+=$t[$i];$i=int(rand()*10);$h+=$h[$i];$t=$t<0?0:$t;
$h=$h<0?0:$h;print+$_==$t?$_==$h?'X':'T':$_==$h?'H':'.' 
for(0..65);print+$t==$h?'OUCH!':'';print "\t\r"; 
select undef, undef, undef, .4;$t>64 and die pack 'H*', 
'0a547572746f6973652077696e730a';$h>64 and die pack 'H*', 
'0a486172652077696e730a';}
[download]

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/

Comment on The Turtoise and The Hare Download Code

Replies are listed 'Best First'.
Re: The Turtoise and The Hare by Rhose (Priest) on Feb 27, 2003 at 16:08 UTC
The hare was winning way too much for my taste, so I had to modify their movement. `@t=qw/3 3 2 2 2 1 1 1 0 0/; @h=qw/0 0 9 9 -6 4 3 -1 -1 -2/;` [download] Now, after another 15 minutes of wasting my life, I can get back to work. Grins	[reply] [d/l]
Re: The Turtoise and The Hare by Nkuvu (Priest) on Feb 26, 2003 at 21:34 UTC
Do you perchance mean tortoise? ;) And from your sig -- "He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life." That really depends on the question, don'tcha think? (oooh, I'm so funny today)	[reply]