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

Fix PE solutions using old math.parser

db4
Aaron Schaefer 2008-02-07 20:25:03 -05:00
parent ba467a39c4
commit 741d3df68a
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/project-euler/041/041.factor
View File

@ -32,7 +32,7 @@ IN: project-euler.041
: euler041 ( -- answer ) : euler041 ( -- answer )
{ 7 6 5 4 3 2 1 } all-permutations { 7 6 5 4 3 2 1 } all-permutations
[ 10 swap digits>integer ] map [ prime? ] find nip ; [ 10 digits>integer ] map [ prime? ] find nip ;
! [ euler041 ] 100 ave-time ! [ euler041 ] 100 ave-time
! 107 ms run / 7 ms GC ave time - 100 trials ! 107 ms run / 7 ms GC ave time - 100 trials

6
extra/project-euler/043/043.factor
View File

@ -36,7 +36,7 @@ IN: project-euler.043
<PRIVATE <PRIVATE
: subseq-divisible? ( n index seq -- ? ) : subseq-divisible? ( n index seq -- ? )
[ 1- dup 3 + ] dip subseq 10 swap digits>integer swap mod zero? ; [ 1- dup 3 + ] dip subseq 10 digits>integer swap mod zero? ;
: interesting? ( seq -- ? ) : interesting? ( seq -- ? )
{ {
@ -53,7 +53,7 @@ PRIVATE>
: euler043 ( -- answer ) : euler043 ( -- answer )
1234567890 number>digits all-permutations 1234567890 number>digits all-permutations
[ interesting? ] subset [ 10 swap digits>integer ] map sum ; [ interesting? ] subset [ 10 digits>integer ] map sum ;
! [ euler043 ] time ! [ euler043 ] time
! 125196 ms run / 19548 ms GC time ! 125196 ms run / 19548 ms GC time
@ -89,7 +89,7 @@ PRIVATE>
PRIVATE> PRIVATE>
: euler043a ( -- answer ) : euler043a ( -- answer )
interesting-pandigitals [ 10 swap digits>integer ] sigma ; interesting-pandigitals [ 10 digits>integer ] sigma ;
! [ euler043a ] 100 ave-time ! [ euler043a ] 100 ave-time
! 19 ms run / 1 ms GC ave time - 100 trials ! 19 ms run / 1 ms GC ave time - 100 trials

2
extra/project-euler/079/079.factor
View File

@ -54,7 +54,7 @@ PRIVATE>
concat prune dupd seq-diff append ; concat prune dupd seq-diff append ;
: euler079 ( -- answer ) : euler079 ( -- answer )
source-079 >edges topological-sort 10 swap digits>integer ; source-079 >edges topological-sort 10 digits>integer ;
! [ euler079 ] 100 ave-time ! [ euler079 ] 100 ave-time
! 2 ms run / 0 ms GC ave time - 100 trials ! 2 ms run / 0 ms GC ave time - 100 trials