Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Tribute

by the_slycer (Chaplain)
on May 15, 2001 at 11:53 UTC ( #80466=obfuscated: print w/replies, xml ) Need Help??

Not super obfu, but I simply felt that I had to.
#!/usr/bin/perl -w $_= q` MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MM''MM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM M' MM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM''' "IMMMMMMMMMMMMMMMMMMMMMMM M MM" +'MM MMMMMM'"M' MMMMMMMMMMMMMMMV' ""MMMMMMMMMM. 'MM M M' +.MM MMMM'M :M ;MV MMMMMMMMMM' "MMMMMMMMMM. ": M .l . +MMM MMM; M M :M' AMMMMMMV' "MMMMMMMMM. .'''. fM +MMM MMMM t t M: MMMMMM' 'MMMMMMM' MM +MMM MMMM. t . M AMMMMV 'MMMM"" ' '. .MM +MMM MMMMM . MMMMMV '. .. ; .MMM +MMM MMMM '"S" MMV *** *** MMMMMM.' MMMM +MMM MMMM. ; ' 'MMMMMM. MMMM +MMM MMMMM..'. .MM' MMMMMMM VMM +MMM MMMMMM AMMMMMV * 'MMMMMM. MM +MMM MMMMM' MMMMMM: * .. MMMMMMM M +MMM MMMMM MMMMMM: g@. ** .' @g : 'MMMM. +MMM MMMM' MMM''': :@: '. .' ..@@e : +.MM MMMN '' : '@@@@: '. .' .@@@@@ ........./MMM +MMM MMM : e@@@@. .' . .' A. .@@@@@' MMMMMMMMMMMMM +MMM MMM:..........: '@@@@@@@. ! '. - - - . '. .@@@@@@@@ MMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMM '@@@@@@@@@@@@. H .@@@@@@@@@@@@' MMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMM '@@@@@@@@@@@@@...@@'..@@@@@@@@@@@@' AMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMA '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .MMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMA @@@@@@@@@@@@"'O'OOOO'@@@@@@@' .MMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMA '@@@@@@@VOOOOOOO.OOO @@@V AMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMA '@@@@OOOOOOOOO.OOO@' .KMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMA '.DD.OOOOO.OO .AMMMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMMMA. OOOOO OOOO .MMMMMMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMA.. OOOOOOOOOOOMMMMMMMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMOOOOOOOOOO.MMMMMMMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM OOOOOOR.MMMMMMMMMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM---MMMMMMMMMMMMMMMMMMMMMMMMMMMM +MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM +MMM `;$_=~s[[M*\@V!"'.:;/\-\s]]]]g;$_=lc $_;@_= sort (map $_{$_}++,(split' +'));@]= sort keys%_;print $][@]-2].$][@]-4].' '.$][@]-6].$][@]-4].$][ +@]-5].$][@]-10].' '.$][@]-14].$][@]-5].$][@]-13].' '.$][@]-1]. $][@]- +9] . $][@]-14] . $][@]-5] . $][@]-7] . $][@]-2].' '.$][@]-11].$][@]-4 +].$][@]-3].' '.$][@]-14].$][@]-6].$][@]-6].' '.$][@]-1].$][@]-9].$][@ +]-12].' '.$][@]-11].$][@]-8].$][@]-2].$][@]-9]."!\n";

Replies are listed 'Best First'.
Re: Tribute
by tachyon (Chancellor) on May 17, 2001 at 08:10 UTC
    It's a real pity about that 69 char line wrap, 80 cols would be nice
    It looks great without all those MMM blank lines, so I trimmed it for display
    5 minutes with an editor or 20 seconds with perl, I choose perl
     
    tachyon
    #!/usr/bin/perl -w $_= q` #!/usr/bin/perl -w $_= q` MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MM''MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM M' MMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM''' "IMMMMMMMMMMMMMMMMMMMMMMM M MM"' MMM'"M' MMMMMMMMMMMMMMMV' ""MMMMMMMMMM. 'MM M M' . M'M :M ;MV MMMMMMMMMM' "MMMMMMMMMM. ": M .l .M ; M M :M' AMMMMMMV' "MMMMMMMMM. .'''. fMM M t t M: MMMMMM' 'MMMMMMM' MMM M. t . M AMMMMV 'MMMM"" ' '. .MMM MM . MMMMMV '. .. ; .MMMM M '"S" MMV *** *** MMMMMM.' MMMMM M. ; ' 'MMMMMM. MMMMM MM..'. .MM' MMMMMMM VMMM MMM AMMMMMV * 'MMMMMM. MMM MM' MMMMMM: * .. MMMMMMM MM MM MMMMMM: g@. ** .' @g : 'MMMM. M M' MMM''': :@: '. .' ..@@e : . N '' : '@@@@: '. .' .@@@@@ ........./MMMM : e@@@@. .' . .' A. .@@@@@' MMMMMMMMMMMMMM :..........: '@@@@@@@. ! '. - - - . '. .@@@@@@@@ MMMMMMMMMMMMMM MMMMMMMMMMMM '@@@@@@@@@@@@. H .@@@@@@@@@@@@' MMMMMMMMMMMMMM MMMMMMMMMMMMM '@@@@@@@@@@@@@...@@'..@@@@@@@@@@@@' AMMMMMMMMMMMMMM MMMMMMMMMMMMMA '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .MMMMMMMMMMMMMMM MMMMMMMMMMMMMMA @@@@@@@@@@@@"'O'OOOO'@@@@@@@' .MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMA '@@@@@@@VOOOOOOO.OOO @@@V AMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMA '@@@@OOOOOOOOO.OOO@' .KMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMA '.DD.OOOOO.OO .AMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMA. OOOOO OOOO .MMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMA.. OOOOOOOOOOOMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMOOOOOOOOOO.MMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM OOOOOOR.MMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM---MMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM `; # dissection s#[M*\@V!"'.:;/\-\s]##g; # $_=~s[[M*\@V!"'.:;/\-\s]]]]g; tr/A-Z/a-z/; # $_=lc $_; @_ = sort split //, $_; # @_= sort (map $_{$_} = 1,(split'')); for (@_) {$_{$_} = 1} # takes two lines! @]= sort keys %_; # @]=qw(a d e f g h i k l n o r s t); # now we just grab chars out of @] via the syntax $][$index] # interstingly $#] is a syntax error so you actually need to #call @] in scalar context to get the array length, in short: @index = qw(12 10 14 8 10 9 4 14 0 9 1 14 13 5 0 9 7 12 14 3 10 11 14 +0 8 8 14 13 5 2 14 3 6 12 5 15); push @], (' ', "!\n"); print $][$_] for @index; pop @];pop @]; # long form print $][@]-2].$][@]-4].' '.$][@]-6].$][@]-4].$][@]-5].$][@]-10].' '.$ +][@]-14].$][@]-5].$][@]-13].' '.$][@]-1]. $][@]-9] . $][@]-14] . $][@ +]-5] . $][@]-7] . $][@]-2].' '.$][@]-11].$][@]-4].$][@]-3].' '.$][@]- +14].$][@]-6].$][@]-6].' '.$][@]-1].$][@]-9].$][@]-12].' '.$][@]-11].$ +][@]-8].$][@]-2].$][@]-9]."!\n";
Re: Tribute
by FouRPlaY (Monk) on May 15, 2001 at 20:54 UTC
    Now that is freakin' cool. Well done. Well done.

    Of course, the mice not think so highly of it.....



    FouRPlaY
    Learning Perl or Going To die() Trying
Re: Tribute
by muzakfetch (Scribe) on May 16, 2001 at 07:55 UTC
    Ahh? Maybe Deepthought was running VB,
    thereby screwing up the answer to live the universe and everything.

    And if you are really lost, go read The Hitchiker's Guide to the Galaxy series by Douglas Adams.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://80466]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (2)
As of 2023-02-04 15:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (31 votes). Check out past polls.

    Notices?