25 lines
443 B
Plaintext
25 lines
443 B
Plaintext
names$="aleph beth gimel daleth he waw zayin heth"
|
|
dim sum(8)
|
|
dim counter(8)
|
|
|
|
s = 0
|
|
for i = 1 to 7
|
|
s = s+1/(i+4)
|
|
sum(i)=s
|
|
next
|
|
|
|
N =1000000 ' number of throws
|
|
|
|
for i =1 to N
|
|
rand =rnd( 1)
|
|
for j = 1 to 7
|
|
if sum(j)> rand then exit for
|
|
next
|
|
counter(j)=counter(j)+1
|
|
next
|
|
|
|
print "Observed", "Intended"
|
|
for i = 1 to 8
|
|
print word$(names$, i), using( "#.#####", counter(i) /N), using( "#.#####", 1/(i+4))
|
|
next
|