取不重复随机数，较少代码量实现

remained5

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
检验循环_计次	整数型
已取数字数组	整数型		0
取随机数循环_计次	整数型
随机数	整数型

置随机数种子 ()
判断循环首 (取数组成员数 (已取数字数组) ≠ 20)
随机数 ＝ 取随机数 (1, 20)
加入成员 (已取数字数组, 随机数)
计次循环首 (取数组成员数 (已取数字数组) － 1, 检验循环_计次)
如果真 (检验循环_计次 ≤ 取数组成员数 (已取数字数组))
如果真 (随机数 ＝ 已取数字数组 [检验循环_计次])
删除成员 (已取数字数组, 检验循环_计次, )


计次循环尾 ()
判断循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 检验循环_计次, 整数型<br /> .局部变量 已取数字数组, 整数型, , "0"<br /> .局部变量 取随机数循环_计次, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> 置随机数种子 ()<br /> .判断循环首 (取数组成员数 (已取数字数组) ≠ 20)<br />     随机数 ＝ 取随机数 (1, 20)<br />     加入成员 (已取数字数组, 随机数)<br />     .计次循环首 (取数组成员数 (已取数字数组) － 1, 检验循环_计次)<br />         .如果真 (检验循环_计次 ≤ 取数组成员数 (已取数字数组))<br />             .如果真 (随机数 ＝ 已取数字数组 [检验循环_计次])<br />                 删除成员 (已取数字数组, 检验循环_计次, )<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断循环尾 ()

remained5

hzhz5201 发表于 2024-8-27 14:41
纯小白刚学易语言，感谢楼主分享源码。小白恳请楼主附加一下调用例子 ...

这个好像没什么大用，或许按照学号排序什么的可以用到吧

hzhz5201

纯小白刚学易语言，感谢楼主分享源码。小白恳请楼主附加一下调用例子

1326554131

感谢分享，支持开源！！！

remained5

笨来无一悟 发表于 2024-7-31 13:58
只追求速度 不考虑空间占用 这样速度比较快
[e=4].版本 2
.支持库 spec

学习了，谢谢大佬

aa6536

#在这里快速回复#开源精神必须支持~

光影魔术

感谢分享源码

aa2976

感谢分享，

笨来无一悟

只追求速度 不考虑空间占用 这样速度比较快

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
小范围随机数	整数型	10000

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

变量名	类 型	静态	数组	备 注
计次	整数型
返回结果	整数型		0

计次循环首 (取数组成员数 (小范围随机数), 计次)
小范围随机数 [计次] ＝ 计次
计次循环尾 ()
取不重复随机数 (20, 返回结果)
调试输出 (返回结果)

子程序名	返回值类型	公开	备 注
取不重复随机数
参数名	类 型	参考	可空	数组	备 注
个数	整数型
结果	整数型

变量名	类 型	静态	数组	备 注
计次	整数型
总数	整数型

总数 ＝ 取数组成员数 (小范围随机数)
置随机数种子 ()
计次循环首 (个数, 计次)
交换变量 (小范围随机数 [计次], 小范围随机数 [取随机数 (1, 总数)])
计次循环尾 ()
结果 ＝ 小范围随机数
重定义数组 (结果, 真, 个数)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 小范围随机数, 整数型, , "10000"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 计次, 整数型<br /> .局部变量 返回结果, 整数型, , "0"<br /> <br /> .计次循环首 (取数组成员数 (小范围随机数), 计次)<br />     小范围随机数 [计次] ＝ 计次<br /> .计次循环尾 ()<br /> 取不重复随机数 (20, 返回结果)<br /> 调试输出 (返回结果)<br /> <br /> .子程序 取不重复随机数<br /> .参数 个数, 整数型<br /> .参数 结果, 整数型, 数组<br /> .局部变量 计次, 整数型<br /> .局部变量 总数, 整数型<br /> <br /> 总数 ＝ 取数组成员数 (小范围随机数)<br /> 置随机数种子 ()<br /> .计次循环首 (个数, 计次)<br />     交换变量 (小范围随机数 [计次], 小范围随机数 [取随机数 (1, 总数)])<br /> .计次循环尾 ()<br /> 结果 ＝ 小范围随机数<br /> 重定义数组 (结果, 真, 个数)

remained5

笨来无一悟 发表于 2024-7-30 21:02
一千万以内的不重复随机数可以这样 再多的也可以 但是空间占用会比较多 一个整数占4个字节 自己算{:6_418 ...

不对，大佬，今天我又看了一下，您这个代码在交换变量时，小范围随机数的下标有可能取到相同的，这样不就又有重复的了吗