ArdentMan

楼主想生成所有彩票号码的字典？

那可是有p(33,6)*16=17721088种排列啊~~~

按每0.01秒输出一行计算，

批需要3小时4分35秒来完成输出，

按每一行至少7个数字6个空格1个回车1个换行15个字节计算(实际根本不止)，

生成的文本都有253.50M之大，

因此批断然难以胜任！

同时253M的文本文件你有机会打开？

ArdentMan

死机的话别怪哦~~~

@Echo Off&SetLocal EnableDelayedExpansion
Set "Num= 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 "
(For %%1 In (%Num%) Do (
  Set "Num1=!Num: %%1 = !"
  For %%2 In (!Num1!) Do (
    Set "Num2=!Num1: %%2 = !"
    For %%3 In (!Num2!) Do (
      Set "Num3=!Num2: %%3 = !"
      For %%4 In (!Num3!) Do (
        Set "Num4=!Num3: %%4 = !"
        For %%5 In (!Num4!) Do (
          Set "Num5=!Num4: %%5 = !"
          For %%6 In (!Num5!) Do (
            For %%7 In (%Num:~,39%) Do Echo %%1 %%2 %%3 %%4 %%5 %%6 %%7
          )
        )
      )
    )
  )
))>list.txt
复制代码