From 714501614256add177d3bb6208b58311116d4f20 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 11 Sep 2009 21:14:43 -0500
Subject: [PATCH] project-euler.044: even faster algorithm

---
 extra/project-euler/044/044.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/project-euler/044/044.factor b/extra/project-euler/044/044.factor
index b4300d0fe8..48dad9f751 100644
--- 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 ;