! 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 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
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
-! 2430 ms run / 36 ms GC ave time - 10 trials
+! 933 ms ave run timen - 19.58 SD (10 trials)
-MAIN: euler134
+SOLUTION: euler134