For循环输出到列表mathematica

Question

我似乎无法将这些混乱的输出输出到列表中，我知道代码很糟糕，但是可以正常工作。 它从循环的每次迭代中获取一个值，我需要将其输出作为列表。 我可以手动执行操作，但要使用1000多个值会很麻烦...预先感谢您的帮助。

For[r = 1, r <= 5, r++, 

 draws = 1000;
 FredList = 
  Reap[For[i = 1, i <= draws, i++, 
     Sow[RandomSample[Join[Table["a", {16}], Table["b", {16}]], 
       2]]];][[2, 1]];
 tally = Tally[FredList];
 Sort[tally][[All, 2]];
 rules = Rule @@@ tally;
 {{"a", "a"}, {"b", "b"}, {"b", "a"}, {"a", "b"}} /. rules;
  Plotpoints = {{"a", "a"}, {"b", "b"}, {"b", "a"}, {"a", "b"}} /. 
  rules; Print[Plotpoints[[1]]]]

Answer 1

只需将Table用于外部循环即可。

With[{draws = 1000, maxr = 5, 
  pop = Join @@ (ConstantArray[#, 16] & /@ {"a", "b"})}, 
 Table[
  Count[Table[RandomSample[pop, 2], {draws}],
   {"a", "a"}], 
  {maxr}]
 ]

Answer 2

可以使用Sow and Reap（或其他列表工具，例如AppendTo）代替“打印”：

Reap[For[r = 1, r <= 5, r++, draws = 1000;
    FredList = Reap[For[i = 1, i <= draws, i++, 
    Sow[RandomSample[Join[Table["a", {16}], Table["b", {16}]],2]]];][[2, 1]];
    tally = Tally[FredList];
    (*Honestly, I don't understand the effect of this Sort here*)Sort[tally][[All, 2]];
    rules = Rule @@@ tally;
    {{"a", "a"}, {"b", "b"}, {"b", "a"}, {"a", "b"}} /. rules;
    Plotpoints = {{"a", "a"}, {"b", "b"}, {"b", "a"}, {"a", "b"}} /.rules;
    Sow[Plotpoints[[1]]]
]][[2, 1]]