Штош, выглядит отлично! На Mathematica:
- Создаем случайную строку в троичной системе. Убеждаемся, что 3-tuples распределены достаточно равномерно:
Код:
init = RandomInteger[{0, 2}, 50000];
Multicolumn[Tally@Partition[init, 3, 1], 3, Frame -> All]

Переводим в двоичную, смотрим на те же тройки:
Код:
data = IntegerDigits[FromDigits[init, 3], 2];
Tally@Partition[data, 3, 2]
