想要模拟这么一个问题：
房间内 100 个人，每人有 100 块，每次随机给另一个人 1 块，最后这个房间内的财富分布是怎样的？
我想用条形图动态的更新每个人的钱数，
这是我的代码：
people = Table[100, 100];
While[True,
If[AnyTrue[people, # == 0 &], Break[]];
# - 1 & /@ people;
For[i = 0, i < 100, i++, people[[RandomInteger[{1, 100} ]]]++;];
Dynamic[BarChart[Sort[people]]]
]
然后我发现，根本不输出图标，该怎么解决？

DynamicModule[{people},
people = ConstantArray[100, 100];
Dynamic[
If[Min[people] > 0,
people -= 1;
++people[[#]] & /@ RandomInteger[{1, 100}, 100]];
BarChart[Sort@people]]
]