Mad Cows?

$s="asJti uohvbecnkr";@pi=qw/Moo moo Mooooo! Moo Moo moo?! Mooo! mooo! Moooo!
moo? Mooo moo mooo moo? Moo?! Moo moo?! moooo? Moo! mooo! Moo? moooo moo! Moo
Mooo! moo/;for(@pi){s!(m|M)(o+)(\?)?!($1eq'M'?1:2)*length($2)+($3&&$3eq'?'?1:
0)!ex;s/(.+)!/-$1/;$p=(($p||0)+$_)%16;print chr(vec($s,$p,8));}print$/;#Moo!?

Moo?

Comment on Mad Cows?

Replies are listed 'Best First'.
Re: Mad Cows? by shabble (Initiate) on Mar 11, 2005 at 00:53 UTC
oops, I thought I'd logged in. Anyway, glad you enjoyed it, my first real bit of obfuscation. Sprung out of an idea I had to create the 'moo' programming language, based vaguely on Oook, but with capitalisation and token length providing symbols, as well as punctuation.	[reply]
Re: Mad Cows? by bageler (Hermit) on Mar 10, 2005 at 18:40 UTC
hahaha! this is great! actually, i'm on a "cow of the day" mailing list and just forwarded this along. Wish I could give credit to someone who's not anonymous.	[reply]