Random number generator (device): Difference between revisions
Content deleted Content added
SqrtNegInf (talk | contribs) m →{{header|Perl 6}}: need 'use experimental', laziness works again |
m →version 1: changed some comments. |
||
Line 617:
=={{header|REXX}}==
===version 1===
<lang rexx>/*REXX program generates a random 32-bit number using the RANDOM bif.*/▼
▲/*───────── two smaller 16-bit numbers, and it's expressed in decimal.*/
Note: the REXX '''random''' BIF has a maximum range
numeric digits 10 /*ensure REXX has enough room. */▼
of 100,000.
_=2**16 /*a handy-dandy constant to have.*/▼
▲<lang rexx>/*REXX program generates and displays a random 32-bit number using the RANDOM
say random(0,_-1)*_+random(0,_-1) /*gen an unsigned 32-bit random #*/</lang>▼
say r# /*stick a fork in it, we're all done. */</lang>
{{out}}
<pre>
4294967296
</pre>
===version 2===
This program generates a random 4 byte character string in the range '00000000'x to 'ffffffff'x
|