From 7917da4279060684f654ca02a616a2d220074b32 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 14 Apr 2008 02:43:00 -0500 Subject: [PATCH] fix compile error --- extra/project-euler/169/169.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/project-euler/169/169.factor b/extra/project-euler/169/169.factor index 973e50748c..4387662c90 100644 --- 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 )