13 lines
190 B
Text
13 lines
190 B
Text
define PI
|
|
-1 acos
|
|
|
|
define rand1
|
|
9999999 choose 1 + 10000000.0 /
|
|
|
|
define randNormal
|
|
rand1 PI * 2 * cos
|
|
rand1 log -2 * sqrt
|
|
*
|
|
2 / 1 +
|
|
|
|
1000 each drop randNormal "%f\n" print
|