1 ! Copyright (c) 2007-2010 Aaron Schaefer, Samuel Tardieu.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io kernel math.parser prettyprint sequences
9 : problem-prompt ( -- n )
10 "Which problem number from Project Euler would you like to solve?"
11 print flush readln string>number ;
13 : number>euler ( n -- str )
14 number>string 3 CHAR: 0 pad-head ;
16 : solution-path ( n -- str/f )
17 number>euler "project-euler." prepend vocab-source-path ;
21 : problem-solved? ( n -- ? )
24 : run-project-euler ( -- )
25 problem-prompt dup problem-solved? [
27 dup number>euler "project-euler." prepend run
28 "Source: " write solution-path .
30 drop "That problem has not been solved yet..." print
33 MAIN: run-project-euler