steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Eliminate stack shuffling by using bi in PE #25

db4
Aaron Schaefer 2009-05-07 10:56:33 -04:00
parent 0878006bd0
commit 5e82d794df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/project-euler/025/025.factor
View File

@ -39,7 +39,7 @@ IN: project-euler.025
! Memoized brute force ! Memoized brute force
MEMO: fib ( m -- n ) MEMO: fib ( m -- n )
dup 1 > [ 1- dup fib swap 1- fib + ] when ; dup 1 > [ [ 1 - fib ] [ 2 - fib ] bi + ] when ;
<PRIVATE <PRIVATE