From c19baf2b2a404b1fb5dcd1d2726980463a833f6f Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 10 Jul 2024 18:32:41 -0700 Subject: [PATCH] random: minor formatting thing --- basis/random/random.factor | 1 + 1 file changed, 1 insertion(+) diff --git a/basis/random/random.factor b/basis/random/random.factor index 62f6314f3a7..1acd6cf152e 100644 --- a/basis/random/random.factor +++ b/basis/random/random.factor @@ -469,6 +469,7 @@ TUPLE: poisson-distribution mean ; C: poisson-distribution M: poisson-distribution random* [ mean>> ] dip poisson-random* ; + :: binomial-random* ( n p rnd -- elt ) n assert-non-negative drop { { [ p 0.0 1.0 between? not ] [ "p must be in the range 0.0 <= p <= 1.0" throw ] }