Re: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network

I tweaked the code just slightly:

my $i = 1;
my %occult = map { $_ => int ($i++ / 9) + 1} ('A' .. 'Z');
my $news = 'FOX';
print join( '', map $occult{$_}, split '', $news ) . $/;
[download]

Now it prints out "123". Does that mean that Fox is not evil, but progressive?

Or does it mean that these mathematical co-incidences are just meaningless, and people wishing to claim that Fox is evil should just back it up with information about what Fox broadcasts?

--
use JAPH;
print JAPH::asString();

Comment on Re: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network Download Code

Replies are listed 'Best First'.
Re^2: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network by Anonymous Monk on Jun 18, 2009 at 14:54 UTC
Who said 666 was evil? Does this mean you're just expressing your bitterness over things you have no control of? :)	[reply]