fix compile error

2008-04-14 02:43:00 -05:00 · 2008-04-14 02:43:00 -05:00 · 7917da4279
parent f64d511ca6
commit 7917da4279
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 ] }
-        [ 2/ [ fn ] [ 1- fn + ] bi + ]
+        [ 2/ [ fn ] [ 1- fn ] bi + ]
    } cond ;

 : euler169 ( -- result )