search tag # rextended random number generator
Random number between 0 and 99
:global randomnum do={
/system resource irq
:local tmpsum 0
:foreach i in=[find] do={:set tmpsum ($tmpsum + [get $i count])}
:set tmpsum [:tostr $tmpsum]
:local lentmp [:len $tmpsum]
:return [:tonum [:pick $tmpsum ($lentmp - 2) $lentmp]]
}
Random string between 00 and 99
:global randomstr do={
/system resource irq
:local tmpsum 0
:foreach i in=[find] do={:set tmpsum ($tmpsum + [get $i count])}
:set tmpsum [:tostr $tmpsum]
:local lentmp [:len $tmpsum]
:return [:pick $tmpsum ($lentmp - 2) $lentmp]
}
> :put “Generated random string $[$randomstr] and generated random number $[$randomnum]”
Generated random string 90 and generated random number 23
> :put “Generated random string $[$randomstr] and generated random number $[$randomnum]”
Generated random string 47 and generated random number 78
> :put “Generated random string $[$randomstr] and generated random number $[$randomnum]”
Generated random string 81 and generated random number 3
> :put “Generated random string $[$randomstr] and generated random number $[$randomnum]”
Generated random string 27 and generated random number 58
> :put “Generated random string $[$randomstr] and generated random number $[$randomnum]”
Generated random string 59 and generated random number 89
> :put “Generated random string $[$randomstr] and generated random number $[$randomnum]”
Generated random string 05 and generated random number 39