From 2aa9dc9dde9b354d7022be531aec009efba22436 Mon Sep 17 00:00:00 2001 From: Aaron Schaefer Date: Mon, 24 Dec 2007 13:07:46 -0500 Subject: [PATCH] Use Letter? instead of alpha? on euler017a --- extra/project-euler/017/017.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/extra/project-euler/017/017.factor b/extra/project-euler/017/017.factor index c87cd3920e..1fdb6c5484 100644 --- a/extra/project-euler/017/017.factor +++ b/extra/project-euler/017/017.factor @@ -1,6 +1,7 @@ ! Copyright (c) 2007 Samuel Tardieu, Aaron Schaefer. ! See http://factorcode.org/license.txt for BSD license. -USING: kernel math math.ranges math.text namespaces sequences strings ; +USING: combinators.lib kernel math math.ranges math.text namespaces sequences + strings ; IN: project-euler.017 ! http://projecteuler.net/index.php?section=problems&id=17 @@ -68,7 +69,7 @@ PRIVATE> ! ------------------- : euler017a ( -- answer ) - 1000 [1,b] SBUF" " clone [ number>text over push-all ] reduce [ alpha? ] count ; + 1000 [1,b] SBUF" " clone [ number>text over push-all ] reduce [ Letter? ] count ; ! [ euler017a ] 100 ave-time ! 14 ms run / 1 ms GC ave time - 100 trials