http://qs1969.pair.com?node_id=221037

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

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. :-)

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

    Makeshifts last the longest.