steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix compile error

db4
Doug Coleman 2008-04-14 02:43:00 -05:00
parent f64d511ca6
commit 7917da4279
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/project-euler/169/169.factor
View File

@ -30,7 +30,7 @@ MEMO: fn ( n -- x )
{ {
{ [ dup 2 < ] [ drop 1 ] } { [ dup 2 < ] [ drop 1 ] }
{ [ dup odd? ] [ 2/ fn ] } { [ dup odd? ] [ 2/ fn ] }
[ 2/ [ fn ] [ 1- fn + ] bi + ] [ 2/ [ fn ] [ 1- fn ] bi + ]
} cond ; } cond ;
: euler169 ( -- result ) : euler169 ( -- result )