16 lines
298 B
AutoHotkey
16 lines
298 B
AutoHotkey
a := 0, b:= [0]
|
|
Loop, 10
|
|
BSD .= "`t" (a := BSD(a)) "`n"
|
|
, b := MS(b[1])
|
|
, MS .= "`t" (b[2]) "`n"
|
|
|
|
MsgBox, % "BSD:`n" BSD "`nMS:`n" MS
|
|
|
|
BSD(Seed) {
|
|
return, Mod(1103515245 * Seed + 12345, 2147483648)
|
|
}
|
|
|
|
MS(Seed) {
|
|
Seed := Mod(214013 * Seed + 2531011, 2147483648)
|
|
return, [Seed, Seed // 65536]
|
|
}
|