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

add project-euler.203

db4
Eric Mertens 2008-11-10 19:34:36 -08:00
parent 2489ac5205
commit 8ace93a75f
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/project-euler/203/203-tests.factor Normal file
View File

@ -0,0 +1,5 @@
USING: project-euler.203 tools.test ;
IN: project-euler.203.tests
[ 105 ] [ 8 solve ] unit-test
[ 34029210557338 ] [ 51 solve ] unit-test

9
extra/project-euler/203/203.factor Normal file
View File

@ -0,0 +1,9 @@
USING: fry kernel math math.primes.factors sequences sets ;
IN: project-euler.203
: iterate ( n initial quot -- results ) swapd '[ @ dup ] replicate nip ; inline
: (generate) ( seq -- seq ) [ 0 prefix ] [ 0 suffix ] bi [ + ] 2map ;
: generate ( n -- seq ) 1- { 1 } [ (generate) ] iterate concat prune ;
: squarefree ( n -- ? ) factors duplicates empty? ;
: solve ( n -- n ) generate [ squarefree ] filter sum ;
: euler203 ( -- n ) 51 solve ;