Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: (Golf) The Animal Game

by particle (Vicar)
on Jan 24, 2002 at 03:29 UTC ( #141069=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
    use strict;
    ...
    
    no strict;
    while(w){($k,$v)=each%q;$k||redo;$u=$$v[a($k)];next if(g($u));while(($
    +l,$x)=each%q){next unless$$x[0] eq $u;a($l)?$y=$$x[1]:goto N;goto E i
    +f(g($y))}N:$b=i($u,$c=t);$q{$b}=[$u,$c];E:}
    
  2. or download this
    no strict;
    {
    ...
    END:
        }
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://141069]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2014-08-28 09:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (259 votes), past polls