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

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

diff --git a/extra/project-euler/014/014.factor b/extra/project-euler/014/014.factor
index b0305d5c3941daeb3154244dc6677e7e34068e90..49680177d525fb57bb69218141e32e270b1ab91c 100644 (file)
--- a/extra/project-euler/014/014.factor
+++ b/extra/project-euler/014/014.factor
@@ -36,7 +36,7 @@ IN: project-euler.014
 <PRIVATE
 
 : next-collatz ( n -- n )
-    dup even? [ 2 / ] [ 3 * 1+ ] if ;
+    dup even? [ 2 / ] [ 3 * 1 + ] if ;
 
 : longest ( seq seq -- seq )
     2dup [ length ] bi@ > [ drop ] [ nip ] if ;
@@ -59,7 +59,7 @@ PRIVATE>
 <PRIVATE
 
 : worth-calculating? ( n -- ? )
-    1- 3 { [ divisor? ] [ / even? ] } 2&& ;
+    1 - 3 { [ divisor? ] [ / even? ] } 2&& ;
 
 PRIVATE>