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

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

db4
Samuel Tardieu 2008-04-04 12:48:36 +02:00
parent f2cbd7648f
commit dcc28cd0f8
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 ] }
{ [ t ] [ 2/ [ fn ] [ 1- fn + ] bi ] } { [ t ] [ 2/ [ fn ] [ 1- fn + ] bi + ] }
} cond ; } cond ;
: euler169 ( -- result ) : euler169 ( -- result )