RE: just another Perl highlander

> -----Original Message-----
> From: Jose Alves de Castro [mailto:[email protected]] 
>
> I was trying to do a japh with a twist. Kind of a:
> 
> print "Just another Perl highlander\n";
> 
> but not using each character more then once...
> 
> This is what I got so far:
> 
> 
> #!/usr/bin/perl
> $_=lc(q{#uS69A0oThE4:%'R.?HIG*LaN&er});
> y[\x1f-@]<XVQZJYPd-v >,
> 
> 
> It does what I want it to do, but uses two "r"s and two "-"s. 
> If anyone  could offer me some other suggestion, I'd be much 
> appreciated :-) (this  has probably been tried before, but I 
> couldn't find anything on it...)
 
Jose,

I saved a copy of this a while back, and was able to dig it out of the FWP
archive:

  s{}[k:'Ej2Z-G8R*a0F9Nc?D5&)+|],$_^=q<!OT1JS4B3P7XA`#K"CW%VMLYv>;print

Thanks to Ronald J. Kimball for providing that code in this message:
http://www.mail-archive.com/[email protected]/msg03044.html

Seems like a good starting place for your project.  The problem is that you
have a limit to the number of characters you can use, and this approach uses
2 characters per output character.  Also, you've immediately ruled out
nineteen characters: s{}[],$_^=q<>;print

You're looking at a 28 character string, so we'll need 75 characters to
create this line.

Good Luck!

Chris


LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential and may be privileged. It is intended for the addressee(s) only. Access to this E-mail by anyone else is unauthorized. If you are not an addressee, any disclosure or copying of the contents of this E-mail or any action taken (or not taken) in reliance on it is unauthorized and may be unlawful. If you are not an addressee, please inform the sender immediately.