In reply to https://twitter.com/jjmerelo/status/770546657419206656

maxones.p6

#!/usr/bin/env perl6

my Int $len = 16;
my $maxlen = 32768;
my $how-many =100000;
while $len < $maxlen {
    my $start = now;
    my int @ones[$len];
    for 1..$how-many  {
        loop (my int $i = 0; $i < $len; $i++) {
            @ones[$i] = Bool.roll;
        }
    my $maxones = @ones.sum;
#    say $maxones;
    }
    say "perl6-BitVector,$len,",now - $start;
    $len = $len*2;
}