3 lines
116 B
Common Lisp
3 lines
116 B
Common Lisp
|
(loop for i from 1 to 1000
|
||
|
|
collect (1+ (* (sqrt (* -2 (log (random 1.0)))) (cos (* 2 pi (random 1.0))) 0.5)))
|