Select Code to Download

D:\>perl -MMath::MPFR=":mpfr" -MPDL -le "for(1..10) {$r = PDL->random(
+); Rmpfr_dump(Math::MPFR->new($r.at(0)))}"
0.11101001100100000110110101110010100111100110010011000E-1
...
0.11111111111011111000010100111010010010001010101010110E-1
0.10111001110100001011011100010100001101011001101011010E-2
0.11011111011110110001110011111111011111010111110001100E-1

D:\>perl -MMath::MPFR=":mpfr" -MPDL -le "for(1..10) {Rmpfr_dump(Math::
+MPFR->new(sprintf '%.15g', rand()))}"
0.11011001011111100110011011010010100010000000100011011E-3
...
0.11010110011101110001001101010011001011010001010111111E0
0.11111010001001001100100110011111101100110100011110010E-3
0.11010111110100100001010011100100000011000000000000100E-4

D:\>perl -MMath::MPFR=":mpfr" -le "for(1..10) { Rmpfr_dump(Math::MPFR-
+>new(sprintf '%.17g', rand()))}"
0.10110100110110100010000010011000101000100000001000000E-1
...
0.10100000101110001010101010001101001011010001011000000E0
0.11100000100010000001100011100101111101100110100100000E0
0.10000000011000110110000011000010000001100000000000000E-3