project-euler.044: even faster algorithm

2009-09-11 21:14:43 -05:00 · 2009-09-11 21:14:43 -05:00 · be8453efc5
parent 50299d19d7
commit be8453efc5
1 changed files with 1 additions and 1 deletions
--- a/extra/project-euler/044/044.factor
+++ b/extra/project-euler/044/044.factor
@ -43,7 +43,7 @@ PRIVATE>
 : euler044 ( -- answer )
    most-positive-fixnum >fixnum
    2500 [1,b] [
-        2500 [1,b] [
+        dup [1,b] [
            euler044-step
        ] with each
    ] each ;