Linear congruential generator: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
|||
| Line 3,249: | Line 3,249: | ||
=={{header|Scheme}}== |
=={{header|Scheme}}== |
||
{{incomplete|Scheme|Precise which Scheme implementation and version you are using and which Report on the Algorithmic Language |
{{incomplete|Scheme|Precise which Scheme implementation and version you are using and which Report on the Algorithmic Language |
||
Scheme version it supports. Due to the implicit function generator definition, this works in Racket, but not in standards-compliant Scheme.}} |
|||
Scheme version it supports}} |
|||
<syntaxhighlight lang="scheme">(define ((bsd-rand seed)) (set! seed (remainder (+ (* 1103515245 seed) 12345) 2147483648)) seed) |
<syntaxhighlight lang="scheme">(define ((bsd-rand seed)) (set! seed (remainder (+ (* 1103515245 seed) 12345) 2147483648)) seed) |
||