-- COGRandomImpl.mesa: Random reals (implem.)
-- last modified by Stolfi - October 11, 1982 11:58 am
-- To do: invent/find better random number generator
-- compile COGRandomImpl
DIRECTORY
COGRandom,
Real USING [Float],
Random USING [Choose];
COGRandomImpl: CEDAR PROGRAM
IMPORTS Random, Real
EXPORTS COGRandom = TRUSTED
BEGIN OPEN COGRandom, Real;
FLInt: REAL = Float [LAST[INT]];
Toss:
PUBLIC
PROC [min, max:
REAL]
RETURNS [r:
REAL] =
TRUSTED
{RETURN [min + (max-min)*((0.5+Float[Random.Choose[0, LAST[INT]]])/FLInt)]};
END.