Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
I wrote this as a tribute to my younger brother, who unfortunately passed away when he was only 23.

Yesterday was his birthday; he would have been 39 years old.

Of course I can't be certain, but I suspect he would have liked Perl.  He always had the kind of mind that enjoyed mathematics, puzzles, and games, and I'm quite sure that he would have gotten a kick out of programs like this.

The program is similar in appearance to Latent Japh and Japhy New Year, but uses a completely new trick, which, by its nature, does a better job of "randomizing" the ascii output.  Can you figure out how it works?

Update:  On Windows, the module "Win32::CONSOLE::ANSI" is required.  On Linux, you'll need to run it with "perl <program>", since it doesn't have the shebang line.

$_=' ` ` ````` ```` ` `` `` ``` ` ``` ```` ` ```` `` `` ``` +`` ` ` ``` ` `` ` ```` ```` ` ``` ` ```` ` `` ` ` ` ` ` ````` ` + ``` `` ` `` `` `` ` ``` ` ``` ` ` ``` ````` ``` ` ` ``` ````` `` + ` ` ` ``` ` ``` ` ` `` ``` ` ` ``` ` ` ` ` ``` ````` ````` ` +``` ` ` ` ` `````` ````` ```` ` ``` `` `` ` ``` ````` ` ` ` +` `` ` ` `` ` ` ` `` ` ` `` ` ` ` `` ` ` `` ` ` ` `````` `` `` +`` ` ``` `````` ```` ````` ` ``` ` ` `` ``` ` ` ` ``` ` ` ` + ` ```` ` `` ` ` ` ` ` ` ` ` ` `.`` `` ,; ` ````` ``` `` ` ` ` + ` ` ` ```` ``````` ``` `` ` `` ` . ` ` .>bx!.,:;!|;.,`` ` ` `` ````` + ``` `` ` ` ``` ` ```` ` ` ` ,.., ` ``:!ob)Fp>;,``` !:` ` ` `` `` +````` ` `` ` ` ` ``` ` `````,!|:;. ``,,.;<bEF(!.````;>o!` ` ``` +` ```` ` `` ``````` ` `` ` ` ` ;!<o<!: ``` `,:<op(b<. `` .<o. ` `` `` + ``` `` ` ` ` ` `` ```` ` ` .<xoo><<!:,. ` `,..>pEFMWo` .. .x<` ` ` ` ` +```` ` ` ` ` ` ``` ` ` `:xoxbpxoxpo<:,`` ` .<(WM@#F:`:<>:.x;` ``` `` ` + ` ` ` `` ```` ` ` ` ``` ;p)()(WWE)pbo>; ` ` `,|<pFME)!,:pFp:<> ` `` ` `` + ` ``` `` ` ` ` ` ` ` ` `|(WM@@WWMW()o<:;,`````,|obp(b(>.|(WWMp))` ```` +` ````` `` ` ` ` ` ` ` ;pM#@@@@#WF)bo>>!:.. `.;|<oo<)o;|)@@#MFM) ````` +` ` ` ` ` ` ` ` ` ` `.oM#@#@##@MWE)pxxo>>>:.,;:<>x>!x>;|(#@#@#)Mx ` ``` + ` ` ` ` `` ` ` `` ` ``` )W#@#@####@MMWEEFE)()x|;.;|><!!|!!)M#@#W#W@#<` ` ` + ```` ` ` ` ``` ` `` p##@#@#@##@#@###@WMF)p(bbxxo!:||;|b@#@WMEFW@@@. ` ` +` ` ` ` `` ` ` ` p@#@#@#@@@@#@@@@@@WMMF(WWMpox<<>!.x###@EM@EM#@@< ` ` + ` ` ` `` ` `` `` `` o@#@#@@###@@@##@#@@###M#F()xox<|<>!(#@@#WW#MW@##F,``` +``` `` `````` ` `` ` ##@##@###@@##@@#@#@##WMWM)poooopob>oW@@#MW#@@##@#( ` ` + ` ` `` ` ` ` >#@#@@#@#@@##@@#@@##@@#@#@M#W(b)F(b><)EMWEE@@@###@#>``` + ``````` ` ````` `` ``#@####@#@###@#@#@@@#@#@#@@@WWFE(((>|:pbFFE@@##@###@# ` + ` ` ` ` ```` ` ` `` `;@##@##@#@#@#@#@@@#@@#@##@#MWF)xxxo;..>>(WW@@@@@##@#@o`` +` `` `` ` ` ` ```(@@@#@#@#@@@@@@####@@@#@@@MWFp<><!;.,;>!x@#@#@@##@@@@M` +` `` ` ` ` ` ` `` ``@@@#@#@#@####@##@##@#@#@#@MWEo|!;,` ,:!;>E@#@@##@#@##@`` +``` ` ` ` ` ` `` ``@@#@#@@#####@#@@@##@@####MWW(<::,``` .:::o##@@@@@#@#@@` + ` ` ` ` ```:#@@#@#@####@##@##@@@##@#MWE)x!.,```` .:;;!###@#@@@@@#@.` + ````` ``` ` `` `x#@@@#@@@#@@@#@###@###@MWE)b>;;.` ` `.;::!)@@##@###@#@.` + `` ` `` `` ``` ` )##@###@##@@@#@@@####MMF)bx!;, ```` ``,;,;!xE@##@##@@@#;` + ``` `` ` ` ` ` ``F#@@@@#@@@@##@@@@#F(ppoo<|; ``` `` .`.,.,<>pE####@@@##; + ``` ``` ` `` `` ````F@@##@##@#@###@#Ex<!;::., ` ` ``...;.:!>xb(###@##@#<` +` ` ` `` ` ` `)####@#@#@##@#@b>.,.`` ``` ` ` ,:!:>obo<|oo<o)@@@#@@@b` + ` `` ` ``` `` ``<#@#@#@#@###M)x!:;;.,````` ` `,,:>bFFEFF(WM)(pxx@##@##@W` + ` ` ` ` ` ` ` ```,@@##@#@##@#Wb>>!|:.,..` ,. `;!o(W@@W)x>>o(F)xoE#@##@## +` ```` ``` ``` )#@@@##@@#@Mpoppboo<>!:,.`.``;<b)F)(>|:!!<xoboxp#@#@@@# +`` ` ` ``` `` ``````@@####@@@#MMW#@@@##@W(o<;:, .>opbpb(F))x>!|>xxxM@@@###` + ``` `` ` ` ``` `` @@@#@@@@#@@#@WFEM##@@W)x!,,`.|opbbF@@#MME>||xxoE@@#@##: +`` ``` ` `` ` `` `` `p##@#@#@@@##Fo<<>p)@#@W(o:,.;!>p)>oEMbxxx>|:!>>(@##@#@> +` ` ` ` ` ` ` `,@@@#@###@##b<>o(##@(#@EE>:,;!!><>!><:.:.;:;;>>bM@@@#@o +` ` ` ` ` ` ` ```@@#@#@#@##)p(WME@@F<)WEMb!.:||;|<!:,,.,,,.,;<>x)##W#@p +`` ` ` `` ` ` ` `)@@#@##@@Fxb@@(ob)<|<(MF(>,;<<:!;:;;.,.:...,|<op@E<b#x +` ``` ` ` ` ```` ` ` >###@###WE)((o|::|:!|p@EFx;,!>|!;;;,:,`..,,.!>obEp><#. + ` ` ` `` ` `` ` .#@##@#@WFpo>:;|;;.:<)MMFx!.;>!!::,...,..,.,!|xpb><<W + ` ` `` ```` ` ` ` ```#@#@#@@Wp>>!|;,:;,:|(EMEb<.;|<|:;....,` .,;:!xb>|!>b + ``` ``` ```` `````` `` ` (@@#@##Wpx>;:;,..;:;)EWM(>:;;>!!::;,,,``...,|ob||!>:` + ` ` ` ` `` `` ` ``@@@#@#Wp<|;,...,.,|bEMM)<,.:|<|!;:;,,....;;!op|::>,` + ` ` ```` ` ` ` `@#@@@#M(>!;...,.,,;bMMW(>.`,:<!|;;||,..,.::|<b:;<<` + `` ` `` ` ` ` ```M@@@###)x<|::,.,,,|)MWEp!..,:<>!;;!>!,,.:;|<<p>:x| +`` ` ` `` ``` `` `` ```,#@##@#Eo<|:.,,,,.<)MEMEo|:!x)Eo>|!xo|;;:!<>>pM)(, ` + ```` ` ` `` ``` ` ```E@##W@Mp<||;,,,,.oEE(M##FpxbpEb>|!xxo|||!<><p@@#|` +` ` `` ` `` ` `` ` >@MWE@#Fx<|;,,..:bWMW@#@W()bx>>|!;|<<>>!;><<p@@#(` +`` `` ` ` ``` `` `` ``` ` ,W)(EW#M)x>;;.,.;x(FEM@MF))<:|><|::,:><::<|>oE#@#(` +` ` `` `` ` ``` ` ` `pFEFE#W(o>|!:.;;>oxp()o>!;;;:!|:|!.:;|.:>!>x(@###) +!` ` ``` `` ``` `` ```,MWME@WM(x>||!||!><<oo>!::.,,:!|||<!;;.;>;|xo##@@# +M`` ` ` ` `` ` ``` `M##@MM)bo<><||<<xopx>|:,.;;:<p))x;,..!>;|px@@@@# +@``` ``` ` ` ` ``` ` ``:#@###E)p><;.|ooxoo>!|!:;|p(WEb|:,``.<<;>px(@#@# +, ` `` ` ` ` ````` ` ` ``` `,:)MEEb!p>|op)(E)((())((()p>!:.. `,>|!ox>E@@#, +`` `` ` ` ` `` ` ` ` ````` :MWM(><:.<)M#M@MEbx<>:!!>!,..,`,;>|<p>!(@@( +` `` ` ` ` ` ` `` ` `````FWMEb!:..;<o(px>!;;.`:!|::,, `,!|>oo!>oW#! +` ````` ` ` ` ``` `` `` ` ` ``<WWW)<:`,:|>xo>|;:;:,.;;;.:;.,;!|<x>;;>>#@x +` ` ` ` ` ` ` ` ` ` `` ` p#WWx|,,||<>><!;|:::;;,.::,..:<!>x|:|!.>#@ +M.` ` ` ``` `` ` ` ` ``` ` ``` ` )@WMo,;!|>><||!!|;;;,.,.,,.:!!><<::!.`,F# +@#!` ``` `` ``` `` `` ``` ` ` ` .W#WE<.!><<<!!!:;;;;.,.;.;:!;|>x;::, ` <@ +##@<``` ` ``` ` ``` `` ` `` ` `;W#M(>><<<>!;:;;:::,.,,:.;!|<>>.,.`` o# +@#@#E `` ` ` ` ` ` `` ` ` ` `` `!M#W)<<o<>!:;;::;;.,,..;:|<<>:, ` `E# +@##@@@, ` `` ` `` ` `` ``` ` `` ```<#@Ebxox>|!;:;:::,,.:;;|!>>>,``` ``.#@ +@#@@##@F ``` ` ` ` ` ` ` ``` `` oM@(boo><|::;:.,...,;||<oo;``` `b@# +@@##@@#@ `` ` ` `` ` `` ``` ``` `` ` F#W(bo<<!!:,.,,.,.::!><o<``` ``;@@# +#@#@@@@# `` ` `` `` ` ``` ` `` ` ``` ` #W#M)(x><!;;.,..;;;|<<b<, ` `` ,M@## +##@#@##@ ``` ``` ` ` ` ` ``` ``` ` `p@#EE@#Fbx>>!:;,:::||>xpx; ` ```E@#@@ +###@##@@ ` ` ` `` ` `` ` ` `.(##@#Mx)##E)x<|!!|!!!|<pbo!` ` `(@##@@ +@#@#@@## ` ``` ` ` ` ` ` ` ,(@###@@#o<E@@M(o<<><><oxppo|,` `` (@###@( +#@##@### `` ` ````` `` ``,)@####@@#@F!!E@#W((pbppb()b>:;` :(@##@@W! +@#@@###@ ``` ` ` `` ` `` !F##@##@###@#@x;<E@##MMWWWW(o<|;. ``o#@@@#E,| +##@@@#@# ` ` `` ``` ` ` ,xM##@##@#@#@####F!|<(##W@@#M)>!!|,` ` ``>##@@).`> +#@@@#@## `` ` `` ` ` .x##@@@#@@@###@##@@W!|!x(W@@WFx>!>>. ` ;..#@@): ) +#@#@@##@ ` `` ``````` ```:(###@#@####@#@##@#@@@;|;:x(W#Wbo<>o| ,|)E@@#)@@p`` .@ +#@@@#@@# ``` ` ``` ` o@@###@@@@###@@@#@###@@#!:!;:|xMM(oxx>oW#@#@####@|` ` |# +@@#@@@@@ `` `` ````;(#@@#@@@#@@#@@#@@#@@#@@#@M<>>>|;.|)M@EW#@##@#@@@#@@` `(# +#@#@###@ `` `` `,p@@@@@#@####@##@@@#@#@@###@##@@@#W(<>E##@#@##@#@###@@@. ` #@ +#@#@#@@# ``` .p##@##@##@###@##@@#@###@##@####@@@##@#@@@#@#@###@##@@@#@(`` ,#@ +##@@@#@# ` ,oW#@@@@#@@@###@##@@@@###@##@###@#@@###@#@@##@@@#@@####@@#@@ `,@@ +@@@@@### !W@#@@@@##@#@@@####@#@#@@@@@@@@####@@##@@##@##@###@#@@###@###;``|@# +@##@#@@# ` .M@###@@#####@@####@#@####@@@##@@##@#@#@@#@#@@@##@@#@#@@@@###@|` p@@ +##@#@#@@ )##@###@##@@##@####@@@#@#@#@#@@#@#@#@@#@@@#@@@##@@##@@#@#@@@#@| M## +#@#####@ `,#@#@@@##@@#@@#@#@#@@@##@#@@@##@##@##@#@#@#@@@#Wbo)#@#@#@###@@#` @@# +#@##@@## `p##@@#@##@###@#@####@###@##@#@####@@#####@##(oo .;!|>pEWMWMM(>` :##@ +@##@##@# `@@##@#@@@#@@#@#@#@@##@#@@@####@#@##@#@#@##@x,`` ` `.;.... ` ` `x@@@ +##@@@@@# ,@#@@@#@@#@@@##@##@@###@@@#@@#@#@#@##@#@##W! `` ` ` ` ``` `` (@#@ +@@@#@#@@ >#@@@##@#@@@#@@#@@@##@##@#@@#@#@#@@#@#@M@p,` ` ` ``` ```` ``` `@@## +@#@@@##@ x@@####@@@##@@##@#@@@@#@@@#@@@#@##@@Fbx|:` ` ` ` ` ``` `` ` ` |#@## +@@#@@@@# b#@@#####@#@@@##@@#####@@#@###@#@@#@;. ` ` ` `` ``` ````` ` `o##@# +@@@##@## F@#@@@@@@@@@#@######################, , E';s, +\n,,gxm; while(s&(.{7})&&){$x=64;$y=0;$z=$1;while($x){$z=~s-(.)--x;$w=$1;##by l +iverpole ($w=~/[\@WF)bo>|:.`]/)and$y+=$x;$x>>=1;}$y and$v.=chr($y)}eval$v#March + 25,2006

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

In reply to Birthday Tribute 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
  • Outside of code tags, you may need to use entities for some characters:
            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 scrutinizing the Monastery: (7)
    As of 2014-09-22 10:34 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      How do you remember the number of days in each month?











      Results (188 votes), past polls