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

Additional solution to PE problem 1 from IRC

db4
Aaron Schaefer 2009-04-19 13:01:02 -04:00
parent 4e4e9cb579
commit e4ce05f73b
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/project-euler/001/001-tests.factor
View File

@ -5,3 +5,4 @@ IN: project-euler.001.tests
[ 233168 ] [ euler001a ] unit-test [ 233168 ] [ euler001a ] unit-test
[ 233168 ] [ euler001b ] unit-test [ 233168 ] [ euler001b ] unit-test
[ 233168 ] [ euler001c ] unit-test [ 233168 ] [ euler001c ] unit-test
[ 233168 ] [ euler001d ] unit-test

16
extra/project-euler/001/001.factor
View File

@ -1,6 +1,7 @@
! Copyright (c) 2007, 2008 Aaron Schaefer, Slava Pestov. ! Copyright (c) 2007, 2008 Aaron Schaefer, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.functions math.ranges sequences project-euler.common ; USING: kernel math math.functions math.ranges project-euler.common sequences
sets ;
IN: project-euler.001 IN: project-euler.001
! http://projecteuler.net/index.php?section=problems&id=1 ! http://projecteuler.net/index.php?section=problems&id=1
@ -32,7 +33,7 @@ PRIVATE>
999 15 sum-divisible-by - ; 999 15 sum-divisible-by - ;
! [ euler001 ] 100 ave-time ! [ euler001 ] 100 ave-time
! 0 ms run / 0 ms GC ave time - 100 trials ! 0 ms ave run time - 0.0 SD (100 trials)
! ALTERNATE SOLUTIONS ! ALTERNATE SOLUTIONS
@ -42,14 +43,14 @@ PRIVATE>
0 999 3 <range> sum 0 999 5 <range> sum + 0 999 15 <range> sum - ; 0 999 3 <range> sum 0 999 5 <range> sum + 0 999 15 <range> sum - ;
! [ euler001a ] 100 ave-time ! [ euler001a ] 100 ave-time
! 0 ms run / 0 ms GC ave time - 100 trials ! 0 ms ave run time - 0.03 SD (100 trials)
: euler001b ( -- answer ) : euler001b ( -- answer )
1000 [ [ 5 mod ] [ 3 mod ] bi [ 0 = ] either? ] filter sum ; 1000 [ [ 5 mod ] [ 3 mod ] bi [ 0 = ] either? ] filter sum ;
! [ euler001b ] 100 ave-time ! [ euler001b ] 100 ave-time
! 0 ms run / 0 ms GC ave time - 100 trials ! 0 ms ave run time - 0.06 SD (100 trials)
: euler001c ( -- answer ) : euler001c ( -- answer )
@ -58,4 +59,11 @@ PRIVATE>
! [ euler001c ] 100 ave-time ! [ euler001c ] 100 ave-time
! 0 ms ave run time - 0.06 SD (100 trials) ! 0 ms ave run time - 0.06 SD (100 trials)
: euler001d ( -- answer )
{ 3 5 } [ [ 999 ] keep <range> ] gather sum ;
! [ euler001d ] 100 ave-time
! 0 ms ave run time - 0.08 SD (100 trials)
SOLUTION: euler001 SOLUTION: euler001