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

RE: Fun - Each character at most once

From:
csebe
Date:
July 17, 2003 14:29
Subject:
RE: Fun - Each character at most once
Message ID:
DAEEJBNAPAICFNHJOIFGGEMJCJAA.csebe@fx.ro
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:

@J=@I=(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"){splice@J,abs($I[0]),1,$_;$I[1]*shift@I>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:rjk@linguist.Thayer.dartmouth.edu]
> Sent: Thursday, July 17, 2003 7:25 PM
> To: Steffen Muller
> Cc: fwp@perl.org
> 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
>




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About