- 注册时间
- 2011-4-2
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 2111
- 在线时间
- 小时
|
发表于 2024-4-23 15:02:02
|
显示全部楼层
本帖最后由 BeerRabbit 于 2024-4-23 21:22 编辑
- WinCount[n_] := Module[{a = RandomInteger[{0, 1}, n], x, y},
- x = a[[# ;; # + 1]] & /@ Range[n - 1] // Count[#, {1, 1}] &;
- y = a[[# ;; # + 2]] & /@ Range[n - 2] // Count[#, {0, _, 0}] &;
- If[x > y, {1, 0, 0}, If[x < y, {0, 0, 1}, {0, 1, 0}]]];
- T = 1000000;
- (Table[WinCount[100], T] // Total)/(T 1.) // AbsoluteTiming
复制代码
结果(机器有点烂):
{313.627, {0.491272, 0.037728, 0.471}}
小明赢面大一点
|
|