$"x=5;$%=$_%5&4?$@=~s&$&chr$%&e&$@=~s&.{5}&0>print$"^=$\&&e&0:$%*4+$_%
+5^3
for+map{.2*ord,ord,.04*ord}split??,"\$;>Hs>w\6/6galqUadRFH6e-EEun?\@j\
+rY"

[download]

This is essentially an optimization of last year's Since JAPH seems to be popping out all over. Hopefully it's still just as even more inscrutable.

This almost hit all of my optimization targets:

  1. no parens
  2. no whitespace (other than \n)
  3. use warnings; and use strict; clean
  4. a single statement, aka one-liner. Because of initialization, it's actually two statements
  5. use statement-modifier foreach (needed in order to satisfy some of the above conditions)
  6. 2 equal length lines (<80 chars)

I really wanted to have the line break between the for and the map, since unlike punctuation, those can't be run together. However I was not quite able to convince the program to collapse into anything smaller. Making the top and bottom lines equal length at least is pretty trivial as there's always a spot here or there to throw in an extra character.

In reply to Everything old is new again by whio

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.