易语言 仅需十几毫秒实现快速生成1~32767不重复短整数型随机数数组表 (随机打乱洗牌)

CNWTEPRG

* “耗时(毫秒):” | 9.672000
* 数组:100{19,13,38,74,32,52,49,75,28,98,67,100,3,20,70,90,6,39,45,87,46,27,92,50,44,79,5,9,17,30,96,7,78,23,18,40,2,42,53,68,12,41,83,82,47,65,81,14,55,63,22,54,95,72,64,57,33,10,77,35,4,71,84,60,59,91,85,97,8,99,94,21,31,93,69,25,86,43,26,61,51,66,11,89,34,56,76,29,15,37,48,16,62,88,80,73,24,58,1,36}

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型
   
8. 
   
9. 置随机数种子 ()
   
10. _临时子程序 ()
    
11. 返回 (0)
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 数组, 短整数型, , "0"
    
15. .局部变量 时间, 整数型
    
16. .局部变量 A, 短整数型
    
17. .局部变量 B, 短整数型
    
18. 
    
19. 时间 ＝ 取启动时间 ()
    
20. .计次循环首 (1000, )
    
21.     取不重复短随机数表 (32767, 数组)
    
22. .计次循环尾 ()
    
23. 调试输出 (“耗时(毫秒):”, (取启动时间 () － 时间) ÷ 1000)
    
24. 取不重复短随机数表 (100, 数组)
    
25. 调试输出 (数组)
    
26. 
    
27. .子程序 取不重复短随机数表, 逻辑型, 公开, 快速产生一个从1到指定值的，不重复随机数数组，成功返回真失败返回假
    
28. .参数 数量, 短整数型, , 必须大于等于1，使用短整数因为 取随机数() 最大只支持32767
    
29. .参数 数组变量, 短整数型, 参考 数组, 数组将通过此变量传出
    
30. .局部变量 计数, 整数型
    
31. .局部变量 随机数, 短整数型
    
32. 
    
33. .判断开始 (数量 ≤ 0)
    
34.     返回 (假)
    
35. .判断 (取数组成员数 (数组变量) ≠ 数量)
    
36.     重定义数组 (数组变量, 真, 数量)
    
37. .默认
    
38. 
    
39. .判断结束
    
40. 置入代码 ({ 80, 83, 81, 82, 139, 69, 12, 139, 0, 139, 88, 4, 131, 192, 8, 51, 201, 102, 186, 1, 0, 235, 7, 102, 137, 20, 72, 65, 102, 66, 59, 203, 114, 245, 90, 89, 91, 88 })
    
41. ' push eax
    
42. ' push ebx
    
43. ' push ecx
    
44. ' push edx
    
45. ' mov eax,[ebp+12]
    
46. ' mov eax,[eax]
    
47. ' mov ebx,[eax+4]
    
48. ' add eax,8
    
49. ' xor ecx,ecx
    
50. ' mov dx,1
    
51. ' .while ecx < ebx
    
52. ' mov [eax+ecx*2],dx
    
53. ' inc ecx
    
54. ' inc dx
    
55. ' .endw
    
56. ' pop edx
    
57. ' pop ecx
    
58. ' pop ebx
    
59. ' pop eax
    
60. .计次循环首 (数量, 计数)
    
61.     .循环判断首 ()
    
62.         随机数 ＝ 取随机数 (1, 数量)
    
63.     .循环判断尾 (随机数 ＝ 计数 且 数量 ＞ 2)
    
64.     交换短整数 (数组变量 [计数], 数组变量 [随机数])
    
65. .计次循环尾 ()
    
66. 返回 (真)
    
67. 
    
68. 
    
69. .子程序 交换短整数
    
70. .参数 A, 短整数型, 参考
    
71. .参数 B, 短整数型, 参考
    
72. 
    
73. 置入代码 ({ 96, 139, 69, 8, 139, 93, 12, 102, 139, 8, 102, 139, 19, 102, 137, 16, 102, 137, 11, 97 })
    
74. ' pusha
    
75. ' mov eax,[ebp+8]
    
76. ' mov ebx,[ebp+12]
    
77. ' mov cx,[eax]
    
78. ' mov dx,[ebx]
    
79. ' mov [eax],dx
    
80. ' mov [ebx],cx
    
81. ' popa
    
82. 
    
83. 
    

复制代码

花心大萝卜

感谢大神分享

1心1亿

开开心心

这么nb?下载看看