Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Perl 6 bitwise

by carlin (Beadle)
on Aug 25, 2009 at 01:18 UTC ( #790947=obfuscated: print w/replies, xml ) Need Help??

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';
Tip: ~| is | in Perl 5 and ~& is & in Perl 5.

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 :-)
      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 ;)
      Nice try, but I'm not falling for it :)

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://790947]
Approved by moritz
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2023-06-02 19:22 GMT
Find Nodes?
    Voting Booth?

    No recent polls found