Message-Id: <200106032357.TAA07773@smtp6.mindspring.com> Date: Sun, 3 Jun 2001 17:21:21 -0500 From: Monty Harder <kclug@ware.cx> Subject: Re: Perl Puzzles
6/2/01 6:02:49 PM, Mike Coleman <mkc@mathdogs.com> wrote:
>If you fancy yourself a Perl programmer and are looking for a little
That reminds me... I think I told someone I'd post these 3 lines...
$B="bottom of the sea.\n";$N="n the ";$A="There's a ";@T=($H=hole,"log",knot,"
frog",wart,hair,fly,flea);for$V(0..$#T){for$R(a,b){&p($A);for$P(reverse(0..$V)){
&p($T[$P]," ",(($P>1)?o:i),$N);}&p($B);}&p("$A$H, "x 3,i,$N,$B);}sub p{print@_;}
Note that the newline between the opening double-quote and the word 'frog' is significant to prevent mid-word
wrapping on an 80-column terminal. This, is, of course, deliberately smaller and therefore obfuscated.
--------------E7365D537AD5254D647C196D