steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use Letter? instead of alpha? on euler017a

db4
Aaron Schaefer 2007-12-24 13:07:46 -05:00
parent 207e752464
commit 2aa9dc9dde
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/project-euler/017/017.factor
View File

@ -1,6 +1,7 @@
! Copyright (c) 2007 Samuel Tardieu, Aaron Schaefer. ! Copyright (c) 2007 Samuel Tardieu, Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: project-euler.017
! http://projecteuler.net/index.php?section=problems&id=17 ! http://projecteuler.net/index.php?section=problems&id=17
@ -68,7 +69,7 @@ PRIVATE>
! ------------------- ! -------------------
: euler017a ( -- answer ) : 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 ! [ euler017a ] 100 ave-time
! 14 ms run / 1 ms GC ave time - 100 trials ! 14 ms run / 1 ms GC ave time - 100 trials