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

2008-04-04 12:48:36 +02:00 · 2008-04-04 12:48:36 +02:00 · dcc28cd0f8
parent f2cbd7648f
commit dcc28cd0f8
1 changed files with 1 additions and 1 deletions
--- 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 )