factor: trim using lists

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

diff --git a/extra/project-euler/134/134.factor b/extra/project-euler/134/134.factor
index e00e86865d9a1a99d2b4a863a3615b7d9d6b57b3..36e45b989ceff2517041704d5237d5678785d6e4 100644 (file)
--- a/extra/project-euler/134/134.factor
+++ b/extra/project-euler/134/134.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2007 Samuel Tardieu.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays kernel lists lists.lazy math.algebra math math.functions
-    math.order math.primes.lists math.ranges project-euler.common sequences ;
+USING: arrays kernel lists lists.lazy math math.algebra
+math.functions math.primes.lists project-euler.common ;
 IN: project-euler.134
 
 ! http://projecteuler.net/index.php?section=problems&id=134
@@ -39,10 +39,10 @@ IN: project-euler.134
 PRIVATE>
 
 : euler134 ( -- answer )
-    0 5 lprimes-from uncons swap [ 1000000 > ] luntil
+    0 5 lprimes-from uncons [ 1000000 > ] luntil
     [ [ s + ] keep ] leach drop ;
 
 ! [ euler134 ] 10 ave-time
 ! 933 ms ave run timen - 19.58 SD (10 trials)
 
-MAIN: euler134
+SOLUTION: euler134