Xor byte arrays, in Pascal

SetLength(c, Length(a));
for i := Low(a) to High(a) do c[i] := a[i] xor b[i];

std::array<std::byte, a.size()> c;
for (auto ia = a.begin(), ib = b.begin(); auto & rc : c) {
  rc = *ia++ ^ *ib++;
}

var c = a.Zip(b, (l, r) => (byte)(l ^ r)).ToArray();

integer(kind=int8), dimension(:) :: a, b, c
! Assign values to a and b
c = ieor(a,b)

var c T
for i := range a {
	c[i] = a[i] ^ b[i]
}

c := make([]byte, len(a))
for i := range a {
	c[i] = a[i] ^ b[i]
}

const c = Uint8Array.from(a, (v, i) => v ^ b[i])

int i, n = a.length;
byte c[] = new byte[n];
for (i = 0; i < n; ++i)
    c[i] = (byte) (a[i] ^ b[i]);

int n = a.length;
byte c[] = new byte[n];
range(0, n).forEach(x -> {
    c[x] = (byte) (a[x] ^ b[x]);
});

(map '(vector (unsigned-byte 8)) #'logxor a b)

local c = {}
for i=1,#a do
	c[i] = string.char(string.byte(a, i) ~ string.byte(b, i))
end
c = table.concat(c)

$c = $a ^. $b;

c = bytes([aa ^ bb for aa, bb in zip(a, b)])

c = bytes(map(xor, a, b))

c = bytearray(map(xor, a, b))

c = bytes(xor(*x) for x in zip(a, b))

c = bytearray(xor(*x) for x in zip(a, b))

c = a.zip(b).map{|aa, bb| aa ^ bb}

let c: Vec<_> = a.iter().zip(b).map(|(x, y)| x ^ y).collect();

Programming-Idioms