From fa80248919cce2dca07263ed6237ed8b3f818c51 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 13 Aug 2012 18:17:03 -0700
Subject: [PATCH] rosetta-code.bulls-and-cows: digit> is better.

---
 extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor b/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor
index 061fab3c04..af24b1b0d2 100644
--- a/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor
+++ b/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor
@@ -49,7 +49,7 @@ TUPLE: bull ;
 : narr>nhash ( narr -- nhash ) { 1 2 3 4 } swap zip ;
 
 : num>hash ( n -- hash )
-    [ 1string string>number ] { } map-as narr>nhash ;
+    [ digit> ] { } map-as narr>nhash ;
 
 :: cow-or-bull ( n g -- arr )
     {