initial checkin from subversion

2017-02-07 20:06:59 +00:00
commit 7ae0afbc4b
7 changed files with 59 additions and 0 deletions
--- a/numGuess1.hs
+++ b/numGuess1.hs
@@ -0,0 +1,12 @@
+doGuessing num = do
+	putStrLn "Enter your guess:"
+	guess <- getLine
+	if (read guess) < num
+		then do putStrLn "Too low!"
+			doGuessing num
+		else if (read guess) > num
+		then do putStrLn "Too high!"
+			doGuessing num
+		else do putStrLn "You Win!"
+
+