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

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

diff --git a/extra/project-euler/100/100.factor b/extra/project-euler/100/100.factor
index 6f05eb7120846adb2a05fdcb1ad2ab95aa018bf5..72584d833ec842bc4eca1d5e7ea344ba224e2981 100644 (file)
--- a/extra/project-euler/100/100.factor
+++ b/extra/project-euler/100/100.factor
@@ -25,7 +25,7 @@ IN: project-euler.100
 
 : euler100 ( -- answer )
     1 1
-    [ dup dup 1- * 2 * 10 24 ^ <= ]
+    [ dup dup 1 - * 2 * 10 24 ^ <= ]
     [ tuck 6 * swap - 2 - ] while nip ;
 
 ! TODO: solution needs generalization