24 lines
484 B
Text
24 lines
484 B
Text
name$[] = [ "aleph " "beth " "gimel " "daleth" "he " "waw " "zayin " "heth " ]
|
|
probs[] = [ 1 / 5 1 / 6 1 / 7 1 / 8 1 / 9 1 / 10 1 / 11 0 ]
|
|
for i = 1 to 7
|
|
cum += probs[i]
|
|
cum[] &= cum
|
|
.
|
|
cum[] &= 1
|
|
probs[8] = 1 - cum[7]
|
|
len act[] 8
|
|
n = 1000000
|
|
for i to n
|
|
h = randomf
|
|
j = 1
|
|
while h > cum[j]
|
|
j += 1
|
|
.
|
|
act[j] += 1
|
|
.
|
|
print "Name Ratio Expected"
|
|
print "---------------------"
|
|
numfmt 4 6
|
|
for i to 8
|
|
print name$[i] & " " & act[i] / n & " " & probs[i]
|
|
.
|