]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/project-euler/027/027.factor
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...
[factor.git] / extra / project-euler / 027 / 027.factor
index f7bffbf66587d55452c1015796e34c44d7953c46..f97d8e9e0ddd700dc6b2b339a817d980c0d36908 100644 (file)
@@ -53,7 +53,7 @@ IN: project-euler.027
     dup sq -rot * + + ;
 
 : (consecutive-primes) ( b a n -- m )
-    3dup quadratic prime? [ 1+ (consecutive-primes) ] [ 2nip ] if ;
+    3dup quadratic prime? [ 1 + (consecutive-primes) ] [ 2nip ] if ;
 
 : consecutive-primes ( a b -- m )
     swap 0 (consecutive-primes) ;