Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

poop

by PipTigger (Hermit)
on Dec 21, 2000 at 04:47 UTC ( #47685=obfuscated: print w/ replies, xml ) Need Help??

#!/usr/bin/perl #require poop;#use poop;#poop poop; my$poop=["poop","poop","poop","poop"]; my@poop=("poop","poop","poop","poop"); my%poop=("poop","poop","poop","poop"); sub poop{ print"poop,",$poop #poop.... [0],",",reverse($poop[0]),",",$poop { sprintf($poop -> [1] ,$poop=~s/(poop)/$poop/, ($poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]], $poop[$poop{$poop->[$poop[$poop{$poop->[0]}]]}], $poop{$poop->[$poop[$poop{$poop->[$poop[0]]}]]}, $poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]])= ($poop{$poop->[$poop[$poop{$poop->[$poop[0]]}]]}, $poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]], $poop->[$poop[$poop{$poop->[$poop[$poop{poop}]]}]], $poop[$poop{$poop->[$poop[$poop{$poop->[0]}]]}]) ) } ,"\n"; } poop;
It's really not too obfuscated but I tried =). At least it's a palindrome. The reverse() in there kinda depends on it =).

-PipTigger
p.s. Initiate Nail Removal Immediately!

Comment on poop
Download Code
Re: poop
by runrig (Abbot) on Dec 21, 2000 at 06:23 UTC
    Just title it "Mr. Toad's not too overly obfuscated perl code."
    :-)
    Update: For those who have no idea what I'm talking about, see this.
Re: poop
by extremely (Priest) on Dec 21, 2000 at 16:39 UTC
    That is a bunch of work to go through just to print some sh!t =) Though I'm glad that I now have a post marked "Re: poop" on here...

    --
    $you = new YOU;
    honk() if $you->love(perl)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://47685]
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: (12)
As of 2015-07-02 18:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (44 votes), past polls