Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
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 scrutinizing the Monastery: (6)
As of 2014-07-29 00:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (211 votes), past polls