38 lines
796 B
Forth
38 lines
796 B
Forth
~~~
|
|
{{
|
|
:random:byte
|
|
'/dev/urandom file:R file:open
|
|
&file:read sip file:close ;
|
|
---reveal---
|
|
:n:random
|
|
random:byte #-8 shift
|
|
random:byte + #-8 shift
|
|
random:byte + #8 shift
|
|
random:byte + ;
|
|
}}
|
|
~~~
|
|
|
|
|
|
## xoroshiro128**
|
|
|
|
XOR/rotate/shift/rotate PNRG (See http://xoshiro.di.unimi.it/)
|
|
|
|
~~~
|
|
{{
|
|
'k var 't var 's0 var 's1 var 's2 var 's3 var
|
|
:reseed (n-) dup !s1 dup !s2 dup !s3 dup !k !t ;
|
|
:rotl (x-) !k [ @k n:negate shift ] [ #32 @k - shift ] bi or ;
|
|
---reveal---
|
|
:random:xoroshiro128** (-n)
|
|
@s0 #5 * #7 rotl
|
|
@s1 #-9 shift !t
|
|
@s0 @s2 xor !s2
|
|
@s1 @s3 xor !s3
|
|
@s2 @s1 xor !s1
|
|
@s3 @s0 xor !s0
|
|
@t @s2 xor !s2
|
|
@s3 #11 rotl !s3 ;
|
|
:random:xoroshiro128**:set-seed (n-)
|
|
reseed #100 [ random:xoroshiro128** drop ] times ;
|
|
}}
|
|
~~~
|