Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- main = do putStr "Please enter program source file name: "
- programFileName <- getLine
- programFileHandle <- openFile programFileName ReadMode
- program <- hGetContents programFileHandle
- putStr "Please enter initial file configuration file name: "
- initConfigFileName <- getLine
- initConfigFileHandle <- openFile initConfigFileName ReadMode
- initConfigStr <- hGetContents initConfigFileHandle
- print (evaluateProgram (lines program) (readReg initConfigStr))
- $ ./a.out
- sum.urm
- sum.conf
- Please enter program source file name: Please enter initial file configuration file name: 9
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement