retroforth/interfaces/io/rng.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 + ;
}}
~~~
add random number generator FossilOrigin-Name: df5f0a97872a37bd503488968379b564c03154c60a5d8deea6e361021e199a1d 2019-01-19 18:28:17 +01:00			`~~~`
			`{{`
			`: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 + ;`
			`}}`
			`~~~`