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

Add Project Euler solution for problem 1 from IRC

db4
Aaron Schaefer 2008-12-16 22:43:22 -05:00
parent 8e0ff1989b
commit 89852b22d4
2 changed files with 9 additions and 1 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

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

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

@ -1,4 +1,4 @@
! Copyright (c) 2007 Aaron Schaefer.
! Copyright (c) 2007, 2008 Aaron Schaefer, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.ranges sequences ;
IN: project-euler.001
@ -51,4 +51,11 @@ PRIVATE>
! [ euler001b ] 100 ave-time
! 0 ms run / 0 ms GC ave time - 100 trials
: euler001c ( -- answer )
1000 [ { 3 5 } [ mod 0 = ] with contains? ] filter sum ;
! [ euler001c ] 100 ave-time
! 0 ms ave run time - 0.06 SD (100 trials)
MAIN: euler001