random-string: simplify.

mrjbq7 · Apr 5, 2011 · e171c7e · e171c7e
1 parent 2899dda
commit e171c7e
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/random-string/random-string.factor b/random-string/random-string.factor
@@ -9,11 +9,8 @@ CONSTANT: valid-chars $[
     CHAR: A CHAR: Z [a,b] CHAR: a CHAR: z [a,b] append
 ]
 
-: random-char ( -- ch )
-    valid-chars random ;
-
 : random-string ( n -- string )
-    [ random-char ] "" replicate-as ;
+    [ valid-chars random ] "" replicate-as ;
 
 : run-random-string ( -- )
     8 random-string print readln drop ;