Things are not what they seem at first blush with this JAPH. Kudos to those who ascertain what's going on.

This JAPH is only known to work on Perl 5.8.0, having been tested successfully on the following configurations:

When I say "only known to work" I don't mean "known only to work", in other words, it may work on a lot of systems, I just don't know for sure. It is known not to work on the only Perl 5.6.1 system I have access to (5.6.1 built for arm-linux). So far I've only found it to work on systems with Perl 5.8.0.

Your mileage may vary, as it relies on internal workings of Perlish things that I won't describe so as not to spill the beans. Suffice it to say, it is quite possibly very build and OS specific. For that reason I was hesitant to post it. But with that caviet in mind, I hope that it works for enough of you to make it a worthwhile effort.

No flashing lights and scrolling text this time, but it was still fun to work my way through. Here it is! 

%x=(qw/10 24 37 4,12,17 87 5,19 90 20 92 10,14,22 97 9,18 100 
0 103 21 104 16 108 6 113 7 114 13 119 11,15,23 122 2 123 3,8 
125 1 /);for$i(0..125){$h{$i}=0;if(exists$x{$i}){for(split/,/
,$x{$i}){$t=scalar%h;$t=~/\d+/;$z[$_]=chr$&}}}print@z

[download]

Oh, and whitespace is significant, so take care if you tinker with it much. Let us all know if it works with your implementation of Perl.

Enjoy!!!

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein

In reply to Byte Buckets JAPH by davido

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.