取n个随机数不重复

祁辛

问答区的求助贴

写完了发现结贴了

就发源码去吧


取N个随机数不重复.zip (1.36 KB, 下载次数: 33)

2016-10-15 22:49 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
n	整数型
min
max
i

' 例子
输出调试文本 (取指定个随机数 (0, 10, 10))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
取指定个随机数	文本型
参数名	类 型	参考	可空	数组	备 注
min	整数型				从什么位置开始取
max	整数型				取到什么位置结束
n	整数型				取多少个数

变量名	类 型	静态	数组	备 注
retstr	文本型			返回取的内容
i	整数型			存储循环的次数
tmp	文本型			临时文本用来判断是否重复存在
l	整数型

置随机数种子 ()
计次循环首 (n, l)
如果真 (取文本长度 (retstr) ≥ n)
跳出循环 ()

变量循环首 (1, n, 1, i)
tmp ＝ 到文本 (取随机数 (min, max))
如果真 (寻找文本 (retstr, tmp, , 假) ＝ -1)
retstr ＝ retstr ＋ tmp

变量循环尾 ()
计次循环尾 ()
返回 (retstr)

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 n, 整数型<br /> .局部变量 min<br /> .局部变量 max<br /> .局部变量 i<br /> <br /> ' 例子<br /> 输出调试文本 (取指定个随机数 (0, 10, 10))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 取指定个随机数, 文本型<br /> .参数 min, 整数型, , 从什么位置开始取<br /> .参数 max, 整数型, , 取到什么位置结束<br /> .参数 n, 整数型, , 取多少个数<br /> .局部变量 retstr, 文本型, , , 返回取的内容<br /> .局部变量 i, 整数型, , , 存储循环的次数<br /> .局部变量 tmp, 文本型, , , 临时文本用来判断是否重复存在<br /> .局部变量 l, 整数型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (n, l)<br />     .如果真 (取文本长度 (retstr) ≥ n)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .变量循环首 (1, n, 1, i)<br />         tmp ＝ 到文本 (取随机数 (min, max))<br />         .如果真 (寻找文本 (retstr, tmp, , 假) ＝ -1)<br />             retstr ＝ retstr ＋ tmp<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br /> .计次循环尾 ()<br /> 返回 (retstr)

wy1987wy119

学习

小术士

#在这里快速回复# 冰封王 冰封王座辅Zhu.zip座辅Zhu.zip

huaidan2015

N=100亿 就重复很多了

呵呵仙

新技能已get√,你试下用节点方法,会不会快一点?!

咪兔

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
节点	节点
test	文本型		0

置随机数种子 ()
判断循环首 (取数组成员数 (test) ≠ 50)
节点.加入属性 (到文本 (取随机数 (60, 200)), “”)
节点.取全部属性名 (test)
判断循环尾 ()
调试输出 (test)

i支持库列表	支持库注释
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 节点, 节点<br /> .局部变量 test, 文本型, , "0"<br /> <br /> 置随机数种子 ()<br /> .判断循环首 (取数组成员数 (test) ≠ 50)<br />     节点.加入属性 (到文本 (取随机数 (60, 200)), “”)<br />     节点.取全部属性名 (test)<br /> .判断循环尾 ()<br /> 调试输出 (test)

咪兔

不用那么麻烦吧