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

["Michel Lambert" <mikelambert@home.com>]

Oops. Screwed up with the reply-to button. Sorry about the duplicates,
Abigail. :)

If I count the number of non-repeating characters in the following JAPH, I
find fourteen.

$$aa =
  qq ((pprriinntt  qq  ""JJuusstt  aannootthheerr  PPeerrll
HHaacckkeerr""));;
$$aa =~ s((((((((((((.)))))))))))((\11)))($11)gg;;
$$aa =~
s((((((((((((....................................))))))))))))(($11))ee;;

The following only has eight non-repeated characters, which includes robin's
trick for eliminating one of the non-duplicated characters.

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

On another note, can anyone help me with these Lisp/Scheme nightmares I've
been having recently?

Mike Lambert



----- Original Message -----
From: "Robin Houston" <robin@kitsite.com>
To: <abigail@foad.org>
Cc: "Sean McAfee" <mcafee@transmeta.com>; <fwp@technofile.org>
Sent: Saturday, March 31, 2001 8:59 AM
Subject: Re: [FWP] JAPH made up entirely of double-chars?


> 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 (..??)
>
>  .robin.
>
> --
> "It really depends on the architraves." --Harl
>
> ==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
> ==== Send email to <fwp-request@technofile.org> with message _body_
> ====   unsubscribe
>



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