- Create a 324 bit vector:
vec($row, 323, 1) = 0;
- A value in square 21:
vec($row, 20, 1) = 1;
- A 5 in row 3:
vec($row, 81 + (3 - 1) * 9 + 5 - 1, 1) = 1;
- Dump the result as binary:
print unpack("b*", $row), "\n";
vec($row, 323, 1) = 0;
vec($row, 20, 1) = 1;
vec($row, 81 + (3 - 1) * 9 + 5 - 1, 1) = 1;
print unpack("b*", $row), "\n";