Rename and add sorting words

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

diff --git a/extra/project-euler/004/004.factor b/extra/project-euler/004/004.factor
index b2334cc4321303bb15a98476e634efff1ab1d333..5cc7a4d3097f5738405e5cf7a13349c4eb30f469 100644 (file)
--- a/extra/project-euler/004/004.factor
+++ b/extra/project-euler/004/004.factor
@@ -24,7 +24,7 @@ IN: project-euler.004
     100 999 [a..b] [ 10 divisor? ] reject ;
 
 : max-palindrome ( seq -- palindrome )
-    natural-sort [ palindrome? ] find-last nip ;
+    sort [ palindrome? ] find-last nip ;
 
 PRIVATE>