Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
This Japh needs gvim 7.0 installed.  (Note that it has to be version 7.0; earlier versions won't support the scripting commands used).

When I wrote this Japh, I didn't know any vim-scripting, so I had to take a more basic approach.  Shortly afterwards I devised the algorithm for this one, and thought if I could learn enough vim scripting commands, it shouldn't take more than a couple of days to program.  Surprisingly, it took a lot longer than expected, but partly because, as it evolved, I kept wanting to get it "just right".  One challenge was "golfing" the vim script to make it all fit into the Japh.  (If you know any vim commands, you'll see a lot of command abbreviations :-D).

It's been tested on both Windows and Linux.  When you get tired of watching it run, just type ^C to stop.  It does create a temp file "v.tmp" which can be deleted afterwards.  If there's any interest, I may also provide the "meta-program" which generates the Japh.  Of course, it would be fun to see if anyone can figure out the mechanics of how it works first.

s''::jjJjJ:rBBRscCC[kkKjj:JjJ*>>NN>NnFvvV2brrrBb:JZ::jj**:ZJ::JJJ*::jj Jj::JBTtTDT4=[sR2rRRr*[k;ZnNn>>.>Dus37GG7GGW7BbrBBZjjjJj::*JjjJ:jZJjZZ *::JbRtddDeUuDbBBr2BrRFnoO/>N.^VB4UCWWGwWWGggffv6brJZjjl,<j*Zk;,l<Jj:j jJ:jRbtd2scSrdtCbbhhHid*:<Q?`Phb2DDVfVvggFFfVFvFFvVV6*L,<L,lJ=-L<%L:jJ JJ:J*Zdtcs2brdiwwx8Vw9el:<xIYxT2rTHvVvvg7vfgwfvFfggfFii1A=L<]M]]-<<LZJ j:j*:Zl=m<@xXX7WIhfVG7UT2TXFWSRbbXhfffhyix8y98Fffw7fwIhHh`qP@m]<<%%lZj ZZ:ZZ*@AQ@hXhf7GIXhXyIudBdhVC3brFHhbr6fwWRBgcrbvfcCbg9HHXH`P`a1@@LLlJj :jn.Nn@a?>6Vf6FgxHF6f7BrBtxRSsRvvHxrBfFG7BRSwFBr2gwbCgyyyYXxP1q@pp@>^j j:JJZZ0A?N^gG6FfvHHfvvrTsED2scFVFxX6v6FgwBBgwvrRvGG2Rf6XHyIxhQ1@P,:*:Z j<<ZjjlMk:>/_W6VFvXh88DcsEDbswvVvGI4tfgWFrBww6BbwWgbsvFF0q9XxE=lLZ::*j *%%jJ*:Zk[Jj+K?G6FvV6FcsCBbryyVvFF7Sc7GfFRBvwgC3F_w2bw77?=,Td4MM+:jZJ* :L,**:Zj:;[jjjKkCC7wgGSCrBbgyhF6FfvBBfvvvSsFF6Rb.NFvFrbR*:L4D,<Zj::Zjj jLl::*jZZJ:k;JZj[[CcCCnVFVwGV6V.66FbrFFfnssVvFF.nZjRBrRrjZRtl%^^Z:*:Zj :<%jjjJj:<,l-+J:j:lL*:ZbtuwFHxN^hxvt5iH>.Og8XDd<jJ*:brBBbjjjLn>>.JZ*J: j<l:*:Zj<@^jjlMo?;-m[;KCuDbbt%>6Hhhvww@`.;]t2Br<l::*:rR2BZj::^nnnJj::* Z<,J:jj%%>N*:j%PN:%L*::*TDBR%,*BdtBB[kllJmEB2RZlL:jjZZRBrJ:j:n^NN:ZJ*: :,L::JZ,,>_k;;]pnkKlA?/QXrRBmQ_/0Dbw7cm-6IE2C??q`^::+ooSwvN;;.o__JJ*:j Z,<Zj::%lonJj:E9VSsW<l%M76B[apjk=`*Fgctxvee[nn:=1nN+kNNw7gn;cwWoo**:JZ Z%,::Jj*Tx6fFH9_>;[jj%l3wVS_pLj*M=:.o3Hxb3u8^Zl=m.?K:n>BcCJ+;jFFrbjZZ: J*<tDBrbrgi=M-;o>;k^n``gg6;?P<ZJ]=2FgWX%rCcXXPnAQn/;[_wss[Z[kj::2bb2:: RBr2bb2BCO>Zjj[o.;_nJJbswfk_nJJ*;cr6gs6.:C3v.**;]jK[rFH4BZj;=%nnjRtDB* r22RBrBrC7>ZZjko>[/FbrRcw>:;?.:kK>j>?k:j>O+<^^jmm:^cshxdL+:]=@XVFTdtTj BBrBrrRbbwwCCkk/.KCV6FfwO^jZkoO_nJj^nkk;J?OZ<@Pq/>jZ;o1]k:RCE4FfbbtL:: *ZZ*BBRrRbrBrBB*::jjJjZZ*::J::*ZZ*::J::j:j:ZZ*::J::J:Rr2BbBBbr2jZjJj:Z ';s!$/!!g;s!%!\\!g;sub l{int((-42+ord pop)/16)}while(s/(.)(.)(.)//){$" .=chr(2+5*(5*l($1)+l$2)+l$3)}eval$"#liverpole~Just+another+Perl+hacker

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

In reply to Visually-Interlaced Mesmerizing Japh by liverpole

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!
  • 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?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others contemplating the Monastery: (11)
    As of 2015-07-07 09:02 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









      Results (88 votes), past polls