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

print out clickable pathnames in project euler

db4
Doug Coleman 2008-11-06 15:48:08 -06:00
parent 112f9c4c78
commit 73f6691f75
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
! Copyright (c) 2007, 2008 Aaron Schaefer, Samuel Tardieu. ! Copyright (c) 2007, 2008 Aaron Schaefer, Samuel Tardieu.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: definitions io io.files kernel math math.parser project-euler.ave-time USING: definitions io io.files kernel math math.parser project-euler.ave-time
sequences vocabs vocabs.loader sequences vocabs vocabs.loader prettyprint
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
@ -33,7 +33,7 @@ IN: project-euler
: solution-path ( n -- str/f ) : solution-path ( n -- str/f )
number>euler "project-euler." prepend number>euler "project-euler." prepend
vocab where dup [ first ] when ; vocab where dup [ first <pathname> ] when ;
PRIVATE> PRIVATE>
@ -43,8 +43,8 @@ PRIVATE>
: run-project-euler ( -- ) : run-project-euler ( -- )
problem-prompt dup problem-solved? [ problem-prompt dup problem-solved? [
dup number>euler "project-euler." prepend run dup number>euler "project-euler." prepend run
"Answer: " swap dup number? [ number>string ] when append print "Answer: " write dup number? [ number>string ] when print
"Source: " swap solution-path append print "Source: " write solution-path .
] [ ] [
drop "That problem has not been solved yet..." print drop "That problem has not been solved yet..." print
] if ; ] if ;