]> gitweb.factorcode.org Git - factor.git/commitdiff
Fix for changed effect of uncons
authorJames Cash <james.nvc@gmail.com>
Tue, 3 Jun 2008 09:18:36 +0000 (05:18 -0400)
committerJames Cash <james.nvc@gmail.com>
Tue, 3 Jun 2008 09:18:36 +0000 (05:18 -0400)
extra/project-euler/134/134.factor

index ddba76d5a066619dd33b66e0ac006451297bc3d3..4e54a18f197794c4ce1e84f9f145dfc1abaf5fed 100644 (file)
@@ -39,7 +39,7 @@ IN: project-euler.134
 PRIVATE>
 
 : euler134 ( -- answer )
-    0 5 lprimes-from uncons [ 1000000 > ] luntil
+    0 5 lprimes-from uncons swap [ 1000000 > ] luntil
     [ [ s + ] keep ] leach drop ;
 
 ! [ euler134 ] 10 ave-time