diff --git a/basis/random/data/data.factor b/basis/random/data/data.factor index 81ed1d20cc..60099ebcaf 100644 --- a/basis/random/data/data.factor +++ b/basis/random/data/data.factor @@ -4,8 +4,10 @@ USING: combinators combinators.random effects.parser kernel literals math random sequences ; IN: random.data +<< CONSTANT: digits-count 10 CONSTANT: letters-count 26 +>> : random-digit ( -- ch ) digits-count random CHAR: 0 + ;