10 lines
253 B
Text
10 lines
253 B
Text
to random.float ; 0..1
|
|
localmake "max.int lshift -1 -1
|
|
output quotient random :max.int :max.int
|
|
end
|
|
|
|
to random.gaussian
|
|
output product cos random 360 sqrt -2 / ln random.float
|
|
end
|
|
|
|
make "randoms cascade 1000 [fput random.gaussian / 2 + 1 ?] []
|