Linear congruential generator: Difference between revisions
→{{header|Scheme}}: Describe the problem
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
|||
Line 3,249:
=={{header|Scheme}}==
{{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.}}
<syntaxhighlight lang="scheme">(define ((bsd-rand seed)) (set! seed (remainder (+ (* 1103515245 seed) 12345) 2147483648)) seed)
| |||