>>965
>意味不明
そりゃそうですよね・・・
すいませんでした。
一回実行するコードはこんな感じです。

dice010402 = Table[Random[Integer, {1, 4}],{22}]
dice010602 = Table[Random[Integer, {1, 6}], {3}]
count1[x_] := Which[x == 1, 1, x != 1, 0]
Sum[count1[dice010402[[k]]], {k, 1, 22}]
Sum[count1[dice010602[[k]]], {k, 1, 3}]

これを実行すると一回分の結果しか出ませんが，それを一度に複数回こなせるようなものに改良したいんです。
どうすればいいのでしょうか？