Perl 6 bitwise

Just something I threw together together while playing with Perl 6's bitwise operators. Haven't really tried to golf it and the obfuscation is fairly obvious. Runs fine under Rakudo, haven't tested any other implementation.

my $s=' ';say 'N'~&'K','t'~|'a','w'~&'s','v'~&'u',$s,'i'~&'e','l'~|'b'
+,'m'~|'b','p'~|'d','x'~&'i','g'~&'m'~'z'~&'s',$s,'c'~&'v','o'~&'y','p
+'~|'d','v'~|'a','m'~&'y','r'~|'a','d'~|'a',$s,'n'~|'a','c'~&'z','d'~|
+'b','t'~|'a','r'~|'a','b'~|'a','i'~&'c','v'~&'u','k'~&'y','n'~|'a','l
+'~|'b';
[download]

Tip: ~| is | in Perl 5 and ~& is & in Perl 5.

Comment on Perl 6 bitwise Download Code

Replies are listed 'Best First'.
Re: Perl 6 bitwise by moritz (Cardinal) on Aug 25, 2009 at 08:05 UTC
Just want to hijack this thread to point to my new Perl 6 obfu (written yesterday). It uses ordinary arithmetic (+, -, , /, *) and a bit of magic :-)	[reply]
Re^2: Perl 6 bitwise by carlin (Beadle) on Aug 25, 2009 at 11:05 UTC
That's deserving of its own node, even if it does look more like Brainf**k (with asterisks rather than pluses, hence the spelling) than Perl ;)	[reply]
Re^2: Perl 6 bitwise by Anonymous Monk on Aug 25, 2009 at 08:55 UTC
Nice try, but I'm not falling for it :)	[reply]