From 9d44708e1d87e795f30d63b37e3f7b5908b4c160 Mon Sep 17 00:00:00 2001
From: Aaron Schaefer <aaron@elasticdog.com>
Date: Wed, 1 Apr 2009 18:43:45 -0400
Subject: [PATCH] Fix contains? -> any? rename issue

---
 extra/project-euler/001/001.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/project-euler/001/001.factor b/extra/project-euler/001/001.factor
index 17f8d0386d..68e1ff032a 100644
--- a/extra/project-euler/001/001.factor
+++ b/extra/project-euler/001/001.factor
@@ -53,7 +53,7 @@ PRIVATE>
 
 
 : euler001c ( -- answer )
-    1000 [ { 3 5 } [ mod 0 = ] with contains? ] filter sum ;
+    1000 [ { 3 5 } [ mod 0 = ] with any? ] filter sum ;
 
 ! [ euler001c ] 100 ave-time
 ! 0 ms ave run time - 0.06 SD (100 trials)