18 lines
466 B
Text
18 lines
466 B
Text
#import std
|
|
#import nat
|
|
#import flo
|
|
|
|
outcomes = <'aleph ','beth ','gimel ','daleth','he ','waw ','zayin ','heth '>
|
|
probabilities = ^lrNCT(~&,minus/1.+ plus:-0) div/*1. float* skip/5 iota12
|
|
|
|
simulation =
|
|
|
|
^(~&rn,div+ float~~rmPlX)^*D/~& iota; ^A(~&h,length)*K2+ * stochasm@p/probabilities !* outcomes
|
|
|
|
format =
|
|
|
|
:/' frequency probability'+ * ^lrlrTPT/~&n (printf/'%12.8f')^~/~&m outcomes-$probabilities@n
|
|
|
|
#show+
|
|
|
|
results = format simulation 1000000
|