Random number between 0 and 99
Code: Select all
: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
Code: Select all
: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]
}
example code
[] > :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