RosettaCodeData/Task/Statistics-Basic/PARI-GP/statistics-basic-2.parigp

5 lines
122 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
rreal()={
my(pr=32*ceil(default(realprecision)*log(10)/log(4294967296))); \\ Current precision
random(2^pr)*1.>>pr
};