易语言超简短代码实现高效率取不重复取随机数源码！

詠不言敗

源码很简单，就不上传附件了！不知道有没有人上传更加高效率的不重复随机数，我自己就上传一个分享一下我自己的。
高手勿喷

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
n	整数型
数	整数型		10000
Random	整数型

计次循环首 (10000, n)
数 [n] ＝ n
计次循环尾 ()
置随机数种子 ()
计次循环首 (1000, n)
Random ＝ 取随机数 (1, 取数组成员数 (数))
列表框1.加入项目 (到文本 (数 [Random]), )
删除成员 (数, Random, )
计次循环尾 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n, 整数型<br /> .局部变量 数, 整数型, , "10000"<br /> .局部变量 Random, 整数型<br /> <br /> .计次循环首 (10000, n)<br /> 数 [n] ＝ n<br /> .计次循环尾 ()<br /> 置随机数种子 ()<br /> .计次循环首 (1000, n)<br /> Random ＝ 取随机数 (1, 取数组成员数 (数))<br /> 列表框1.加入项目 (到文本 (数 [Random]), )<br /> 删除成员 (数, Random, )<br /> .计次循环尾 ()

duoai718

想法很好  可惜还是不对， 还是会取到重复！    你试试100取90个 重复只是20个

lfx28

不错思路到位，学习了。

taodile

这个是很简单的哦  

ks2016

这个写的好，用了数组删除，消除不重复。话说，易语言有字典吗？

张春龙2018

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 数值, 整数型
.局部变量 i, 整数型, 静态
.局部变量 数组, 整数型, , "0"

列表框1.清空 ()
i ＝ 到数值 (编辑框2.内容)
.计次循环首 (到数值 (编辑框1.内容) － 到数值 (编辑框2.内容), n)
    i ＝ 到数值 (编辑框2.内容) － 1 ＋ n
    加入成员 (数组, i)
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (取数组成员数 (数组), n)
    数值 ＝ 取随机数 (1, 取数组成员数 (数组))
    列表框1.加入项目 (到文本 (数组 [数值]), )
    删除成员 (数组, 数值, )
.计次循环尾 ()
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”

詠不言敗

yhz1448528999 发表于 2017-10-10 14:59
.....这代码写的就是脱了裤子放屁   多此一举，

多此一举你可以不看，别瞎逼逼

詠不言敗

嫂子 发表于 2017-5-23 22:17
取10000内的 不重复 就得2个 循环10000次。

记住循环是  非常低效的行为

拜托，你可以自己更改循环次数啊！

yhz1448528999

.....这代码写的就是脱了裤子放屁   多此一举，

嫂子

詠不言敗 发表于 2017-5-4 18:47
就两个循环也叫大量?

取10000内的 不重复 就得2个 循环10000次。

记住循环是  非常低效的行为