Re: [FWP] japh

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

On Thu, May 11, 2000 at 06:28:50PM -0400, Michael Assels wrote:
> 		       On Thu, 11 May 2000 11:33:33 EDT,
> 			      John Porter wrote:
> 
> :eval { 62->lZRopcwjoXyup_yuGpXcxbyu() };
> :$@ =~ s/"(.*?)"/"ss"/;
> :print((split//,$@)[map{ord($_)-62}split//,$1],",\n");
> 
> OK, since we've given up on low golf scores and drifted into obscurity,
> I have a challenge:  Can anyone produce a JAPH containing no letters, no
> digits, no parentheses, no brackets, no braces, no spaces and no tabs.
> (Newlines are allowed to improve readability. :-)

#!perl
$\='`'|"'";$\++;$;='/'|'`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=
'%'|'`';$_.='`'|'#';$_.=$\;$_.='`'|'/';$_.=$".'"';$_.='@'|'*'&~'!';$_.="$:$,$/"
.$";$_.='`'|'!';$_.='`'|'.';$_.='/'|'`';$_.=$/.$\;$_.='%'|'`';$_.=$;.$";$_.='@'
|':'&~'*';$_.='`'|'%';$_.=$;;$_.='`'|',';$_.=$".$\;$_.='`'|'!';$_.='#'|'`';$_.=
'+'|'`';$_.='`'|'%';$_.=$;.'"'.$".'>&';$_.=$,&':';`$_`;
__END__

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe