Re: bitwise paper?

[ToddAndMargo]

My keeper file so far:

Perl: bitwise operators:
alias p5='perl6 -E'
alias p6='perl6 -e'


Bitwise AND:
    $ p6 'my $v = 32 +& 16; say $v;'
    0

    $ p5 'my $v = 32 & 16; say $v;'
    0


Bitwise OR:
    $ p5 'my $v = 32 | 16; say $v;'
    48

    $ p6 'my $v = 32 +| 16; say $v;'
    48


Bitwise shift left:
    $ p6 'my $v = 0b00000100 +< 2; say $v;'
    16

    $ p5 'my $v = 0b00000100 << 3; say $v;'
    32



Bitwise shift right:
    $ p5 'my $v = 0b00010100 > 3; say $v;'
    1

    $ p6 'my $v = 0b00110100 +> 3; say $v;'
    6


Bitwise XOR:
    $ p5 'my $v = 0b00101101 ^ 0b00001001; say $v;'
    36

    $ p6 'my $v = 0b00001101 +^ 0b00001001; say $v;'
    4


Bitwise Compliment (flip the bits):
    $ p5 'my $x = 0b00101101; my $y= (~$x); my $z= (~$y); say 
"$x\n$y\n$z"; '
    45
    18446744073709551570
    45

    $ p6 'my $x = 0b00101101; my $y= (+^$x); my $z= (+^$y); say 
"$x\n$y\n$z"; '
    45
    -46
    45


Bitwise "IN" (Does y exist in x):

    $ p6 'my $x=0b1001; my $y=0b0101; my $z=$x +& $y; say so $y == $z;'
    False

    $ p6 'my $x=0b1001; my $y=0b1001; my $z=$x +& $y; say so $y == $z;'
    True

    p5 not figured out yet