-----Original Message-----
From: Scott Wessels [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 09, 2002 4:05 PM
To: Ronald J Kimball; Jonathan E. Paton
Cc: [EMAIL PROTECTED]
Subject: Re: Shortest JAPH?
> On Thu, May 09, 2002 at 08:14:29PM +0100, Jonathan E. Paton wrote:
> > > Just to save some of you experiementers some time, I'll share a failed
> > > attempt. In hindsight, it's pretty obvious that it should fail, but I
> > > felt like trying it anyway:
> > >
> > > perl -MCompress::Zlib -e'print compress"Just another Perl hacker,"'
> > >
> > > yields a 33 byte "compressed" version of the string. So, you'd need a
> > > program of length -1 to uncompress and print it. Back to the drawing
> > > board...
> >
> > Okay, here is an even less sucessful approach:
> >
> > 0 1 2 3
> > 012345678901234567890123456789012345
> >
> > print`perldoc perlembed`=~/= (J.*)/m
> >
>
> print`man perlembed`=~/(Ju.*)/
>
> Ronald
>
> P.S. Shouldn't you start counting at 1? :)
>
>further shaving, though it's all lowercase. perldoc perlfaq1: What is a
>JAPH?
>print`perldoc -qj`=~/"(j.*)"/
I know that it is pretty silly but one could accomplish further shaving with
alias pd=perldoc .
Hmm, I wonder does this even count of done in one's .bash_profile at login ?
