Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

poop

by PipTigger (Friar)
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 exploiting the Monastery: (6)
As of 2014-09-20 08:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (157 votes), past polls