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

project-euler.150: 20% faster.

db4
John Benediktsson 2011-10-16 21:21:07 -07:00
parent 81714b8dc3
commit 4919339721
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,11 +36,8 @@ IN: project-euler.150
: partial-sums ( seq -- sums ) : partial-sums ( seq -- sums )
0 [ + ] accumulate swap suffix ; inline 0 [ + ] accumulate swap suffix ; inline
: (partial-sum-infimum) ( inf sum elt -- inf sum ) : partial-sum-infimum ( seq quot -- seq )
+ [ min ] keep ; inline [ 0 0 ] 2dip [ + [ min ] keep ] compose each drop ; inline
: partial-sum-infimum ( seq -- seq )
0 0 rot [ (partial-sum-infimum) ] each drop ; inline
: map-infimum ( seq quot -- min ) : map-infimum ( seq quot -- min )
[ min ] compose 0 swap reduce ; inline [ min ] compose 0 swap reduce ; inline
@ -61,7 +58,7 @@ IN: project-euler.150
x z + table nth-unsafe x z + table nth-unsafe
[ y z + 1 + swap nth-unsafe ] [ y z + 1 + swap nth-unsafe ]
[ y swap nth-unsafe ] bi - [ y swap nth-unsafe ] bi -
] map partial-sum-infimum ] partial-sum-infimum
] map-infimum ] map-infimum
] map-infimum ; ] map-infimum ;