Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change


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 =).

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?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://47685]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (2)
As of 2020-01-18 11:34 GMT
Find Nodes?
    Voting Booth?