From 68031375a02ac2f374ccc1b20f0da774c206d92f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 7 Sep 2023 10:22:53 -0700
Subject: [PATCH] project-euler.002: simplify euler002a

---
 extra/project-euler/002/002.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/project-euler/002/002.factor b/extra/project-euler/002/002.factor
index fa0964a716..b1dbc7e0d0 100644
--- a/extra/project-euler/002/002.factor
+++ b/extra/project-euler/002/002.factor
@@ -41,8 +41,7 @@ PRIVATE>
 ! -------------------
 
 : fib-upto* ( n -- seq )
-    0 1 [ pick over >= ] [ [ nip ] 2keep + dup ] produce 3nip
-    but-last-slice { 0 1 } prepend ;
+    [ 1 0 ] dip '[ [ + ] 2keep dup _ < ] [ ] produce 3nip ;
 
 : euler002a ( -- answer )
     4,000,000 fib-upto* [ even? ] filter sum ;
-- 
2.34.1