Linear congruential generator: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 2,205: | Line 2,205: | ||
</pre> |
</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>BSDrand[x_] := Mod[x*1103515245 + 12345, 2147483648] |
<lang Mathematica>BSDrand[x_] := Mod[x*1103515245 + 12345, 2147483648] |
||
NestList[BSDrand, 0, 10] |
NestList[BSDrand, 0, 10] |