啊啊啊啊啊啊啊啊啊啊啊啊啊啊

Suky

要疯了……脑袋爆炸
陆续看到论坛有关于取超长随机数的帖子
都没有一个很好的答案，汇编_取随机数_硬件版（）又不支持部分cpu
本想试着写一个取超长范围随机数的子程序
开始还好
结果越写bug越多，逻辑越捋不清楚了
难受了   

冬夏

  

' 简化了一下，这样也可以

子程序名	返回值类型	公开	备 注
取随机数_长整	长整数型
参数名	类 型	参考	可空	数组	备 注
最小值	长整数型
最大值	长整数型

变量名	类 型	静态	数组	备 注
随机值	文本型
最低位数	整数型
最高位数	整数型
随机一位	整数型
随机单位	整数型
i	整数型
返回值	长整数型

如果真 (最小值 ＝ 最大值)
返回 (0)
置随机数种子 ()
最低位数 ＝ 取文本长度 (到文本 (最小值))
最高位数 ＝ 取文本长度 (到文本 (最大值))
循环判断首 ()
随机一位 ＝ 取随机数 (最低位数, 最高位数)
随机值 ＝ “”
计次循环首 (随机一位, i)
随机单位 ＝ 取随机数 (0, 9)
如果真 (取反 (i ＝ 1 且 随机单位 ＝ 0))
随机值 ＝ 随机值 ＋ 到文本 (随机单位)

计次循环尾 ()
返回值 ＝ 到长整数 (随机值)
循环判断尾 (取反 (返回值 ≥ 最小值 且 返回值 ≤ 最大值))
返回 (返回值)

.版本 2<br /> ' 简化了一下，这样也可以<br /> .子程序 取随机数_长整, 长整数型<br /> .参数 最小值, 长整数型<br /> .参数 最大值, 长整数型<br /> .局部变量 随机值, 文本型<br /> .局部变量 最低位数, 整数型<br /> .局部变量 最高位数, 整数型<br /> .局部变量 随机一位, 整数型<br /> .局部变量 随机单位, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 返回值, 长整数型<br /> <br /> .如果真 (最小值 ＝ 最大值)<br />     返回 (0)<br /> .如果真结束<br /> 置随机数种子 ()<br /> 最低位数 ＝ 取文本长度 (到文本 (最小值))<br /> 最高位数 ＝ 取文本长度 (到文本 (最大值))<br /> .循环判断首 ()<br />     随机一位 ＝ 取随机数 (最低位数, 最高位数)<br />     随机值 ＝ “”<br />     .计次循环首 (随机一位, i)<br />         随机单位 ＝ 取随机数 (0, 9)<br />         .如果真 (取反 (i ＝ 1 且 随机单位 ＝ 0))<br />             随机值 ＝ 随机值 ＋ 到文本 (随机单位)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     返回值 ＝ 到长整数 (随机值)<br /> .循环判断尾 (取反 (返回值 ≥ 最小值 且 返回值 ≤ 最大值))<br /> 返回 (返回值)

笨来无一悟

原理和之前的百分比写法类似 那个写法 取出最大值的概率比其他值的概率低一些 截取区间的递归写法 概率相等
随机百分比的只能精确到0.9999999999 最大减最小 大于 9999999999 的时候 取出最大值的概率经常是0

手动赋值0.9999999999做过测试 可以改成没有BUG的 但是没必要改了 直接递归的写法代码量更少 并且一切正常

  

子程序名	返回值类型	公开	备 注
递归随机	长整数型
参数名	类 型	参考	可空	数组	备 注
最大	长整数型
最小	长整数型

变量名	类 型	静态	数组	备 注
区间	整数型			每次 10 等分

区间 ＝ 取随机数 (0, 9)  ' 因为递归调用 通常时差很短 置随机数种子( ) 不能写在 递归随机( ) 子程序之内
如果真 (最大 ＜ 最小)
交换变量 (最大, 最小)
如果真 (最大 － 最小 ＜ 65432)
返回 (最小 ＋ 取随机数 (0, 最大 － 最小))  ' [ 65536 ]
返回 (递归随机 (最小 ��� (最大 － 最小) ÷ 10 �� (区间 ＋ 1), 最小 ��� (最大 － 最小) ÷ 10 × 区间))

.版本 2<br /> <br /> .子程序 递归随机, 长整数型<br /> .参数 最大, 长整数型<br /> .参数 最小, 长整数型<br /> .局部变量 区间, 整数型, , , 每次 10 等分<br /> <br /> 区间 ＝ 取随机数 (0, 9)  ' 因为递归调用 通常时差很短 置随机数种子( ) 不能写在 递归随机( ) 子程序之内<br /> .如果真 (最大 ＜ 最小)<br />     交换变量 (最大, 最小)<br /> .如果真结束<br /> .如果真 (最大 － 最小 ＜ 65432)<br />     返回 (最小 ＋ 取随机数 (0, 最大 － 最小))  ' [ 65536 ]<br /> .如果真结束<br /> 返回 (递归随机 (最小 ＋ (最大 － 最小) ÷ 10 × (区间 ＋ 1), 最小 ＋ (最大 － 最小) ÷ 10 × 区间))

