Rename and add sorting words

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

diff --git a/extra/project-euler/common/common.factor b/extra/project-euler/common/common.factor
index 43eabaefb1d337c23d7d8d98348cc2cc448d6c4a..f796e789568694dffa28c083600dbdba64aa58ce 100644 (file)
--- a/extra/project-euler/common/common.factor
+++ b/extra/project-euler/common/common.factor
@@ -85,7 +85,7 @@ PRIVATE>
     number>string dup reverse = ;
 
 : pandigital? ( n -- ? )
-    number>string natural-sort >string "123456789" = ;
+    number>string sort >string "123456789" = ;
 
 : pentagonal? ( n -- ? )
     dup 0 > [ 24 * 1 + sqrt 1 + 6 / 1 mod zero? ] [ drop f ] if ; inline