diff options
Diffstat (limited to 'src/clojure/contrib/probabilities/examples_finite_distributions.clj')
| -rw-r--r-- | src/clojure/contrib/probabilities/examples_finite_distributions.clj | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/clojure/contrib/probabilities/examples_finite_distributions.clj b/src/clojure/contrib/probabilities/examples_finite_distributions.clj index a7ae7618..ca301654 100644 --- a/src/clojure/contrib/probabilities/examples_finite_distributions.clj +++ b/src/clojure/contrib/probabilities/examples_finite_distributions.clj @@ -176,8 +176,9 @@ (normalize-cond (domonad cond-dist-m [die prior - number (get dice die)] - (when (= number observation) die)))) + number (get dice die) + :when (= number observation) ] + die))) ; Add one observation. (add-observation prior 1) @@ -197,7 +198,8 @@ (normalize-cond (domonad [die prior - nums (n-nums die)] - (when (= nums observations) die)))))) + nums (n-nums die) + :when (= nums observations)] + die))))) (add-observations prior [1 3 7]) |