Project Euler solutions are not always numbers

diff --git a/extra/project-euler/project-euler.factor b/extra/project-euler/project-euler.factor
index 601acb70b5c5baa0f8a2b83b9333a2689873daca..4cd4a3826eb5e133c5ba211232475ce716947385 100644 (file)
--- a/extra/project-euler/project-euler.factor
+++ b/extra/project-euler/project-euler.factor
@@ -1,6 +1,6 @@
 ! Copyright (c) 2007 Aaron Schaefer.
 ! 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
     project-euler.001 project-euler.002 project-euler.003 project-euler.004
     project-euler.005 project-euler.006 project-euler.007 project-euler.008
@@ -32,7 +32,7 @@ PRIVATE>
 : run-project-euler ( -- )
     problem-prompt dup problem-solved? [
         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
     ] [
         drop "That problem has not been solved yet..." print