[REBOL] Re: [REBOL]Re: Random numbers for Monte Carlo

From: al:bri:xtra at: 10-Aug-2002 22:42

Sunanda wrote:
> No one has yet contributed Rebol code to random.org for pulling down
blocks of numbers. Anyone up for it?

Try this:

Rebol [
    Name: 'Random-Numbers
    Title: "Random Numbers"
    File: %"Random Numbers.r"
    Author: "Andrew Martin"
    eMail: [Al--Bri--xtra--co--nz]
    Web: http://valley.150m.com/
    Date: 10/August/2002
    ]

Random-Numbers: function [
    "Read a bunch of random numbers from random.org."
    N [integer!]    "The number of random numbers to read."
    Minimum [integer!]    "The minimum value of each number."
    Maximum [integer!]    "The maximum value of each number."
    ] [Digit Numbers Number] [
    Digit: charset "0123456789"
    if all [
        1 <= N N <= 10000
        -1000000000 <= Minimum Minimum <= 1000000000
        -1000000000 <= Maximum Maximum <= 1000000000
        ] [
        Numbers: make block! N
        foreach Number parse read rejoin [
            http://www.random.org/cgi-bin/randnum
            #"?"
            "num=" N #"&"
            "min=" Minimum #"&"
            "max=" Maximum #"&"
            "col=1"
            ] "" [
            append Numbers to-integer Number
            ]
        ]
    Numbers
    ]

probe Random-Numbers 5 1 100

Andrew Martin
Random Rebolutionary...
ICQ: 26227169 http://valley.150m.com/

1 · [2] · 3 · 4 · 5 · 6 · 7 · 8 · 9 · See whole thread