Rename and add sorting words

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

diff --git a/extra/project-euler/009/009.factor b/extra/project-euler/009/009.factor
index ac44102b19ab98d32e2186fa34cd97b62d49d556..93213ae0df9f9103056f7cf5a1ffe625bec5a64c 100644 (file)
--- a/extra/project-euler/009/009.factor
+++ b/extra/project-euler/009/009.factor
@@ -34,7 +34,7 @@ IN: project-euler.009
         [ sq ] bi@
         [ - 2 / , ]      ! b = (p² - q²) / 2
         [ + 2 / , ] 2bi  ! c = (p² + q²) / 2
-    ] { } make natural-sort ;
+    ] { } make sort ;
 
 : (ptriplet) ( target p q triplet -- target p q )
     sum pickd = [ next-pq 2dup abc (ptriplet) ] unless ;