Fix bug in project-euler.169 introduced by a former checkin

diff --git a/extra/project-euler/169/169.factor b/extra/project-euler/169/169.factor
index 35fb2c2c1e920a041e4895bd20135314cc496fab..90655149dc48b2e0dc1075f37ca4d0abb7b0b691 100644 (file)
--- a/extra/project-euler/169/169.factor
+++ b/extra/project-euler/169/169.factor
@@ -30,7 +30,7 @@ MEMO: fn ( n -- x )
     {
         { [ dup 2 < ]  [ drop 1 ] }
         { [ dup odd? ] [ 2/ fn ] }
-        { [ t ]        [ 2/ [ fn ] [ 1- fn + ] bi ] }
+        { [ t ]        [ 2/ [ fn ] [ 1- fn + ] bi + ] }
     } cond ;
 
 : euler169 ( -- result )