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...)
Anyway... 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 is: @[EMAIL PROTECTED](0,-7,2,-9,-18,4,12,-11,-15,-23,10,14,22,-20,3,8,-5,-19,16,-17,13,-1,6 ,-21,24); foreach(split//,"Josh rectal Punk\n")[EMAIL PROTECTED],abs($I[0]),1,$_;[EMAIL PROTECTED]>0&&redo;} 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? Thanks, Lian Sebe, M.Sc. Freelance Analyst-Programmer www.programEz.net > -----Original Message----- > From: Ronald J Kimball [mailto:[EMAIL PROTECTED] > Sent: Thursday, July 17, 2003 7:25 PM > To: Steffen Muller > Cc: [EMAIL PROTECTED] > 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 >