Handbook
Glossary
poisson-random-float ( mean -- n )
Vocabulary
random
Inputs
mean
an
object
Outputs
n
an
object
Definition
USING:
kernel
math
math.functions
namespaces
random.private
;
IN:
random
:
poisson-random-float
( mean -- n )
[
-1 0
]
dip
[
2dup
<
]
random-generator
get
[
(random-unit)
log
neg
+
]
curry
[
[
[
1
+
]
2dip
]
]
dip
[
dip
]
curry
compose
while
2drop
;