RosettaCodeData/Task/Probabilistic-choice/Stata/probabilistic-choice.stata
2018-06-22 20:57:24 +00:00

8 lines
212 B
Text

clear
mata
letters="aleph","beth","gimel","daleth","he","waw","zayin","heth"
a=letters[rdiscrete(10000,1,(1/5,1/6,1/7,1/8,1/9,1/10,1/11,1759/27720))]'
st_addobs(10000)
st_addvar("str10","a")
st_sstore(.,.,a)
end