rosetta-code.bulls-and-cows: digit> is better.

2012-08-13 18:17:03 -07:00 · 2012-08-13 18:17:03 -07:00 · fa80248919
parent 2b0e0934a6
commit fa80248919
1 changed files with 1 additions and 1 deletions
--- 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 )
    {