Rename and add sorting words

[factor.git] / extra / project-euler / 052 / 052.factor

diff --git a/extra/project-euler/052/052.factor b/extra/project-euler/052/052.factor
index b947e3cb5ebc80d76bdca1f3f91372f6cf8595dc..c5d73ec3af7cf0beb8b2ae1424bb05a17bd9c6ab 100644 (file)
--- a/extra/project-euler/052/052.factor
+++ b/extra/project-euler/052/052.factor
@@ -27,7 +27,7 @@ IN: project-euler.052
     <iota> [ 1 + * ] with map ; inline
 
 : all-same-digits? ( seq -- ? )
-    [ number>digits natural-sort ] map all-equal? ;
+    [ number>digits sort ] map all-equal? ;
 
 : candidate? ( n -- ? )
     { [ odd? ] [ 3 divisor? ] } 1&& ;