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

View File

@ -1,7 +1,7 @@
! Copyright (c) 2007, 2008 Aaron Schaefer, Samuel Tardieu.
! See http://factorcode.org/license.txt for BSD license.
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.005 project-euler.006 project-euler.007 project-euler.008
project-euler.009 project-euler.010 project-euler.011 project-euler.012
@ -33,7 +33,7 @@ IN: project-euler
: solution-path ( n -- str/f )
number>euler "project-euler." prepend
vocab where dup [ first ] when ;
vocab where dup [ first <pathname> ] when ;
PRIVATE>
@ -43,8 +43,8 @@ PRIVATE>
: run-project-euler ( -- )
problem-prompt dup problem-solved? [
dup number>euler "project-euler." prepend run
"Answer: " swap dup number? [ number>string ] when append print
"Source: " swap solution-path append print
"Answer: " write dup number? [ number>string ] when print
"Source: " write solution-path .
] [
drop "That problem has not been solved yet..." print
] if ;