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

Project Euler solutions are not always numbers

db4
Samuel Tardieu 2007-12-30 13:08:31 +01:00
parent 483028cc51
commit dc18466c27
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
! 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: definitions io io.files kernel math.parser sequences strings USING: definitions io io.files kernel math math.parser sequences strings
vocabs vocabs.loader 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
@ -32,7 +32,7 @@ PRIVATE>
: run-project-euler ( -- ) : run-project-euler ( -- )
problem-prompt dup problem-solved? [ problem-prompt dup problem-solved? [
dup number>euler "project-euler." swap append run dup number>euler "project-euler." swap append run
"Answer: " swap number>string append print "Answer: " swap dup number? [ number>string ] when append print
"Source: " swap solution-path append print "Source: " swap solution-path append print
] [ ] [
drop "That problem has not been solved yet..." print drop "That problem has not been solved yet..." print