16 lines
308 B
Text
16 lines
308 B
Text
( 2^31:?RANDMAX
|
|
& 2^-16:?rshift
|
|
& (randBSD=mod$(!seed*1103515245+12345.!RANDMAX):?seed)
|
|
& ( randMS
|
|
= div
|
|
$ ((mod$(!seed*214013+2531011.!RANDMAX):?seed)*!rshift.1)
|
|
)
|
|
& out$\nBSD
|
|
& 0:?seed
|
|
& 0:?i
|
|
& whl'(1+!i:~>10:?i&out$!randBSD)
|
|
& out$\nMicrosoft
|
|
& 0:?seed
|
|
& 0:?i
|
|
& whl'(1+!i:~>10:?i&out$!randMS)
|
|
)
|