factor: trim using lists

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

diff --git a/extra/project-euler/069/069.factor b/extra/project-euler/069/069.factor
index 1e7520f25c4366fbf9e78a5efb5eaf1545a5e933..c3ad069abfc54d4bb8401c22cb58dd1df318067c 100644 (file)
--- a/extra/project-euler/069/069.factor
+++ b/extra/project-euler/069/069.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2009 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators fry kernel math math.primes math.primes.factors
-math.ranges project-euler.common sequences sequences.extras ;
+USING: combinators kernel math math.primes math.primes.factors
+ranges project-euler.common sequences sequences.extras ;
 IN: project-euler.069
 
 ! http://projecteuler.net/index.php?section=problems&id=69
@@ -46,7 +46,7 @@ IN: project-euler.069
 PRIVATE>
 
 : euler069 ( -- answer )
-    2 1000000 [a,b] [ totient-ratio ] map
+    2 1000000 [a..b] [ totient-ratio ] map
     arg-max 2 + ;
 
 ! [ euler069 ] 10 ave-time