#!/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 =).
-
PipTiggerp.s. Initiate Nail Removal Immediately!