$rand » History » Version 5
Per Amundsen, 02/23/2023 07:24 PM
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 | 4 | Per Amundsen | _See also [[$rands]]._ |
10 | 3 | Per Amundsen | |
11 | 1 | Per Amundsen | *Parameters* |
12 | |||
13 | 4 | Per Amundsen | table(ktable). |
14 | |*Parameter*|*Description*| |
||
15 | 5 | Per Amundsen | | v1 | Start number or letter [0-9A-Za-z]. | |
16 | | v2 | End number or letter [0-9A-Za-z]. | |
||
17 | |||
18 | 2 | Paul Janson | if v1 and v2 are both numeric, returns random number in that range |
19 | otherwise returns a character in the range of characters v1 and v2 |
||
20 | 1 | Per Amundsen | |
21 | 2 | Paul Janson | valid number range -2^63 through 2^63-1 |
22 | |||
23 | 1 | Per Amundsen | *Example* |
24 | |||
25 | <pre> |
||
26 | ; Get a random number between 10 and 100. |
||
27 | //echo -ag $rand(10,100) |
||
28 | |||
29 | 2 | Paul Janson | ; Get a random number between -10 and +10. |
30 | //echo -ag $rand(10,-10) |
||
31 | |||
32 | 1 | Per Amundsen | ; Get a random letter between g and y. |
33 | //echo -ag $rand(g,y) |
||
34 | 2 | Paul Janson | |
35 | ; 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 [\]^_` |
||
36 | //echo -ag $rand(A,z) |
||
37 | |||
38 | To obtain only the 52 case-insensitive characters: //echo -a $iif($rand(0,1),$rand(A,Z),$rand(a,z)) |
||
39 | |||
40 | Numeric includes numbers at the beginning of strings. |
||
41 | //echo -a $rand(1X,4X) is the same as $rand(1,4) |
||
42 | |||
43 | Only 1st character of non-numeric string is used. |
||
44 | //echo -a $rand(AB,CD) is in the range A through C |
||
45 | |||
46 | No 'good' random number generator creates equal outcome of all numbers in the range, but they should be fairly close to the average |
||
47 | //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 |
||
48 | 1 | Per Amundsen | </pre> |