Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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!

Replies are listed 'Best First'.
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)

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.

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?
[Discipulus]: which of 43 significance of NN?
[Discipulus]: NN?
[beech]: nobliest nodes
[Discipulus]: ah no newest nodes! ask something
[beech]: why is my butt itchy
Discipulus many countries without bidet.. is a big problem!

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2016-12-09 09:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (150 votes). Check out past polls.