Weighted Random Choice

[AlexZ]

Hello!
Please, try this:

Macro Use WeightedRandomChoices

Code:

Copy      Help

lpstr T=
;apple 9
;pear 1
;banana 10
;orange 20

out
out WeightedRandomChoices(T)

Function WeightedRandomChoices

Code:

Copy      Help

;/
function'str lpstr'T

str s s1
int i
ARRAY(str) a

foreach s T
,s.trim
,if findrx(s "\d+$" 0 2 s1)<0
,,end F"line: '{s}' needs a number"
,s.findreplace(s1)
,for i 0 val(s1)
,,a[]=s

a.shuffle

ret a[0]

Regards