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

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}，你就没办法预测

布点脚本师

感谢分享，支持开源~~

勉勉

感谢分享，支持开源~~

APPLEUFO

7ian 发表于 2024-8-4 13:18
举个最简单例子，你的数组是：{1,2} 假设第一次随机数取到1，交换变量是不是：数组[1]跟数组[1]交换？

...

你举得最简单例子｛1 ，2 ｝ .  有时候会出现未打乱的情况，这首正常的，这就是真随机。你那个每次出来结果和计算前一定不一样的是伪随机


图2   注意看输出结果 每次aaa 被随机排序以后，下回的结果一定不会和上回一样，这就是伪随机了

苹果手机的“假随机”事件：

苹果公司的产品一直深受消费者喜爱，其独特的设计美感和科技内涵也广受赞誉。 2004年，第四代ipod推出，在当时有个非常领先的功能叫做“随机播放”，即完全打乱歌曲的播放顺序，给听众足够的惊喜感。

对这一功能，苹果公司信心满满，不料很快就接到了大量的用户投诉说有bug。很多人抱怨，用了这个功能，听完一首歌后，随机到的歌曲居然还是刚听过的歌，有时候甚至会连续收听同一首歌曲好几次。说好的随机呢，还不如我老老实实按顺序听呢！

真的是随机功能的代码有bug吗？苹果公司派人去做了检查，并没有啊！那为什么会连续播放同一首歌呢？后来他们发现了一点，凡是投诉的用户，都有一个特点，那就是他们的歌单大多比较小，也就是十几二十首歌。

因为选择少，所以随机播放时，确实会经常重复。

想明白后，苹果就修改了代码，在随机的同时，又加了个前提，保证用户绝对不会收听到前一首歌曲。工程师说，这是用伪随机代替了真随机。结果，反而这种伪随机大受欢迎，用户纷纷称赞。

作者：Andy正在输入
链接：https://www.jianshu.com/p/663fd38fb2c4
来源：简书
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

简单点就是 假如你手心上平放抓了六个骰子 是123456。  你的随机排序，投掷五万次也再投不出123456（就是说用123456 作为数组参数，永远投掷不出来123456）
而真正的随机排序是能扔出很多次123456的   看图。   也就是说，在几万次的数组排序以后，其中会有几次的概率，排序后和排序前一模一样



你那个排序可以叫伪随机排序，我没抄错的可以叫真随机排序


附件是代码例程