Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Pascal

Idiom #68 Create a bitset

Create an object x to store n bits (n being potentially large).

procedure Task;
var
  x: Set Of Byte;
begin
  x:= [2,4,8,16,32,64,256];  
end;

when the set contains less than 256 elements the built-in Set Of construct can be used.
uses classes;
procedure task;
var 
  x: TBits;
  n: integer;
begin 
  n := $FFF;
  x := TBits.Create(n);
end;

when the set contains more than 256 elements the class TBits must be used
#include <vector>
std::vector<bool> x(n, 0);

This will create a vector of n bits initialized to 0.
New implementation...
< > ⌨
programming-idioms.org 
procedure Task;
var
  x: Set Of Byte;
begin
  x:= [2,4,8,16,32,64,256];  
end;
procedure task;
var 
  x: TBits;
  n: integer;
begin 
  n := $FFF;
  x := TBits.Create(n);
end;
std::vector<bool> x(n, 0);
std::bitset<n> x;
new BitArray(n);
BitArray x;
x.length = n;
final x = FixedBitArray(n);
x := make([]uint64, (n+63)/64)
x := make([]bool, n)
var x *big.Int = new(big.Int)
x :: Integer
x = sum [bit i | i <- [1..n], wannaset i]

let x = new Buffer (Math.ceil (n / 8))
BitSet x = new BitSet(n);
(let ((x (make-array n :element-type 'bit))))
$x = new BitSet($n);
vec($x, $n, 1) = 0;
x = bytearray(int(math.ceil(n / 8.0)))
class BitSet:
    def __init__(self, n):
        self.a = [False] * n
    def __getitem__(self, i):
        return self.a[i]
    def __setitem__(self, k, v):
        self.a[k] = v
    def __str__(self):
        s = ('01'[x] for x in self.a)
        return ''.join(s)
x = BitSet(n)
x = 0
let mut x = vec![false; n];