Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

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

Replies are listed 'Best First'.
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. :-)

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

    Makeshifts last the longest.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://221037]
Approved by rob_au
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2017-07-27 06:14 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (404 votes). Check out past polls.