易语言取随机数源码

.版本 2

.子程序 L_运算_取随机数_长整数, 长整数型, 公开, 支持任意范围的伪随机数取值(xorshift算法).作者：白银
.参数 最小值, 长整数型
.参数 最大值, 长整数型
.参数 重置种子, 逻辑型, 可空, 首次调用会自动重置. 默认: 假
.局部变量 局_种子, 整数型, 静态
.局部变量 局_整数, 整数型

.如果真 (重置种子 或 局_种子 ＝ 0)
    置入代码 ({ 15, 49, 133, 192, 116, 250, 137, 69, 252 })
    局_种子 ＝ 局_整数
.如果真结束
置入代码 ({ 232, 0, 0, 0, 0, 89, 255, 117, 20, 255, 117, 16, 255, 117, 12, 255, 117, 8, 255, 113, 247, 232, 4, 0, 0, 0, 201, 194, 24, 0, 85, 83, 87, 86, 139, 124, 36, 28, 139, 76, 36, 36, 139, 92, 36, 24, 139, 84, 36, 32, 139, 68, 36, 20, 139, 40, 57, 218, 137, 206, 25, 254, 137, 254, 15, 76, 241, 15, 76, 207, 137, 223, 15, 76, 250, 15, 76, 211, 137, 235, 193, 227, 13, 49, 235, 137, 221, 193, 237, 17, 49, 221, 137, 235, 193, 227, 5, 49, 235, 137, 221, 193, 229, 13, 49, 221, 137, 232, 193, 232, 17, 49, 232, 137, 197, 193, 229, 5, 49, 197, 139, 68, 36, 20, 137, 40, 41, 250, 25, 241, 131, 194, 1, 131, 209, 0, 184, 255, 255, 255, 255, 15, 66, 200, 15, 66, 208, 81, 82, 83, 85, 232, 11, 0, 0, 0, 1, 248, 17, 242, 94, 95, 91, 93, 194, 20, 0, 83, 139, 68, 36, 20, 11, 192, 117, 24, 139, 76, 36, 16, 139, 68, 36, 12, 51, 210, 247, 241, 139, 68, 36, 8, 247, 241, 139, 194, 51, 210, 235, 80, 139, 200, 139, 92, 36, 16, 139, 84, 36, 12, 139, 68, 36, 8, 209, 233, 209, 219, 209, 234, 209, 216, 11, 201, 117, 244, 247, 243, 139, 200, 247, 100, 36, 20, 145, 247, 100, 36, 16, 3, 209, 114, 14, 59, 84, 36, 12, 119, 8, 114, 14, 59, 68, 36, 8, 118, 8, 43, 68, 36, 16, 27, 84, 36, 20, 43, 68, 36, 8, 27, 84, 36, 12, 247, 218, 247, 216, 131, 218, 0, 91, 194, 16, 0 })
返回 (0)

.子程序 L_运算_随机数_xorshift, 整数型, , 支持任意范围的伪随机数取值(xorshift算法).作者：白银
.参数 最小值, 整数型
.参数 最大值, 整数型
.参数 重置种子, 逻辑型, 可空, 首次调用会自动重置. 默认: 假
.局部变量 局_种子, 整数型, 静态
.局部变量 局_整数, 整数型

.如果真 (重置种子 或 局_种子 ＝ 0)
    置入代码 ({ 15, 49, 133, 192, 116, 250, 137, 69, 252 })
    局_种子 ＝ 局_整数
.如果真结束
置入代码 ({ 232, 0, 0, 0, 0, 89, 139, 85, 12, 139, 69, 8, 83, 87, 86, 139, 113, 247, 57, 208, 137, 193, 15, 79, 202, 15, 79, 208, 139, 6, 137, 199, 193, 231, 13, 49, 199, 137, 251, 193, 235, 17, 49, 251, 137, 216, 193, 224, 5, 49, 216, 41, 202, 66, 191, 255, 255, 255, 255, 15, 69, 250, 137, 6, 49, 210, 247, 247, 1, 209, 137, 200, 94, 95, 91, 201, 194, 16, 0 })
返回 (0)

AD：【此广告位招租】如：联系我们