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 5094dcd674df0fd1f2544c6a59f95a38b9f508be..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 ;
+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,8 +46,8 @@ IN: project-euler.069
 PRIVATE>
 
 : euler069 ( -- answer )
-    2 1000000 [a,b] [ totient-ratio ] map
-    [ supremum ] keep index 2 + ;
+    2 1000000 [a..b] [ totient-ratio ] map
+    arg-max 2 + ;
 
 ! [ euler069 ] 10 ave-time
 ! 25210 ms ave run time - 115.37 SD (10 trials)