$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> |