排列组合

treenewbee

另有一问：

仍是49选 6一共13983816个组合，如果读取保存在d:\6m.txt 文件中的随机生成的6000000个组合，不重复取出生成到d:\new.txt,如何最快？

香川群子

应该有n种做法：

方法-1：
a. 生成Combin(49,6)=13,983,816 即将近1千4百万个组合保存在VBA内存数组中
b. 数组洗牌提取 6,000,000 即6百万个随机不重复组合、并存入txt文件。

方法-2：
a. 提取或生成 6,000,000 即6百万个随机不重复组合序号
b. 根据随机序号计算组合结果、并存入txt文件。


猜测：
如果提取数远远小于组合总数，则第2种方法可能更快。

否则一般情况下，绝对是第一种速度快。


我有空把2种代码都写一下，然后测试对比。

香川群子

代码完成了。
居然是第2种方法速度快……我猜是因为49选6一共将近1千4百多万的组合结果，光是VBA数组就占了很大内存，影响了速度。

取6百万个随机序号，然后按序号生成组合结果……大概耗时30秒左右。

treenewbee

多谢群子。我的意思是现在已有600万组数据（可能有重复）保存在外部文本文件，如何去重复最快？

香川群子

treenewbee 发表于 2014-5-7 22:51
多谢群子。我的意思是现在已有600万组数据（可能有重复）保存在外部文本文件，如何去重复最快？

去重复？

如果你的外部文件是数字的组合，如49选6这样的结果，
那么可以把结果计算转换为组合字典顺序序号，然后直接比较序号是否重复即可。


…………
如果需要写代码，那么你上一个Txt文件。

香川群子

600万个组合结果的Txt文件，有102M这么大。

treenewbee

香川群子 发表于 2014-5-7 23:21
600万个组合结果的Txt文件，有102M这么大。

客户说他的文件有的达到800M了

香川群子

提取txt文件中组合结果，检查是否重复并分开。

香川群子

刚才测试了49选6，发现根据序号计算组合的算法，比直接生成组合结果要慢一倍多。

因此，如果抽取个数在全部组合数的一半左右或更少时，显然根据序号计算组合结果的算法有绝对优势。


尤其是，需要随机乱序时，好处有：
1. 不需要事生成全部组合 → 这样省去了大量内存
2. 可以用Long整型数值数组快速得到随机乱序 这也是节约时间的重要因素

随机概率

生成的结果13,983,816行数据，每行都和2200行开奖结果的数据进行比对。请问能否用vba实现？