$rand » History » Version 2
Paul Janson, 12/25/2018 05:45 AM
1 | 1 | Per Amundsen | _Added in 1.9.0_ |
---|---|---|---|
2 | |||
3 | *$rand(v1,v2)* |
||
4 | |||
5 | Returns a random number or letter between v1 and v2. |
||
6 | |||
7 | _Same as [[$r]]._ |
||
8 | |||
9 | *Parameters* |
||
10 | |||
11 | 2 | Paul Janson | if v1 and v2 are both numeric, returns random number in that range |
12 | otherwise returns a character in the range of characters v1 and v2 |
||
13 | 1 | Per Amundsen | |
14 | 2 | Paul Janson | valid number range -2^63 through 2^63-1 |
15 | |||
16 | 1 | Per Amundsen | *Example* |
17 | |||
18 | <pre> |
||
19 | ; Get a random number between 10 and 100. |
||
20 | //echo -ag $rand(10,100) |
||
21 | |||
22 | 2 | Paul Janson | ; Get a random number between -10 and +10. |
23 | //echo -ag $rand(10,-10) |
||
24 | |||
25 | 1 | Per Amundsen | ; Get a random letter between g and y. |
26 | //echo -ag $rand(g,y) |
||
27 | 2 | Paul Janson | |
28 | ; Get a random character between A and z. Since 'A' is codepoint 65 and 'z' is codepoint 122, this includes non-alphanumeric codepoints 91-96 [\]^_` |
||
29 | //echo -ag $rand(A,z) |
||
30 | |||
31 | To obtain only the 52 case-insensitive characters: //echo -a $iif($rand(0,1),$rand(A,Z),$rand(a,z)) |
||
32 | |||
33 | Numeric includes numbers at the beginning of strings. |
||
34 | //echo -a $rand(1X,4X) is the same as $rand(1,4) |
||
35 | |||
36 | Only 1st character of non-numeric string is used. |
||
37 | //echo -a $rand(AB,CD) is in the range A through C |
||
38 | |||
39 | No 'good' random number generator creates equal outcome of all numbers in the range, but they should be fairly close to the average |
||
40 | //hfree -w test | hmake test | var %i 100000 | while (%i) { hinc test $rand(1,100)) | dec %i } | var %i 1 , %a | while (%i isnum 1-100) { var %a %a %i $+ = $+ $hget(test,%i) | inc %i } | echo -a %a |
||
41 | 1 | Per Amundsen | </pre> |