factor: trim using lists

[factor.git] / extra / project-euler / 044 / 044.factor

diff --git a/extra/project-euler/044/044.factor b/extra/project-euler/044/044.factor
index b4300d0fe81c6539068c42226d8f5c6f202793b1..747e058eb53311c11c1cc04984bf18564d513c72 100644 (file)
--- a/extra/project-euler/044/044.factor
+++ b/extra/project-euler/044/044.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math math.functions math.ranges math.order
-project-euler.common sequences layouts ;
+USING: kernel math ranges math.order project-euler.common
+sequences layouts ;
 IN: project-euler.044
 
 ! http://projecteuler.net/index.php?section=problems&id=44
@@ -32,7 +32,7 @@ IN: project-euler.044
     dup 3 * 1 - * 2 /i ; inline
 
 : sum-and-diff? ( m n -- ? )
-    [ + ] [ - ] 2bi [ pentagonal? ] bi@ and ; inline
+    [ + ] [ - ] 2bi [ pentagonal? ] both? ; inline
 
 : euler044-step ( min m n -- min' )
     [ nth-pentagonal ] bi@
@@ -41,14 +41,14 @@ IN: project-euler.044
 PRIVATE>
 
 : euler044 ( -- answer )
-    most-positive-fixnum >fixnum
-    2500 [1,b] [
-        2500 [1,b] [
+    most-positive-fixnum
+    2500 [1..b] [
+        dup [1..b] [
             euler044-step
         ] with each
     ] each ;
 
 ! [ euler044 ] 10 ave-time
-! 4996 ms ave run time - 87.46 SD (10 trials)
+! 289 ms ave run time - 0.27 SD (10 trials)
 
 SOLUTION: euler044