On Tue, Aug 14, 2001 at 02:03:09PM -0400, Michael J Assels wrote: > I don't have a copy, unfortunately, but I remember the author's > name: Peter Beebe.
Thank goodness for the web archive! http://web.archive.org/web/19971211155944/www.perl.org/wits.html http://web.archive.org/web/19980110061045/www.perl.org/wits-a2-3b.html Can anyone revise the below so that it works with Perl 5? .robin. From: Peter Beebee <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Subject: revision Reply-to: [EMAIL PROTECTED] Date: Sat, 21 Sep 1996 01:33:20 PDT # I've revised my original entry - the # code is now more general. The top part # of the code sets @_ to be an array of the # ascii values of the characters to be printed. # The bottom part does the printing. ++$|;$* =$|+$|;$$=($** $*+$|)**$**$*;$,=$$* $*;$'=$,+$| --;$+=$***( $**$*);$;= $,-$*;@_=( $,-$+-$*- $*,$',$,+ $+,$',$;+ $+,$+*$*, $$+$+,$',$' ,$;,$',$'); $_=$];$#=$*='(.)' ;$#.=$*;$*.=$#;$#.=$#;($/, $\,$$)=/\$\$.$*:/;($@,$_,$&,$+,$') =/:.($#)/;$:= $/++;$/++;$*= $'++;$'++; $;=$'++;$$ ++;$$++;$$ ++;$#= $$++;$#=$& ..$/.$#.$' ;$'=$$++ ;$$++;$$= $_.$:.$/. $$;$:=$+ ++;$;=$_. $:.$'.$;. $\;$+= $+.$_.$*.$' .$\;$,=++ $|;$'=$,++ ;@'=($#,'`'. $@,'-'.$&,'"' .$;,$$.'(\''.$/.($,+$#_),'\',',$+, '(/','/,','\'',@_,'\'))"`', $'.'>&'.$,);`@'`;