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

project-euler.150: bit faster with inline.

db4
John Benediktsson 2012-09-28 19:21:23 -07:00
parent 39a94832bd
commit 351ae54366
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/project-euler/150/150.factor
View File

@ -48,7 +48,7 @@ IN: project-euler.150
615949 * 797807 + 20 2^ rem dup 19 2^ - ; inline
: sums-triangle ( -- seq )
0 1000 [1,b] [ [ next ] replicate partial-sums ] map nip ;
0 1000 [1,b] [ [ next ] replicate partial-sums ] map nip ; inline
:: (euler150) ( m -- n )
sums-triangle :> table
@ -57,12 +57,10 @@ IN: project-euler.150
m x - iota [| z |
x z + table nth-unsafe
[ y z + 1 + swap nth-unsafe ]
[ y swap nth-unsafe ] bi -
[ y swap nth-unsafe ] bi -
] partial-sum-infimum
] map-infimum
] map-infimum ;
HINTS: (euler150) fixnum ;
] map-infimum ; inline
PRIVATE>