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

Better method for getting last digits of an integer

db4
Aaron Schaefer 2008-02-02 19:31:55 -05:00
parent 557bde6206
commit ac10c4067a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/project-euler/032/032.factor
View File

@ -1,7 +1,7 @@
! Copyright (c) 2008 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.lib hashtables kernel math math.combinatorics math.parser
math.ranges project-euler.common sequences ;
USING: combinators.lib hashtables kernel math math.combinatorics math.functions
math.parser math.ranges project-euler.common sequences ;
IN: project-euler.032
! http://projecteuler.net/index.php?section=problems&id=32
@ -41,7 +41,7 @@ IN: project-euler.032
dup 1and4 swap 2and3 or ;
: products ( seq -- m )
[ number>string 4 tail* 10 string>integer ] map ;
[ 10 4 ^ mod ] map ;
PRIVATE>
@ -49,7 +49,7 @@ PRIVATE>
source-032 [ valid? ] subset products prune sum ;
! [ euler032 ] 10 ave-time
! 27609 ms run / 2484 ms GC ave time - 10 trials
! 23922 ms run / 1505 ms GC ave time - 10 trials
! ALTERNATE SOLUTIONS