Advertisement
Guest User

Untitled

a guest
Oct 26th, 2016
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. main = do putStr "Please enter program source file name: "
  2. programFileName <- getLine
  3. programFileHandle <- openFile programFileName ReadMode
  4. program <- hGetContents programFileHandle
  5. putStr "Please enter initial file configuration file name: "
  6. initConfigFileName <- getLine
  7. initConfigFileHandle <- openFile initConfigFileName ReadMode
  8. initConfigStr <- hGetContents initConfigFileHandle
  9. print (evaluateProgram (lines program) (readReg initConfigStr))
  10.  
  11. $ ./a.out
  12. sum.urm
  13. sum.conf
  14. Please enter program source file name: Please enter initial file configuration file name: 9
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement