Anonymous user
Linear congruential generator: Difference between revisions
m
→{{header|Scheme}}
(→{{header|Picat}}: Split info subsections. Added {{out}}) |
|||
Line 3,248:
=={{header|Scheme}}==
{{incomplete|Scheme|Precise which Scheme implementation and version you are using and which Report on the Algorithmic Language
Scheme version it supports}}
<lang scheme>(define ((bsd-rand seed)) (set! seed (remainder (+ (* 1103515245 seed) 12345) 2147483648)) seed)
| |||