From 351ae54366ee3706c55e141b9156076f4144b047 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 28 Sep 2012 19:21:23 -0700 Subject: [PATCH] project-euler.150: bit faster with inline. --- extra/project-euler/150/150.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/extra/project-euler/150/150.factor b/extra/project-euler/150/150.factor index 2581e907b5..169e7005be 100644 --- a/extra/project-euler/150/150.factor +++ b/extra/project-euler/150/150.factor @@ -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>