]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/project-euler/045/045.factor
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...
[factor.git] / extra / project-euler / 045 / 045.factor
index 939b8416bb3b9083f0c7e5509d82aba37c02fb0e..8b0db1a32e4584c2b045ddc2505a0622e79a85fa 100644 (file)
@@ -28,7 +28,7 @@ IN: project-euler.045
 <PRIVATE
 
 : nth-hexagonal ( n -- m )
-    dup 2 * 1- * ;
+    dup 2 * 1 - * ;
 
 DEFER: next-solution
 
@@ -36,7 +36,7 @@ DEFER: next-solution
     dup pentagonal? [ nip ] [ drop next-solution ] if ;
 
 : next-solution ( n -- m )
-    1+ dup nth-hexagonal (next-solution) ;
+    1 + dup nth-hexagonal (next-solution) ;
 
 PRIVATE>