一个取随机不重复的类模块 - 精易论坛

窗口程序集名	保留	保留	备注
类模块_不重复的随机数, , 公开
变量名	类型	数组	备注
程变_数组成员们	整数型	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 />
' 算法导论 上 看到的

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

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

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

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

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

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

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