develooper Front page | perl.fwp | Postings from July 2003

RE: Fun - Each character at most once

July 17, 2003 14:29
RE: Fun - Each character at most once
Message ID:
So, this list is live again, huh?
(I re-subscribed 2 month ago and after 2 weeks of silence I thought there is
something wrong with the mail server since no email was coming...)


Ronald, I'm a beginner in JAPHS but I managed to see what's the idea in
yours. (Of course calculating the strings pairs for the expected XOR result
is beyond my fun capabilities ;-)

Now, here I am with my first try at a JAPH. I hope the idea behind it
complicated enough. I promise to perpetual improve it, though 8-) Here it

foreach(split//,"Josh rectal
print @J;

Apologizes to Josh, if there is a Josh on this list ;-)

I know there were some JAPH tutorials on the net, with many examples and
different "styles". Any idea?

Lian Sebe, M.Sc.
Freelance Analyst-Programmer

> -----Original Message-----
> From: Ronald J Kimball []
> Sent: Thursday, July 17, 2003 7:25 PM
> To: Steffen Muller
> Cc:
> Subject: Re: Fun - Each character at most once
> On Thu, Jul 17, 2003 at 05:24:17PM +0200, Steffen M?ller wrote:
> > Richard Proctor wrote:
> > >What is the most "interesting" program that is restricted to
> > >use each ASCII character at most once?
> >
> > Anybody who can do a JAPH like that?
> s{}[k:'Ej2Z-G8R*a0F9Nc?D5&)+|],$_^=q<!OT1JS4B3P7XA`#K"CW%VMLYv>;print
> Enjoy!
> Ronald
> Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About