From 676cc182159ecc9f1110d76a74e727e390a6dacf Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 4 Aug 2012 19:17:56 -0700 Subject: [PATCH] random.data: make constants available to random.data. --- basis/random/data/data.factor | 2 ++ 1 file changed, 2 insertions(+) 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 + ;