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

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

diff --git a/extra/project-euler/026/026.factor b/extra/project-euler/026/026.factor
index 8e0cf37fa2724b6ad466989052747d93c0d6812e..4f4466c3952a73523430f43b12542f05898f5736 100644 (file)
--- a/extra/project-euler/026/026.factor
+++ b/extra/project-euler/026/026.factor
@@ -37,7 +37,7 @@ IN: project-euler.026
     1 1000 (a,b) [ prime? ] filter [ 1 swap / ] map ;
 
 : (mult-order) ( n a m -- k )
-    3dup ^ swap mod 1 = [ 2nip ] [ 1+ (mult-order) ] if ;
+    3dup ^ swap mod 1 = [ 2nip ] [ 1 + (mult-order) ] if ;
 
 PRIVATE>