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

project-euler.044: even faster algorithm

db4
Slava Pestov 2009-09-11 21:14:43 -05:00
parent a86a9c99f7
commit 7145016142
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/044/044.factor
View File

@ -43,7 +43,7 @@ PRIVATE>
: euler044 ( -- answer ) : euler044 ( -- answer )
most-positive-fixnum >fixnum most-positive-fixnum >fixnum
2500 [1,b] [ 2500 [1,b] [
2500 [1,b] [ dup [1,b] [
euler044-step euler044-step
] with each ] with each
] each ; ] each ;