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

Update problems list and simplify code

db4
Samuel Tardieu 2007-12-28 14:52:11 +01:00
parent a680c3abc5
commit 483028cc51
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
extra/project-euler/project-euler.factor
View File

@ -1,11 +1,14 @@
! Copyright (c) 2007 Aaron Schaefer. ! Copyright (c) 2007 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io io.files kernel math.parser namespaces sequences strings USING: definitions io io.files kernel math.parser sequences strings
vocabs vocabs.loader system project-euler.ave-time vocabs vocabs.loader
project-euler.001 project-euler.002 project-euler.003 project-euler.004 project-euler.001 project-euler.002 project-euler.003 project-euler.004
project-euler.005 project-euler.006 project-euler.007 project-euler.008 project-euler.005 project-euler.006 project-euler.007 project-euler.008
project-euler.009 project-euler.010 project-euler.011 project-euler.012 project-euler.009 project-euler.010 project-euler.011 project-euler.012
project-euler.013 project-euler.014 project-euler.015 project-euler.016 ; project-euler.013 project-euler.014 project-euler.015 project-euler.016
project-euler.017 project-euler.018 project-euler.019
project-euler.067
project-euler.134 ;
IN: project-euler IN: project-euler
<PRIVATE <PRIVATE
@ -15,22 +18,16 @@ IN: project-euler
print readln string>number ; print readln string>number ;
: number>euler ( n -- str ) : number>euler ( n -- str )
number>string string>digits 3 0 pad-left [ number>string ] map concat ; number>string 3 CHAR: 0 pad-left ;
: solution-path ( n -- str ) : solution-path ( n -- str/f )
number>euler dup [ number>euler "project-euler." swap append vocab where
"project-euler" vocab-root ?resource-path % dup [ first ?resource-path ] when ;
os "windows" = [
"\\project-euler\\" % % "\\" % % ".factor" %
] [
"/project-euler/" % % "/" % % ".factor" %
] if
] "" make ;
PRIVATE> PRIVATE>
: problem-solved? ( n -- ? ) : problem-solved? ( n -- ? )
solution-path exists? ; solution-path ;
: run-project-euler ( -- ) : run-project-euler ( -- )
problem-prompt dup problem-solved? [ problem-prompt dup problem-solved? [