Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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;::{ &::::::::-> ()}-> ();

[ 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 line 8

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://211713]
Approved by jryan
Front-paged by jryan
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2017-01-19 21:18 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (172 votes). Check out past polls.