Caché ObjectScript Reference
$RANDOM
[Back] [Next]
   
Server:docs2
Instance:LATEST
User:UnknownUser
 
-
Go to:
Search:    

Returns a pseudo-random integer value in the specified range.
Synopsis
$RANDOM(range)
$R(range)
Parameter
range A nonzero positive integer used to specify the upper bound of the range of possible random numbers.
Description
$RANDOM returns a pseudo-random integer value between 0 and range-1 (inclusive). Thus $RANDOM(3) returns 0, 1, 2, but not 3. Returned numbers are uniformly distributed across the specified range.
$RANDOM is sufficiently random for most purposes. Applications that require strictly random values should use the GenCryptRand() method of the %SYSTEM.Encryption class.
Parameters
range
This value specifies the upper bound of the range of possible random numbers; the highest random number being range minus 1. The range value can be a nonzero positive integer value, the name of an integer variable, or any valid Caché ObjectScript expression that evaluates to a nonzero positive integer. The maximum range value is 1E17 (100000000000000000); specifying a value beyond this maximum results in a <FUNCTION> error. $RANDOM(1) is valid, but always returns 0. $RANDOM(0) results in a <FUNCTION> error.
Examples
The following example returns a random number from 0 through 24 (inclusive).
   WRITE $RANDOM(25)
 
To return a random number with a fractional portion, you can use the concatenation operator (_) or the addition operator (+), as shown in the following example:
   SET x=$RANDOM(10)_$RANDOM(10)/10
   WRITE !,x
   SET y=$RANDOM(10)+($RANDOM(10)/10)
   WRITE !,y
 
This program returns numbers with one fractional digit, ranging between .0 and 9.9 (inclusive). Using either operator, Caché deletes any leading and trailing zeros (and the decimal point, if the fractional portion is zero). However, if both $RANDOM functions return zero (0 and .0), Caché returns a zero (0).
The following example simulates the roll of two dice:
Dice
   FOR {
      READ "Roll dice? ",reply#1
      IF "Yy"[reply,reply'="" {
         WRITE !,"Pair of dice: "
         WRITE $RANDOM(6)+1,"+",$RANDOM(6)+1,! }
      ELSE { QUIT }
   }