Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

This is sadly not as obfuscated as i would like. It is an attempt at obfuscation wherein the engine is not easily understood, in hopes that that will provide a nice groundwork for a good obfu. I just hope the engine is as hard to figure out for others as it was for me :-/

Please tell me what you think,

sub{$0[1]=[reverse+1..$_[0]];{sleep sub{system('clear');print$",join$" +,(map{ $==$_;map($0[$_][$=]||'|',1..3),$/}reverse+0..-1+pop)}->($_[0]);@1[1,3 +,2]=([ 2,3],[1,2],[1,3]);@{$0[3]}==$_[0]||sub{join('',$_[1]?$0[1][$#{$0[1]}]= +=1?$_[ 3]?($_[3],3):$_[2]?($_[2],2):($_[1],1):($_[1],1):$_[3]?$0[3][$#{$0[3]} +]==1?$ _[1]?($_[1],1):$_[2]?($_[2],2):($_[3],3):($_[3],3):$_[2]?$0[2][$#{$0[2 +]}]==1 ?$_[1]?($_[1],1):$_[3]?($_[3],3):($_[2],2):($_[2],2):$|)=~/(.)(.)/;pus +h@{$0[ $1]},pop@{$0[$2]}}->(0,sub{($0[1][$#{$0[1]}]?!$0[$1[1][@{$0[1]}%2]][$# +{$0[$1 [1][@{$0[1]}%2]]}]?$1[1][@{$0[1]}%2]:$0[1][$#{$0[1]}]<$0[$1[1][@{$0[1] +}%2]][ $#{$0[$1[1][@{$0[1]}%2]]}]?$1[1][@{$0[1]}%2]:$%:$,,$0[3][$#{$0[3]}]?!$ +0[$1[3 ][@{$0[3]}%2]][$#{$0[$1[3][@{$0[3]}%2]]}]?$1[3][@{$0[3]}%2]:$0[3][$#{$ +0[3]}] <$0[$1[3][@{$0[3]}%2]][$#{$0[$1[3][@{$0[3]}%2]]}]?$1[3][@{$0[3]}%2]:$, +:$-,$0 [2][$#{$0[2]}]?!$0[$1[2][@{$0[2]}%2]][$#{$0[$1[2][@{$0[2]}%2]]}]?$1[2] +[@{$0[ 2]}%2]:$0[2][$#{$0[2]}]<$0[$1[2][@{$0[2]}%2]][$#{$0[$1[2][@{$0[2]}%2]] +}]?$1[ 2][@{$0[2]}%2]:$-:$!)[($0,0..2)[1,3,2]]}->($@,@0[1,3,2]))&&redo}}->(po +p||3);

In reply to nesting annoyances by jynx

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, 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, 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.
  • Log In?

    What's my password?
    Create A New User
    [Corion]: (nothing that a quick SQL update can't fix in the input data, but why did the people organizing the test not plan that test under real conditions...)

    How do I use this? | Other CB clients
    Other Users?
    Others browsing the Monastery: (11)
    As of 2017-09-26 15:17 GMT
    Find Nodes?
      Voting Booth?
      During the recent solar eclipse, I:

      Results (296 votes). Check out past polls.