一个取随机不重复的类模块

APPLEUFO

比如就是每次取1-100，然后打乱顺序，然后每次只取一个。取的那个索引每次递进+1就好像你手里有一副完整的新牌，打乱后，每次取一个，肯定就是不重复随机的了

  

窗口程序集名	保 留	保 留	备 注
类模块_不重复的随机数, , 公开
变量名	类 型	数组	备 注
程变_数组成员们	整数型	0

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
创建一个有序集合			输入创建数组成员的个数,例如5，就是会在类里面创建一个1-5的随机数列
参数名	类 型	参考	可空	数组	备 注
参数_总数	整数型

变量名	类 型	静态	数组	备 注
n1	整数型

重定义数组 (程变_数组成员们, 假, 参数_总数)
计次循环首 (取数组成员数 (程变_数组成员们), n1)
程变_数组成员们 [n1] ＝ n1
计次循环尾 ()
数组模块_随机排列 (程变_数组成员们)
' 调试输出 (程变_数组成员们)

子程序名	返回值类型	公开	备 注
取随机取数_不重复	整数型		取出集合里面的一个数字，将会是不重复的，待全部都取完一遍后，将重置集合内容

变量名	类 型	静态	数组	备 注
局变_取值次数	整数型
局变_取得数	整数型

局变_取值次数 ＝ 局变_取值次数 ＋ 1
如果 (局变_取值次数 ＞ 取数组成员数 (程变_数组成员们))  ' 临界
创建一个有序集合 (取数组成员数 (程变_数组成员们))
局变_取值次数 ＝ 0
局变_取得数 ＝ 取随机取数_不重复 ()


局变_取得数 ＝ 程变_数组成员们 [局变_取值次数]  ' 正常状态

返回 (局变_取得数)

子程序名	返回值类型	公开	备 注
数组模块_随机排列			将一组随机打乱排列
参数名	类 型	参考	可空	数组	备 注
参数_数组	整数型

变量名	类 型	静态	数组	备 注
n1	整数型
局变_随机数	整数型

置随机数种子 ()
计次循环首 (取数组成员数 (参数_数组), n1)
局变_随机数 ＝ 取随机数 (n1, 取数组成员数 (参数_数组))
交换变量 (参数_数组 [n1], 参数_数组 [局变_随机数])
计次循环尾 ()
' 算法导论 上 看到的

.版本 2<br /> <br /> .程序集 类模块_不重复的随机数, , 公开<br /> .程序集变量 程变_数组成员们, 整数型, , "0"<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 创建一个有序集合, , 公开, 输入创建数组成员的个数,例如5，就是会在类里面创建一个1-5的随机数列<br /> .参数 参数_总数, 整数型<br /> .局部变量 n1, 整数型<br /> <br /> 重定义数组 (程变_数组成员们, 假, 参数_总数)<br /> .计次循环首 (取数组成员数 (程变_数组成员们), n1)<br />     程变_数组成员们 [n1] ＝ n1<br /> .计次循环尾 ()<br /> <br /> 数组模块_随机排列 (程变_数组成员们)<br /> <br /> ' 调试输出 (程变_数组成员们)<br /> <br /> .子程序 取随机取数_不重复, 整数型, 公开, 取出集合里面的一个数字，将会是不重复的，待全部都取完一遍后，将重置集合内容<br /> .局部变量 局变_取值次数, 整数型, 静态<br /> .局部变量 局变_取得数, 整数型<br /> <br /> 局变_取值次数 ＝ 局变_取值次数 ＋ 1<br /> <br /> .如果 (局变_取值次数 ＞ 取数组成员数 (程变_数组成员们))  ' 临界<br />     创建一个有序集合 (取数组成员数 (程变_数组成员们))<br />     局变_取值次数 ＝ 0<br /> <br />     局变_取得数 ＝ 取随机取数_不重复 ()<br /> .否则<br /> <br />     局变_取得数 ＝ 程变_数组成员们 [局变_取值次数]  ' 正常状态<br /> .如果结束<br /> <br /> 返回 (局变_取得数)<br /> .版本 2<br /> <br /> .子程序 数组模块_随机排列, , 公开, 将一组随机打乱排列<br /> .参数 参数_数组, 整数型, 参考 数组<br /> .局部变量 n1, 整数型<br /> .局部变量 局变_随机数, 整数型<br /> <br /> 置随机数种子 ()<br /> <br /> .计次循环首 (取数组成员数 (参数_数组), n1)<br />     局变_随机数 ＝ 取随机数 (n1, 取数组成员数 (参数_数组))<br />     交换变量 (参数_数组 [n1], 参数_数组 [局变_随机数])<br /> .计次循环尾 ()<br /> ' 算法导论 上 看到的

熊不熊

感谢分享，很给力！~

胖子葛格

感谢分享源码

ctry78985

感谢分享

光影魔术

感谢分享源码

please

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

jtucar

感谢分享！

7ian

APPLEUFO 发表于 2024-8-5 09:44
你举得最简单例子｛1 ，2 ｝ .  有时候会出现未打乱的情况，这首正常的，这就是真随机。你那个每次出来结 ...

主要是为了打乱，调用一次就是为了全乱，再调用一次就有可能还原，完全可以避免你说的情况；你说的伪随机是每次都固定，就像你写取随机数前不加 置随机种子，每次启动调试看结果都是一样的

你说123456色子抛一次得不到123456是很正常的，但是再试一次呢？

说的有些偏了，我是看你写的的不重复的代码，也就是尽量乱序，你这写法并没有做到大量乱序的结果

也就是如果你想有点重复位置不变可以用你的，也可以用我的多调用几次

但是想要完全乱序，你这个就做不到，再说一下，这并不是伪随机，每次随机位置都会变
是不可预测的，那些可以预测的才是真随机，你要是用{1,2}来举例那没办法，因为只有2个很容易预测，
但是{1,2,3}，你就没办法预测

布点脚本师

感谢分享，支持开源~~

勉勉

感谢分享，支持开源~~