Anonymous user
Subtractive generator: Difference between revisions
m
→{{header|REXX}}: changed order of an assignment.
m (→{{header|Kotlin}}: Replaced tab with spaces) |
m (→{{header|REXX}}: changed order of an assignment.) |
||
Line 1,491:
{{trans|PL/I}}
<lang rexx>/*REXX program uses a subtractive generator, and creates a sequence of random numbers. */
s.0=292929; s.1=1; billion=
numeric digits 20; billion=
cI=55; do i=2 to cI-1
s.i=mod(s(i-2) - s(i-1), billion)
|