Re: [FWP] JAPH made up entirely of double-chars?

[abigail@foad.org]

On Sat, Mar 31, 2001 at 01:59:56PM +0100, Robin Houston wrote:
> On Sat, Mar 31, 2001 at 02:18:13PM +0200, abigail@foad.org wrote:
> > Here's a JAPH that uses double characters most of the time. (I didn't
> > double whitespace outside of strings, such trivialities can be easily
> > added). Perhaps someone can improve it.
> > 
> > 
> > $$aa =
> >   qq ((pprriinntt  qq  ""JJuusstt  aannootthheerr  PPeerrll  HHaacckkeerr""));;
> > $$aa =~ s((((((((((((.)))))))))))((\11)))($11)gg;;
> > $$aa =~ s((((((((((((....................................))))))))))))(($11))ee;;
> 
> One obvious improvement is to change (.) to (..??)


Yeah. And if we are allowed to ignore whitespace, there is:

##s
s(())((pprriinntt  qq  ""JJuusstt  aannootthheerr  PPeerrll  HHaacckkeerr""));;
##s
s((((((((((((..??)))))))))))((\11)))($11)gg;;
##s
s((((((((((((....................................))))))))))))(($11))ee;;


But even without the '##s' trick, it improves over the chars that are not
doubled.



Abigail

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