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

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

diff --git a/extra/project-euler/075/075.factor b/extra/project-euler/075/075.factor
index 5f54d8508e89683d64e352b1fdab0b8034877c8f..7285078bcf0cb19c481e1f92eeeaca978479526e 100755 (executable)
--- a/extra/project-euler/075/075.factor
+++ b/extra/project-euler/075/075.factor
@@ -50,8 +50,8 @@ SYMBOL: p-count
     p-count get length ;
 
 : adjust-p-count ( n -- )
-    max-p 1- over <range> p-count get
-    [ [ 1+ ] change-nth ] curry each ;
+    max-p 1 - over <range> p-count get
+    [ [ 1 + ] change-nth ] curry each ;
 
 : (count-perimeters) ( seq -- )
     dup sum max-p < [