gen-list and gen-string working

mcandre · Oct 19, 2011 · bb0d9d3 · bb0d9d3
1 parent f26c6bb
commit bb0d9d3
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/cluckcheck.scm b/cluckcheck.scm
@@ -1,3 +1,5 @@
+(require-extension srfi-1) ; lists
+
 (define (gen-int)
 	(random 256))
 
@@ -7,4 +9,10 @@
 (define (gen-char)
 	(integer->char (random 128)))
 
+(define (gen-list gen)
+	(map (lambda (x) (gen)) (iota (random 100))))
+
+(define (gen-string)
+	(list->string (gen-list gen-char)))
+
 ; ...
diff --git a/example.scm b/example.scm
@@ -13,6 +13,8 @@ exit
 
 	(display (format "Random char: ~a\n" (gen-char)))
 
+	(display (format "Random string: ~a\n" (gen-string)))
+
 	; ...
 
 	(exit))