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

6
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 615949 * 797807 + 20 2^ rem dup 19 2^ - ; inline
: sums-triangle ( -- seq ) : 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 ) :: (euler150) ( m -- n )
sums-triangle :> table sums-triangle :> table
@ -60,9 +60,7 @@ IN: project-euler.150
[ y swap nth-unsafe ] bi - [ y swap nth-unsafe ] bi -
] partial-sum-infimum ] partial-sum-infimum
] map-infimum ] map-infimum
] map-infimum ; ] map-infimum ; inline
HINTS: (euler150) fixnum ;
PRIVATE> PRIVATE>