X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fproject-euler%2F150%2F150.factor;h=a54b7d1db0faa147fd98c6b2a82ba21efaa163b8;hp=eeb4b0c315eb82420b8db813dd3c1d1ddacf650b;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/extra/project-euler/150/150.factor b/extra/project-euler/150/150.factor
index eeb4b0c315..a54b7d1db0 100644
--- a/extra/project-euler/150/150.factor
+++ b/extra/project-euler/150/150.factor
@@ -56,10 +56,10 @@ IN: project-euler.150
 :: (euler150) ( m -- n )
     [let | table [ sums-triangle ] |
         m [| x |
-            x 1+ [| y |
+            x 1 + [| y |
                 m x - [0,b) [| z |
                     x z + table nth-unsafe
-                    [ y z + 1+ swap nth-unsafe ]
+                    [ y z + 1 + swap nth-unsafe ]
                     [ y        swap nth-unsafe ] bi -
                 ] map partial-sum-infimum
             ] map-infimum