Linear congruential generator: Difference between revisions
Added 11l
m (→{{header|R}}) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 37:
More info is at [[Random number generator (included)#C]].
<br><br>
=={{header|11l}}==
<lang 11l>T LinearCongruentialGenerator
seed = 0
Int a, c, m
F (a, c, m)
.a = a
.c = c
.m = m
F ()()
.seed = (.a * .seed + .c) [&] .m
R .seed
V bsd_rnd = LinearCongruentialGenerator(1103515245, 12345, 7FFF'FFFF)
V ms_rnd = LinearCongruentialGenerator(214013, 2531011, 7FFF'FFFF)
print(‘BSD RAND:’)
L 5
print(bsd_rnd())
print()
print(‘MS RAND:’)
L 5
print(ms_rnd() >> 16)</lang>
{{out}}
<pre>
BSD RAND:
12345
1406932606
654583775
1449466924
229283573
MS RAND:
38
7719
21238
2437
8855
</pre>
=={{header|360 Assembly}}==
| |||