Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Latent Japh

by liverpole (Monsignor)
on Sep 29, 2005 at 04:57 UTC ( [id://495976]=obfuscated: print w/replies, xml ) Need Help??

This looks best if run in a terminal window which is at least 42 lines long.  It works under both Linux and Windows.
#!/usr/bin/perl -w $_=' """")))))))))5CWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW +WWWWWW """)))))))))))CWMMMMMMMMMMMWWWWWWWWWWWWWWWWFWWWWWWWWWWWWWWWWWWWWWWWWWW +WWWWWW """"))))))))5CWWMMMMMMMMMMMWWWWWWWWFC55C5CFFFFWFWWWWWWWWWWWWWWWWWWWWWW +WWWWWW """"))))))555CWWWWWWMMMWWWWWWWWWC5C5))))))55)5CCFEEMWWWWWWWWWWWWWWWWWW +WWWWWW """"))))))555FWWWWWWMMMWWMMMWWFCL(()""::::(()))55LLEFWWWWWWWWWWWWWWWWW +WWWWWW """"))))))5CCWWWWWWWMMMWWMEMWFC5((("":,:."::())(444LEEFWWWWWWWWWWWWWWW +WWWWWW """"))))))5FFWWWWWWWMMMWWEEEFC))((:".,,,.."::))((44LLEFWWWWWWWWWWWWWWW +WWWWWW """")))55)CFFWWWWWWWMMMFFLLECCCCL4("... ,.""))))4LLCCFFWWWWWWWWWWWWWW +WWWWWW )""))))555CFWWMMMWWWMEEFCEEEC5))((()))"..,::)))55LEMFFFWWWWWWWWWWWWWWW +WWWWWW )"""))))55CFWWWMMMWMELCCCCL((::,,:""":(:"":(())))(((5LEMWWWWWWWWWWWWWW +WWWWWW )))))))555CWWWWWWMMEL5CC555((4LLLC))""::,,:())))))((((4CWWWWWWWWWWWWWW +WWWWWW ))))))5555CWWWWWWWWCC555555CWWWWWWF5""""..")555WWWWWWF5CFFWWWWWWWWWWWW +WWWWWW )))))55555CWWWWWWWWCC5555555CCWWWF))"((:."))C5(MMWWWFWF5CCFWWWWWWWWWWW +WWWWWW )))))55555CWWWWWWWWFC5)5))))""".."""":(())5555(::)))555CCCFFWWWWWWWWWW +WWWWWW )55(4444444WWMMMMMMLL55))):::::""":,:(44((4CF)((::::())5CCFEMMMMWWWWWM +MMMMWF 54444555444EWMMMMMMELL55((:::::,,.,,(4((:,:)CC:,::::((()5LEMMMMMMMMWWM +MMMEFF )((()))""(::"(MMWWWMLL544()"..` ,,."5(44)))555(,,,..":(4CLEMWWWWWMMMWM +MMWWFF )((()))))(4(54LMWWWMEL54(()"..` ,,..":::)))))):, `.."((45LMMMMMMMMMMWM +MMWWWF 5LL4444((((()((4FWWMML55((::,,,,,,.."::,""::"):,,...":((5LMMWWWWWWWWWM +MMWWWW ))(((44554(()((()5WMME5))(:::,,,."))""((((()))((:"."":(45CWMMMMMMMWWWM +MMWWWW ))))))))55555)")))))CFC5)))"....")5CFFWWWWWWFFC5"""""")55CWWFWWWWWWWWW +WWWWWW )))")"))))CCC5)"))(:(ME44()""".....")555CCCCFC):,,.""))55WW55CWWWWWWWW +WWWWWW """""""""")555))"":::(MM44())""""""""""""""")"":::""))55WWF)5CFWWWWWWW +WWWWWW .""..""""""."))")":,,")WMLL55)((((::"...,,:::))((()))5CWWF5)5CFWWWWWWW +WWWWWW ."..".".."...."")):,:,,,:4EWEEELL4((:,.` ,::")4445CFWWWF55)5CFFCWWWWW +WWWWWW ................."::,, ,(4CFEEEFFFFL4("":::)5CFMMMWF)"."")))555C5CWWWW +WWWWWW ..."".............,, `.5FC5FEL44((4LEEFFEEEWWFWMMMW)``.."..""""....5WW +WWWWWW ".".........```.`. `)FCCCCEEL55)))))55LLL55CCEEEF5```..."....``.```. +)WWWWW ..........```````` )CCCCCC5LL44444()))(44555CLLEC5```...```````````` +```)WW ......````````.``` )CCCCCCC54(((((()))44()55544455.```.````````````` +`````. ..,,,..```````````````.)55555555)))))))555))))55)5)))````````````````` +`` ..,,,```````````````````")))))))))))))))((()))((())).````````````````` +`` ..,, ``````` ``)))((:((::)))):(())(::""".` ```` `` +`` .` ``` ``` `.((::::::::"""::():::"""` `` `` +`` `` ```` `` ````` ``,((""""":::""::::::"""` `````` ` ```` +`` ,4( ). ```` `` ````` `` ,("""""""""":::::,""`` ` ```` +."5EE) )F: ```` `` ``` `` ,"""".:::".::,::,:``` ````````` ``." +)555FC )FEL(.``` `` ``` ::::,,,.".,::"": ``` `` ."") +)55LEF 5FELL5)"` ``` `` ````` :,,,."""":,:"". ```` ``,,:""") +)54LEE FFFC55)))".````````````````````."."..."..".".````````````````.))"""")) +)55LLF FFCC55)))))))""..``````````````."."""""."...````````````````)5)))))))) +555CCF WFFC55))))))))5)).`````````````...."""".....````````````````555)))))55 +5CCCFF WFFCC55)))))))))5"``````````````"..""""....`````````````````)5555)5555 +55CCFF WFFCC55)))))5555C"`.````````````".."""""..```````````````.`.CCCCC5555C +CCCCFF WFFCC55)))))555C5".`````````````````.""..```````.....````.."CCCCC55CCC +CCFFFF WFFCC55))))))55C5..```````````.````````````````````..")"``.)FCCC55555C +CCCFFW WFFFCC5555555C5C5".........`....`````````````````````.55CC5FFFFWFFC555 +5CCFFW WWFFCC555555CCCF5"."""```````````.``````.`````...")5CCCCFCCCCCCFFFFFC5 +5CCFFF WWFFCC55555CCCFW5".````."""."...".""))C55CCCCCFFFFFCCCCC5555555555CC55 +5CCFFF WWFFFCCCCCCCCCFW)"")")FFFFFFFC5CCCCFFCCFCCCC555555555))))))))))))5))55 +5CCFFF WWFFFFCCCCCCCFFW)`.)WWFFFFFCC5C5555))555))))))))))))"""""""""")))))555 +CCFFFW WWFFCC555CCFFFFWWFFWWFFFFFCC55))))))")))"""""""")"""""""""""))))))))55 +CCFFFW WWFFCC5CFFWWWWWWWWWWWWFFFFCC555))))))"))"""""))))))"""""")))))))))555C +CFFFWF ';s#[ \x2c\x3a\x28\x34\x4c\x45\x4d]#@#g;s#[^\n@]# #g;s#(^ +\n)+$##m;pr +int$_,

Replies are listed 'Best First'.
Re: Latent Japh
by McDarren (Abbot) on Sep 29, 2005 at 05:35 UTC
    heh... I think you have waaay too much spare time ;)
    But keep them coming... ++
Re: Latent Japh
by marto (Cardinal) on Sep 29, 2005 at 09:46 UTC
    <joke>Im sure I have seen this face on the side of a milk carton</joke>.

    Very nice work.

Re: Latent Japh
by muba (Priest) on Sep 29, 2005 at 10:23 UTC
    Not really hard to find out how it works, but the artwork (both the face and the letters) is great! ++
Re: Latent Japh
by mlh2003 (Scribe) on Sep 29, 2005 at 14:51 UTC
    Well done. It wasn't what I expected after running it... ++
    Code is untested unless explicitly stated
Re: Latent Japh
by wolfger (Deacon) on Sep 30, 2005 at 12:51 UTC

    Okay, that tears it... I'm going to find one of those sites that converts pictures to ASCII art, and just start putting #!/usr/bin/perl in front of the results, and see what executes.

      How did you know that's what I did?!!  :-)

      In a related vein -- you could use such a method to generate "Just another Perl hacker" using the digits of pi.  Taking 2 digits at a time to represent a single ascii value (offset by <space> = ascii 32) , all you have to do is search for the correct digit sequence.  Write a program to calculate pi to that number of places, convert the next 48 digits into 24 ascii chars, and you're done!  (You probably won't get a lot of votes for it, though, as it might take a few years to run!)

      Seriously though, I'm thinking of submitting the program I used to generate Latent Japh.  I need to clean it up a little first, and add some more user options (it's amazing how much the output can change with just a little tweaking), but I'll publish it once I've gotten it cleaned up.

        I'm not a mathemagician - but I'm guessing that since pi's digits are an infinite nonrepeating sequence, then it must hold true that any other finite sequence you ever wanted to see exists somewhere in the digits of pi (possibly unfathomly deep in the numbers of pi though). So in theory, you could just fine the digit position at which the ascii codes for the sentence "Just another Perl hacker" occur naturally in order in the digits of pi, and calc down to there and then print them out.
        A reply falls below the community's threshold of quality. You may see it by logging in.
Re: Latent Japh
by mikeock (Hermit) on Nov 08, 2005 at 20:25 UTC

    That's a great one. Not at all what I expected to see when run!

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://495976]
Front-paged by Dietz
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (2)
As of 2024-07-25 20:02 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.