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

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

diff --git a/extra/project-euler/025/025.factor b/extra/project-euler/025/025.factor
index 5dfe7b9f56343ea334886858a2fe2a6d42f1d826..e381e323d15f3fa61b586d675d2c06585a585f98 100644 (file)
--- a/extra/project-euler/025/025.factor
+++ b/extra/project-euler/025/025.factor
@@ -44,7 +44,7 @@ MEMO: fib ( m -- n )
 <PRIVATE
 
 : (digit-fib) ( n term -- term )
-    2dup fib number>string length > [ 1+ (digit-fib) ] [ nip ] if ;
+    2dup fib number>string length > [ 1 + (digit-fib) ] [ nip ] if ;
 
 : digit-fib ( n -- term )
     1 (digit-fib) ;
@@ -68,7 +68,7 @@ PRIVATE>
 <PRIVATE
 
 : digit-fib* ( n -- term )
-    1- 5 log10 2 / + phi log10 / ceiling >integer ;
+    1 - 5 log10 2 / + phi log10 / ceiling >integer ;
 
 PRIVATE>