sets: rename combine/refine to union-all/intersect-all

[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 dbbeb704379e476b7d22f645e47bbc9d0ac1f949..9088fb40c6be44c2b5efc69ee26b213d44802bb8 100644 (file)
--- a/extra/project-euler/004/004.factor
+++ b/extra/project-euler/004/004.factor
@@ -29,7 +29,7 @@ IN: project-euler.004
 PRIVATE>
 
 : euler004 ( -- answer )
-    source-004 dup [ * ] cartesian-map combine max-palindrome ;
+    source-004 dup [ * ] cartesian-map union-all max-palindrome ;
 
 ! [ euler004 ] 100 ave-time
 ! 1164 ms ave run time - 39.35 SD (100 trials)