use reject instead of [ ... not ] filter.

[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 342e8d1a9edde3b95cdb33431cec84cc1408e039..dbbeb704379e476b7d22f645e47bbc9d0ac1f949 100644 (file)
--- a/extra/project-euler/004/004.factor
+++ b/extra/project-euler/004/004.factor
@@ -21,7 +21,7 @@ IN: project-euler.004
 <PRIVATE
 
 : source-004 ( -- seq )
-    100 999 [a,b] [ 10 divisor? not ] filter ;
+    100 999 [a,b] [ 10 divisor? ] reject ;
 
 : max-palindrome ( seq -- palindrome )
     natural-sort [ palindrome? ] find-last nip ;