Eliminate stack shuffling by using bi in PE #25

2009-05-07 10:56:33 -04:00 · 2009-05-07 10:56:33 -04:00 · 5e82d794df
parent 0878006bd0
commit 5e82d794df
1 changed files with 1 additions and 1 deletions
--- 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