Added gen-seq

Added gen-string
mcandre · Aug 25, 2011 · f2fab58 · f2fab58
1 parent 28e4a08
commit f2fab58
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/TODO b/TODO
@@ -1,4 +1,2 @@
- - gen-sequence
- - gen-string
  - example.factor
  - factcheck package
diff --git a/example.factor b/example.factor
@@ -7,7 +7,7 @@ IN: example
 ! : gen-even ( -- n )
 
 : main ( -- )
-    gen-char call .
+    gen-string call .
 
     ! ...
 

diff --git a/factcheck.factor b/factcheck.factor
@@ -1,4 +1,4 @@
-USING: kernel random math ;
+USING: kernel random math sequences strings ;
 IN: factcheck
 
 ! A quotation generating a random integer.
@@ -13,6 +13,12 @@ IN: factcheck
 ! A quotation generating a random character.
 : gen-char ( -- quot: ( -- ch ) ) [ gen-integer call 128 mod ] ; inline
 
+! A quotation generating a random sequence.
+: gen-seq ( quot: ( -- obj ) -- quot: ( -- seq ) ) [ gen-integer call 100 mod swap replicate ] ; inline
+
+! A quotation generating a random string.
+: gen-string ( -- str ) [ gen-char gen-seq call >string ] ; inline
+
 ! quot is a fact to check.
 ! seq is a sequence of quotations generating random values to pass to the fact.
 !