Rename and add sorting words

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

diff --git a/extra/project-euler/043/043.factor b/extra/project-euler/043/043.factor
index d0b0ab66c0926da3f60f96280ff55fee34d7bf6e..d8dc345fc32c580d429a430a85dfca8018343e40 100644 (file)
--- a/extra/project-euler/043/043.factor
+++ b/extra/project-euler/043/043.factor
@@ -82,7 +82,7 @@ PRIVATE>
     [ unclip 1 head prefix concat ] map [ all-unique? ] filter ;
 
 : add-missing-digit ( seq -- seq )
-    dup natural-sort 10 <iota> swap diff prepend ;
+    dup sort 10 <iota> swap diff prepend ;
 
 : interesting-pandigitals ( -- seq )
     17 candidates { 13 11 7 5 3 2 } [