factor: trim using lists

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

diff --git a/extra/project-euler/058/058.factor b/extra/project-euler/058/058.factor
index 6edf2ad22a47ea80169fa4ca7108acd430247b2c..a498c738399a78b325bd7634a7f48c937b955ffd 100644 (file)
--- a/extra/project-euler/058/058.factor
+++ b/extra/project-euler/058/058.factor
@@ -1,6 +1,7 @@
 ! Copyright (c) 2009 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: fry kernel math math.primes math.ranges project-euler.common sequences ;
+USING: kernel math math.primes project-euler.common ranges
+sequences ;
 IN: project-euler.058
 
 ! http://projecteuler.net/index.php?section=problems&id=58
@@ -43,7 +44,7 @@ CONSTANT: PERCENT_PRIME 0.1
 !    (n-2)² + 4(n-1) = odd squares, no need to calculate
 
 : prime-corners ( n -- m )
-    3 [1,b] swap '[ _ [ 1 - * ] keep 2 - sq + prime? ] count ;
+    3 [1..b] swap '[ _ [ 1 - * ] keep 2 - sq + prime? ] count ;
 
 : total-corners ( n -- m )
     1 - 2 * ; foldable