Linear congruential generator: Difference between revisions
Add Factor
m (→{{header|REXX}}: changed a comment, added vertical whitespace.) |
(Add Factor) |
||
Line 1,475:
val MS : int list =
[38; 7719; 21238; 2437; 8855; 11797; 8365; 32285; 10450; 30612]</pre>
=={{header|Factor}}==
{{works with|Factor|0.98}}
<lang factor>USING: fry io kernel lists lists.lazy math prettyprint ;
: lcg ( seed a c m quot: ( state -- rand ) -- list )
[ '[ _ * _ + _ mod ] lfrom-by ] [ lmap-lazy cdr ] bi* ; inline
0 1103515245 12345 2147483648 [ ] lcg ! bsd
0 214013 2531011 2147483648 [ -16 shift ] lcg ! ms
[ 10 swap ltake [ . ] leach nl ] bi@</lang>
{{out}}
<pre>
12345
1406932606
654583775
1449466924
229283573
1109335178
1051550459
1293799192
794471793
551188310
38
7719
21238
2437
8855
11797
8365
32285
10450
30612
</pre>
=={{header|Forth}}==
| |||