陽陽陽

ok那这样，我C#有Biginteger。你可以编译一个DLL给易调用。
https://stackoverflow.com/questions/17357760/how-can-i-generate-a-random-biginteger-within-a-certain-range

陽陽陽

不懂就问：取超长随机数不是一个str，然后几个随机数文本加起来最后parse就好了吗

笨来无一悟

没有防呆设计 每次100等分的 面对超大区间跨度的时候性能表现会更好 范围比较窄的时候 差别不大

  

子程序名	返回值类型	公开	备 注
递归随机	长整数型
参数名	类 型	参考	可空	数组	备 注
最大	长整数型				乱填
最小	长整数型				乱填

变量名	类 型	静态	数组	备 注
区间	整数型			每次 10 等分

区间 ＝ 取随机数 (0, 9)  ' 因为递归调用 通常时差很短 置随机数种子( ) 不能写在 递归随机( ) 子程序之内
如果真 (最大 ＜ 最小)  ' 防
交换变量 (最大, 最小)  ' 呆
如果真 (最大 － 最小 ＜ 65432)
返回 (最小 ＋ 取随机数 (0, 最大 － 最小))  ' [ 65536 ]
返回 (递归随机 (最小 ��� (最大 － 最小) ÷ 10 �� (区间 ＋ 1), 最小 ��� (最大 － 最小) ÷ 10 × 区间))

子程序名	返回值类型	公开	备 注
递归随机	长整数型		无防呆设计 请严格检查 最大 是否 大于 最小
参数名	类 型	参考	可空	数组	备 注
最大	长整数型				严格检查 大于 ↓
最小	长整数型				严格检查 小于 ↑

变量名	类 型	静态	数组	备 注
区间	整数型			每次 100 等分

区间 ＝ 取随机数 (0, 99)  ' 因为递归调用 通常时差很短 置随机数种子( ) 不能写在 递归随机( ) 子程序之内
如果真 (最大 － 最小 ＜ 65432)
返回 (最小 ＋ 取随机数 (0, 最大 － 最小))  ' [ 65536 ]
返回 (递归随机 (最小 ��� (最大 － 最小) ÷ 100 �� (区间 ＋ 1), 最小 ��� (最大 － 最小) ÷ 100 × 区间))

.版本 2<br /> <br /> .子程序 递归随机, 长整数型<br /> .参数 最大, 长整数型, , 乱填<br /> .参数 最小, 长整数型, , 乱填<br /> .局部变量 区间, 整数型, , , 每次 10 等分<br /> <br /> 区间 ＝ 取随机数 (0, 9)  ' 因为递归调用 通常时差很短 置随机数种子( ) 不能写在 递归随机( ) 子程序之内<br /> .如果真 (最大 ＜ 最小)  ' 防<br />     交换变量 (最大, 最小)  ' 呆<br /> .如果真结束<br /> .如果真 (最大 － 最小 ＜ 65432)<br />     返回 (最小 ＋ 取随机数 (0, 最大 － 最小))  ' [ 65536 ]<br /> .如果真结束<br /> 返回 (递归随机 (最小 ＋ (最大 － 最小) ÷ 10 × (区间 ＋ 1), 最小 ＋ (最大 － 最小) ÷ 10 × 区间))<br /> <br /> .子程序 递归随机, 长整数型, , 无防呆设计 请严格检查 最大 是否 大于 最小<br /> .参数 最大, 长整数型, , 严格检查 大于 ↓<br /> .参数 最小, 长整数型, , 严格检查 小于 ↑<br /> .局部变量 区间, 整数型, , , 每次 100 等分<br /> <br /> 区间 ＝ 取随机数 (0, 99)  ' 因为递归调用 通常时差很短 置随机数种子( ) 不能写在 递归随机( ) 子程序之内<br /> .如果真 (最大 － 最小 ＜ 65432)<br />     返回 (最小 ＋ 取随机数 (0, 最大 － 最小))  ' [ 65536 ]<br /> .如果真结束<br /> 返回 (递归随机 (最小 ＋ (最大 － 最小) ÷ 100 × (区间 ＋ 1), 最小 ＋ (最大 － 最小) ÷ 100 × 区间))

笨来无一悟

只要最大值可以被取出来 其他值就是一定也可以的 具体证明过程就不证明了

笨来无一悟

测试过了 没有漏网之鱼的 百分比的写法 数值过大的时候 可以随机出任何一个数 唯独随机不出最大值

  

