Anonymous user
Random numbers: Difference between revisions
→{{header|Racket}}
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 1,956:
(for/list ([i 1000])
(add1 (* (sqrt (* -2 (log (random)))) (cos (* 2 pi (random))) 0.5)))
</lang>
Alternative:
<lang Racket>
#lang racket
(require math/distributions)
(sample (normal-dist 1.0 0.5) 1000)
</lang>
| |||