Подсчитайте количество голов в наборе в Mathematica

Question

Прежде всего, спасибо за все ваши ответы. Я делаю все возможное, чтобы идти в ногу со всеми предложениями. Однако я стараюсь не сбиться с пути.

Так что теперь у меня есть

s = Table[RandomChoice[{Heads, Tails}, 2 i + 1], {i, 10}];

Далее я хочу посчитать количество «голов», которые встречаются для каждого «я».

Я могу сделать это для одного случая .... скажем, 5,

n = RandomChoice[{Heads, Tails}, 5];
n1 = Count[n, Heads];

Но у меня проблемы с расширением ....

Еще раз спасибо.

p.s. что за голоса? Слишком просто?

Answer 1

Карта (/@) функция подсчета голов в списке:

Count[#, Heads]&

каждому подсписку в s. Следовательно:

Count[#, Heads]& /@ s

Answer 2

Если вы выполняете симуляцию бросков монет, я считаю, что BinomialDistribution - это то, что вы хотите.

Histogram[
  Count[#, "Heads"] & /@
    Table[RandomChoice[{"Heads", "Tails"}, 9], {25000}]
]

BarChart@Table[PDF[BinomialDistribution[9, 1/2], k], {k, 0, 9}]

Кстати, символ Heads является встроенной функцией и, вероятно, его не следует использовать так, как вы его используете.