factor: trim using lists

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

diff --git a/extra/project-euler/064/064.factor b/extra/project-euler/064/064.factor
index 87f830d7cf72f83f5823a865d02fb49f45846962..0f3b9702af381351b59fb481905b15362d1168e7 100644 (file)
--- a/extra/project-euler/064/064.factor
+++ b/extra/project-euler/064/064.factor
@@ -1,6 +1,5 @@
-USING: accessors arrays classes.tuple io kernel locals math
-math.functions math.ranges prettyprint project-euler.common
-sequences ;
+USING: accessors classes.tuple kernel math math.functions
+project-euler.common ranges sequences ;
 IN: project-euler.064
 
 ! http://projecteuler.net/index.php?section=problems&id=64
@@ -115,7 +114,7 @@ C: <cont-frac> cont-frac
     drop drop drop ;
 
 : try-all ( -- n )
-    2 10000 [a,b]
+    2 10000 [a..b]
     [ perfect-square? ] reject
     [ find-period ] map
     [ odd? ] filter
@@ -171,6 +170,6 @@ C: <cfrac> cfrac
 PRIVATE>
 
 : euler064b ( -- ct )
-    10000 [1,b] [ period odd? ] count ;
+    10000 [1..b] [ period odd? ] count ;
 
 SOLUTION: euler064b