Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Mad Cows?

by Anonymous Monk
on Mar 10, 2005 at 02:56 UTC ( #438140=obfuscated: print w/replies, xml ) Need Help??

$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!?

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://438140]
Approved by Tanktalus
Front-paged by deibyz
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2018-06-20 00:38 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.