Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Woodchucks chucking wood

by newrisedesigns (Curate)
on Dec 19, 2002 at 03:39 UTC ( #221037=poem: print w/ replies, xml ) Need Help??

How much wood could a woodchuck chuck if a woodchuck could chuck wood?

package Woodchuck; my $wood = Woodchuck->chuck(); if($wood){ print $wood . " and " . chuck(); } sub chuck{ return "lots"; }

John J Reiser
newrisedesigns.com

Comment on Woodchucks chucking wood
Download Code
Re: Woodchucks chucking wood
by pfaut (Priest) on Dec 19, 2002 at 03:42 UTC

    The Oracle may have something to say about this.

    --- print map { my ($m)=1<<hex($_)&11?' ':''; $m.=substr('AHJPacehklnorstu',hex($_),1) } split //,'2fde0abe76c36c914586c';
      while ($supplicant->sputtering()) { zot($supplicant); }

      Garbage collection left as an exercise for the priesthood. :-)

      Peace,
      -McD
Re: Woodchucks chucking wood
by Aristotle (Chancellor) on Dec 19, 2002 at 08:52 UTC
    Cute. :)

    Makeshifts last the longest.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (12)
As of 2014-11-26 18:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (172 votes), past polls