RosettaCodeData/Task/Random-numbers/Phix/random-numbers.phix

function RandomNormal()
    return sqrt(-2*log(rnd())) * cos(2*PI*rnd())
end function

sequence s = repeat(0,1000)
for i=1 to length(s) do
    s[i] = 1 + 0.5 * RandomNormal()
end for