factor: trim using lists

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

diff --git a/extra/project-euler/175/175.factor b/extra/project-euler/175/175.factor
index e6b4acc8c080f2a476318542dbb7f1fd153eeffd..9f47c343d5c46924f7b3de9f5cc5849def55efea 100644 (file)
--- a/extra/project-euler/175/175.factor
+++ b/extra/project-euler/175/175.factor
@@ -1,6 +1,7 @@
 ! Copyright (c) 2007 Samuel Tardieu.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators kernel math math.parser math.ranges sequences vectors ;
+USING: combinators kernel math math.parser project-euler.common
+sequences ;
 IN: project-euler.175
 
 ! http://projecteuler.net/index.php?section=problems&id=175
@@ -42,9 +43,9 @@ IN: project-euler.175
 
 : compute ( vec ratio -- )
     {
-        { [ dup integer? ] [ 1- 0 add-bits ] }
+        { [ dup integer? ] [ 1 - 0 add-bits ] }
         { [ dup 1 < ] [ 1 over - / dupd compute 1 1 add-bits ] }
-        { [ t ] [ [ 1 mod compute ] 2keep >integer 0 add-bits ] }
+        [ [ 1 mod compute ] 2keep >integer 0 add-bits ]
     } cond ;
 
 PRIVATE>
@@ -53,6 +54,6 @@ PRIVATE>
     V{ 1 } clone dup 123456789/987654321 compute [ number>string ] map "," join ;
 
 ! [ euler175 ] 100 ave-time
-! 0 ms run / 0 ms GC ave time - 100 trials
+! 0 ms ave run time - 0.31 SD (100 trials)
 
-MAIN: euler175
+SOLUTION: euler175