We've got SPAM...


No such thing as a small change
	PerlMonks

We've got SPAM...

by ktross (Deacon)

on Apr 01, 2005 at 15:06 UTC ( [id://444206]=obfuscated: print w/replies, xml )

Need Help??


use subs 'Spam','eggs','Eggs','and','spam';$spam='spam',
$.=(split(//,$spam))[2],@eggs=$...$spam,,$eggs[25]=' ';
sub Spam{++$_}sub eggs{--$_}sub spam{$_-=5}sub SPAM{$_==0;}
sub Eggs{$_+=5}sub and{print @eggs[@spam[0..23]],','}@spam=(

# We've Got
(Eggs Spam Spam Spam Spam),(Eggs Spam Eggs),(spam Spam Spam Spam),,,
(Spam),(Eggs Spam),(eggs spam spam eggs spam eggs eggs spam eggs),,,
(eggs eggs Eggs Eggs Eggs),(Spam),(Eggs),(spam spam eggs eggs),,,,,,
(spam Spam Spam),(Eggs Eggs Eggs eggs eggs),(Eggs Spam Spam Spam),,,
(spam spam),(spam spam eggs),(Spam Eggs Spam Eggs Spam),(spam eggs),
(Eggs Eggs Eggs eggs),(spam eggs spam eggs eggs spam),(spam eggs,,,, 
eggs),(Spam Spam),(Eggs Eggs eggs eggs),(spam eggs),,,,,,,,,,,,,,,,,
(Spam Eggs Spam Eggs Spam)),,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

and Spam
[download]