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

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

diff --git a/extra/project-euler/079/079.factor b/extra/project-euler/079/079.factor
index e0a616dc52f1dbbc91a52ce1d648295e21bfd3a8..8e575daea9c38c1a057c4a14596427bbbc6755fc 100644 (file)
--- a/extra/project-euler/079/079.factor
+++ b/extra/project-euler/079/079.factor
@@ -39,7 +39,7 @@ IN: project-euler.079
     [ "Topological sort failed" throw ] [ first ] if-empty ;
 
 : remove-source ( seq elt -- seq )
-    [ swap member? not ] curry filter ;
+    [ swap member? ] curry reject ;
 
 : (topological-sort) ( seq -- )
     dup length 1 > [