Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

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

diff --git a/extra/project-euler/050/050.factor b/extra/project-euler/050/050.factor
index 0c5b288b658c0424304553755b1d68b9a5b2fce1..6176ac81d2f3765db1376916b1eb5478e8324737 100644 (file)
--- a/extra/project-euler/050/050.factor
+++ b/extra/project-euler/050/050.factor
@@ -66,7 +66,7 @@ IN: project-euler.050
     2dup [ first ] bi@ > [ drop ] [ nip ] if ;
 
 : continue? ( pair seq -- ? )
-    [ first ] [ length 1- ] bi* < ;
+    [ first ] [ length 1 - ] bi* < ;
 
 : (find-longest) ( best seq limit -- best )
     [ longest-prime longest ] 2keep 2over continue? [