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

From: al:bri:xtra at: 11-Aug-2002 11:44

Sunanda wrote:
> Maybe needs a touch of error trapping when minimum and maximum are
reversed:

Fixed!

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: 11/August/2002
    Usage: [
        probe Random-Numbers 5 1 100
        probe random-numbers 3 10 5
        probe random-numbers 3  -5 -10
        ]
    ]

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."
    ] [Numbers] [
    if all [
        1 <= N N <= 10000
        -1000000000 <= Minimum Minimum <= 1000000000
        -1000000000 <= Maximum Maximum <= 1000000000
        ] [
        Numbers: load rejoin [
            http://www.random.org/cgi-bin/randnum
            #"?"
            "num=" N #"&"
            "min=" min Minimum Maximum #"&"
            "max=" max Minimum Maximum #"&"
            "col=1"
            ]
        ]
    Numbers
    ]

And I've sent it off to http://www.random.org as well.

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

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