Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

The Tao of Programming, Chapter 9

by Felonious (Chaplain)
on Nov 10, 2002 at 04:17 UTC ( #211713=obfuscated: print w/replies, xml ) Need Help??

Okay, so I'm one of those guys who always skips ahead and reads the last chapter before I've gotten very far into the book!
This is "Book 9", the last chapter of the "Tao of Programming" series. This time I decided to do an obfu instead of "perl poetry", as I'm still sharpening my skills in this area as well. Hopefully I've gotten a little better at making these things less readable. ;)

update: corrected windows problem, with thanks to BrowserUk
#!/usr/bin/perl { package Tao::Book::9; # The Epilogue } $_='n j h f d c b b a';sub ::x(){${2**0-0**0}};sub ::s(){$_=qq]$1]}; sub ::'&'{$_[0]}sub :{*$=*g;*<=*a;@$= split, 'tao' }; sub ::1{*>=*_; &::::::};sub ::2{print`clear`;}sub ::3{ system'cls'}sub ';' {\&x; $a =&s;$b=q;();}sub yang {*#=*d;qq{ 11| 15| 22| 34| 40| 44| 48| 5| 51|} .qq{"35|"58|.57|:33|M16|P23|T1|T36|a17|a28|a54|a8|e10|e14|e20|e31|e} .qq{39|e53|e56|f41|g26|h13|h2|i37|k9|l52|m29|m30|m38|o25|o42|o46|o5} .qq{0|p7|r21|r24|r27|r32|r43|s18|s4|s6|t12|t19|t49|u3|u47|v55|y45};} sub ::::::{$% = join'',a..z;s/\n//sg;s/, /,\n/g; m:;(.*?);:s; *+=*b; s();eval $_;exec x();}sub yin{join'',($/x(2),(map{$_->[0]}sort{$a->[ 1]<=>$b->[1]}map{s/(.)(\d+)//g;[$1,$2]}split/\|/,$_[0]),$/x(3));}sub a{($%,$@)=($@,$%)};sub ::::::::{$a=q{$b-> (); 0, ((((((($>=$<))), (( ((((((((((tr/()\n/x/c)))), (((((((((((((((( s(x)[]g)))), ((((((((((( tr/()/X>/),(((((($< = $>)))))), (((((((((((((@>=map{index$k,$_}( @$, reverse@$)),((((@%=split$/,$<,((($<= $>))))))), (((((((((((((((((((( (((shift@%))))))))), (((((((((((((((((((((@% = map{($"x(shift@_)).$_ .$/}@%))))))))), (((((((((((((((((((($@=("@{%}"))))))))))))), (((((( ( ( (((((((((($@=~y(X>)[<X]))))) )))))) ))))), ((( (((((((((((((($%= "@{%}"))))))))))))))))))), (((((((((((($g=::{($^O=~/Win32/)+2})))))) )))))))))))))), ((((((((((($g=&$g))))))))))))) )))))))))), ((((((((( $<=::{&$g }))))))))))))))))))))))), ((((($+=yin(yang( ))))))),(( ))) ))))))))))), (((((( )))))),(()))))))))))), ((((())))))))))))))))), ( (((( )))) ))))))))), ((( ))) ))));$i=::{$<->(a());print$%,$+}; sleep &$i while($/);};s;$_;$a;; print '';};*%=*k;::{ &::::::::-> ()}-> ();

[TINPC@perlcabal.com shh]$ su real

Replies are listed 'Best First'.
Re: The Tao of Programming, Chapter 9
by jryan (Vicar) on Nov 10, 2002 at 04:32 UTC
    It seems like whenever I start to feel that the Obfuscated Code section is beginning to become a mindless repetition of beginner JAPHs, nodes like this come along and make me smile. :)
Re: The Tao of Programming, Chapter 9
by BrowserUk (Pope) on Nov 10, 2002 at 04:27 UTC

    Nice felonious++. Real nice. It must have taken ages to get the curves to look right?



    Nah! You're thinking of Simon Templar, originally played (on UKTV) by Roger Moore and later by Ian Ogilvy
Re: The Tao of Programming, Chapter 9
by Mr. Muskrat (Canon) on Nov 12, 2002 at 16:34 UTC

    I initially skipped this node thinking "not another Tao of Programming node!"

    This morning I was looking at the front page and I saw that I haven't voted on it yet so I decided to read it and try the code.

    What was I thinking?!?? This is not just another Tao of Programming node... It is the best! WOW!

Re: The Tao of Programming, Chapter 9
by explorer (Chaplain) on Jun 23, 2007 at 13:32 UTC

    With Perl 5.8.8:
      Illegal declaration of subroutine :: at tao9.pl line 8
    :-(

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://211713]
Approved by jryan
Front-paged by jryan
help
Chatterbox?
[ambrus]: "you are far more likely to be squished between two other dudes" => wait, really? aren't most planes, weighted by people traveling on it, so narrow that there are only two or three seats on each side of the one corridor, so only one third of the people ge
[ambrus]: t squished between two other people?
holli is about to take the first hit since a month and this weed is strong shit. Should my head explode, someone call 911.
[ambrus]: And even when I traveled on a big plane for a long flight, it had 3 seats, then corridor, then 4 seats, then corridor, then 3 seats, so less than half of the people sit between two other dudes.

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (10)
As of 2017-12-18 13:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (486 votes). Check out past polls.

    Notices?