Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!swrinde!cs.utexas.edu!uunet!rbj
From: rbj@uunet.UU.NET (Root Boy Jim)
Newsgroups: comp.lang.perl
Subject: Re: JAPHs (was Re: Perl-Users Digest #673)
Message-ID: <127220@uunet.UU.NET>
Date: 1 Apr 91 23:11:23 GMT
References: <1991Mar31.205115.10270@uvaarpa.Virginia.EDU> <1991Apr1.042852.4350@eng.umd.edu> <1991Apr1.175858.23200@iwarp.intel.com>
Organization: UUNET Communications Services, Falls Church, VA
Lines: 20

In article <1991Apr1.175858.23200@iwarp.intel.com> merlyn@iwarp.intel.com (Randal L. Schwartz) writes:
?In article <1991Apr1.042852.4350@eng.umd.edu>, ziegast@eng (Eric W. Ziegast) writes:
?| How about having a contest for the best Perl hack that will print the
?| "standard" perl signature?  When run, such a hack should produce the same
?| results as:
?| 
?| 	print "Just another Perl hacker";
?| 
?print unpack("a8X5ax4a3X7ax6aX3a2xaX9ax3aX4ax7a2X6a2x4a","Just anoherPlck,")

One problem with these signatures is that quite a few of them
can be reduced to mere subscript transposition. 

I suppose my best one to date starts by generating pi/4
(the base idea inspired by merlyn).

$%{Just}=' another ';$%{perl}=' hacker,';print%%;
-- 
		[rbj@uunet 1] stty sane
		unknown mode: sane