From 5e82d794df12897d34bc2b7a31549f2195c64048 Mon Sep 17 00:00:00 2001
From: Aaron Schaefer <aaron@elasticdog.com>
Date: Thu, 7 May 2009 10:56:33 -0400
Subject: [PATCH] Eliminate stack shuffling by using bi in PE #25

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

diff --git a/extra/project-euler/025/025.factor b/extra/project-euler/025/025.factor
index 80a933dc63..5dfe7b9f56 100644
--- a/extra/project-euler/025/025.factor
+++ b/extra/project-euler/025/025.factor
@@ -39,7 +39,7 @@ IN: project-euler.025
 ! Memoized brute force
 
 MEMO: fib ( m -- n )
-    dup 1 > [ 1- dup fib swap 1- fib + ] when ;
+    dup 1 > [ [ 1 - fib ] [ 2 - fib ] bi + ] when ;
 
 <PRIVATE