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

Fix bug in project Euler 134 and update timings wrt math.algebra code changes

db4
Samuel Tardieu 2007-12-28 14:18:15 +01:00
parent a9903e1bdc
commit a680c3abc5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/project-euler/134/134.factor
View File

@ -34,9 +34,9 @@ IN: project-euler.134
over 0 2array rot next-power-of-10 rot 2array chinese-remainder ; over 0 2array rot next-power-of-10 rot 2array chinese-remainder ;
: euler134 ( -- answer ) : euler134 ( -- answer )
5 lprimes-from [ 1000000 > ] luntil [ [ s + ] keep ] leach drop ; 0 5 lprimes-from uncons [ 1000000 > ] luntil [ [ s + ] keep ] leach drop ;
! [ euler134 ] 10 ave-time ! [ euler134 ] 10 ave-time
! 6743 ms run / 79 ms GC ave time - 10 trials ! 3797 ms run / 30 ms GC ave time - 10 trials
MAIN: euler134 MAIN: euler134