factor: trim using lists

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

diff --git a/extra/project-euler/206/206.factor b/extra/project-euler/206/206.factor
index 2cc9a40925a974c5d350cbc10bc5ea81c1096a9e..34bf3a088e7a78d30eeb475bf962470317685e65 100644 (file)
--- a/extra/project-euler/206/206.factor
+++ b/extra/project-euler/206/206.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2010 Aaron Schaefer. All rights reserved.
 ! The contents of this file are licensed under the Simplified BSD License
 ! A copy of the license is available at http://factorcode.org/license.txt
-USING: grouping kernel math math.ranges project-euler.common
+USING: grouping kernel math project-euler.common ranges
 sequences sequences.cords ;
 IN: project-euler.206
 
@@ -30,8 +30,8 @@ CONSTANT: lo 1010101030
 CONSTANT: hi 1389026570
 
 : form-fitting? ( n -- ? )
-    number>digits 2 group keys
-    { 1 2 3 4 5 6 7 8 9 0 } = ;
+    number>digits 2 group [ first ] map
+    { 1 2 3 4 5 6 7 8 9 0 } sequence= ;
 
 : candidates ( -- seq )
     lo lo 40 + [ hi 100 <range> ] bi@ cord-append ;