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

remained5

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

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

红尘一粟

刚开始学习易语言，过来学习下。

396384183

支持开源！感谢分享

year1970

感谢分享

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

查过

感谢分享，很给力！~

ttggnn

感谢分享，很给力！~

remained5

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

啊啊啊，明白了，这个就相当于弄了个数表，数字小的话确实很快，不过对于这个数组来说确实也比较占内存，谢谢大佬分享

笨来无一悟

remained5 发表于 2024-7-30 20:12
求大佬给个例程可以吗，没想明白交换变量如何实现

一千万以内的不重复随机数可以这样 再多的也可以 但是空间占用会比较多 一个整数占4个字节 自己算空间换时间 这样直接交换位置 就不需要判断重不重复了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
小范围随机数	整数型	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 /> 重定义数组 (结果, 真, 个数)

ZHuanR

新技能已get√