?? random.idel
字號:
\ Minimal Standard Random Number Generator\ Park & Miller, CACM 31(10), Oct 1988, 32 bit integer version.\ better constants, as proposed by Park.\ Adapted from the Scheme version by Ozan Yigit modified by Jonathan Kleid.#define Q 44488#define A 48271#define R 3399#define M 0x7fffffffints: seed 1 ;ints\ The argument must be in the range [1..M-1], apparently.def 1 0 srand seed ! ;def 0 1 rand seed @ Q /mod { quot rem -- A rem * R quot * - { test -- 0 test < if test else test M + then } } { result -- result seed ! result } ;def 1 1 random { n -- M n /mod { q slop -- slop n random-loop } } ;def 2 1 random-loop rand { slop n r -- slop r < if r n /mod { q rem -- rem } else slop n random-loop then } ;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -