retroforth/interface/rng.retro

## Random Number Generator

~~~
{{
  'io var
  :identify
    @io n:zero? [
      #10 io:scan-for dup n:negative?
      [ drop 'IO_DEVICE_TYPE_0010_NOT_FOUND s:put nl ]
      [ !io ] choose ] if ;
  ---reveal---
  :io:rng-operation identify @io io:invoke ;
}}

:n:random (-n)  io:rng-operation ;
~~~
updates to glossary FossilOrigin-Name: e078c14150ce5721f0b21ebd458b1d0104a1ed6f413362e6a8ca15790869edb0 2019-10-14 22:33:58 +02:00			`## Random Number Generator`
add a mersenne twister FossilOrigin-Name: b5d1f9e7e9dd75d24b468a0ca705ec24ffe56a08302a69f48d78523105220e1f 2019-01-22 03:00:09 +01:00
add random number generator FossilOrigin-Name: df5f0a97872a37bd503488968379b564c03154c60a5d8deea6e361021e199a1d 2019-01-19 18:28:17 +01:00			`~~~`
			`{{`
proper rng device in retro-unix FossilOrigin-Name: fc95ae344b6ea961c9e65426b0b8820104c4b9f9a74a35a125635f207fff2b16 2019-10-14 17:17:43 +02:00			`'io var`
			`:identify`
			`@io n:zero? [`
			`#10 io:scan-for dup n:negative?`
			`[ drop 'IO_DEVICE_TYPE_0010_NOT_FOUND s:put nl ]`
			`[ !io ] choose ] if ;`
			`---reveal---`
updates to glossary FossilOrigin-Name: e078c14150ce5721f0b21ebd458b1d0104a1ed6f413362e6a8ca15790869edb0 2019-10-14 22:33:58 +02:00			`:io:rng-operation identify @io io:invoke ;`
add random number generator FossilOrigin-Name: df5f0a97872a37bd503488968379b564c03154c60a5d8deea6e361021e199a1d 2019-01-19 18:28:17 +01:00			`}}`
proper rng device in retro-unix FossilOrigin-Name: fc95ae344b6ea961c9e65426b0b8820104c4b9f9a74a35a125635f207fff2b16 2019-10-14 17:17:43 +02:00
updates to glossary FossilOrigin-Name: e078c14150ce5721f0b21ebd458b1d0104a1ed6f413362e6a8ca15790869edb0 2019-10-14 22:33:58 +02:00			`:n:random (-n) io:rng-operation ;`
proper rng device in retro-unix FossilOrigin-Name: fc95ae344b6ea961c9e65426b0b8820104c4b9f9a74a35a125635f207fff2b16 2019-10-14 17:17:43 +02:00			`~~~`