判断循环首 (真)
如果真 (递归随机 (123456, 0) ＝ 123456)
调试输出 (“没问题”)
跳出循环 ()

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .判断循环首 (真)<br />     .如果真 (递归随机 (123456, 0) ＝ 123456)<br />         调试输出 (“没问题”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

Suky

冬夏 发表于 2024-6-13 23:51
[e=1]
.版本 2
' 简化了一下，这样也可以

@冬夏 @笨来无一悟 我好像搞定了

笨来无一悟

循环多次取出的话 求次方这儿还能多写一个变量循环乘10 速度应该会比次方快些严谨了 代码就多了

  

子程序名	返回值类型	公开	备 注
随机	长整数型
参数名	类 型	参考	可空	数组	备 注
最小	长整数型
最大	长整数型

变量名	类 型	静态	数组	备 注
占比	双精度小数型
计次	整数型

计次循环首 (10, 计次)
占比 ＝ 占比 ＋ 取随机数 (0, 9) ÷ 求次方 (10, 计次)
计次循环尾 ()
最大 ＝ 最大 － 最小 ＋ 1
判断 (最大 ＞ 9999999999)
计次 ＝ 最大 ÷ 求次方 (10, 10)
最大 ＝ 最大 － 计次  ' 颗粒度＞1时↓进行二次微调
返回 (最小 ＋ 最大 × 占比 ＋ 取随机数 (0, 计次))
返回 (最小 ＋ 最大 × 占比)  ' 颗粒度≤ 1时无需微调

.版本 2<br /> <br /> .子程序 随机, 长整数型<br /> .参数 最小, 长整数型<br /> .参数 最大, 长整数型<br /> .局部变量 占比, 双精度小数型<br /> .局部变量 计次, 整数型<br /> <br /> .计次循环首 (10, 计次)<br />     占比 ＝ 占比 ＋ 取随机数 (0, 9) ÷ 求次方 (10, 计次)<br /> .计次循环尾 ()<br /> 最大 ＝ 最大 － 最小 ＋ 1<br /> .判断开始 (最大 ＞ 9999999999)<br />     计次 ＝ 最大 ÷ 求次方 (10, 10)<br />     最大 ＝ 最大 － 计次  ' 颗粒度＞1时↓进行二次微调<br />     返回 (最小 ＋ 最大 × 占比 ＋ 取随机数 (0, 计次))<br /> .默认<br />     返回 (最小 ＋ 最大 × 占比)  ' 颗粒度≤ 1时无需微调

笨来无一悟

颗粒度足够细了 效率比较低值比较大的情况还可以在计算之后 再执行一次 0到最小颗粒度 随机加减 这样就可以确保 任意一个数 都是有可能被选中的

  

子程序名	返回值类型	公开	备 注
随机	长整数型
参数名	类 型	参考	可空	数组	备 注
最小	长整数型
最大	长整数型

变量名	类 型	静态	数组	备 注
占比	双精度小数型
计次	整数型

计次循环首 (10, 计次)
占比 ＝ 占比 ＋ 取随机数 (0, 9) ÷ 求次方 (10, 计次)
计次循环尾 ()
返回 (最小 ��� (最大 － 最小 ＋ 1) × 占比)  ' 取值范围 0 - 0.9999999999 由于永远不可能取到 1 也就是 100% 于是手动 + 1

.版本 2<br /> <br /> .子程序 随机, 长整数型<br /> .参数 最小, 长整数型<br /> .参数 最大, 长整数型<br /> .局部变量 占比, 双精度小数型<br /> .局部变量 计次, 整数型<br /> <br /> .计次循环首 (10, 计次)<br />     占比 ＝ 占比 ＋ 取随机数 (0, 9) ÷ 求次方 (10, 计次)<br /> .计次循环尾 ()<br /> 返回 (最小 ＋ (最大 － 最小 ＋ 1) × 占比)  ' 取值范围 0 - 0.9999999999 由于永远不可能取到 1 也就是 100% 于是手动 + 1

笨来无一悟

颗粒度改成随机的了 如果65536只能都没问题的话 颗粒 ＝ 取随机数 (100, 10000) 改成 颗粒 ＝ 取随机数 (100, 65536) 更好 有BUG再反馈

  

子程序名	返回值类型	公开	备 注
随机	长整数型
参数名	类 型	参考	可空	数组	备 注
最小	长整数型
最大	长整数型

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

颗粒 ＝ 取随机数 (100, 10000)
返回 (最小 ��� (最大 － 最小) ÷ 颗粒 × 取随机数 (0, 颗粒))

.版本 2<br /> <br /> .子程序 随机, 长整数型<br /> .参数 最小, 长整数型<br /> .参数 最大, 长整数型<br /> .局部变量 颗粒, 整数型<br /> <br /> 颗粒 ＝ 取随机数 (100, 10000)<br /> 返回 (最小 ＋ (最大 － 最小) ÷ 颗粒 × 取随机数 (0, 颗粒))