Mercurial > 12ws.info2
changeset 33:71b56f8b3069
week 13
author | Markus Kaiser <markus.kaiser@in.tum.de> |
---|---|
date | Wed, 23 Jan 2013 23:22:07 +0100 |
parents | 21721a110098 |
children | f62e3ed2c90d |
files | blatt13.pdf exercises/src/Exercise_13.hs |
diffstat | 2 files changed, 38 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/exercises/src/Exercise_13.hs Wed Jan 23 23:22:07 2013 +0100 @@ -0,0 +1,38 @@ +module Exercise_13 where +import Data.Char (isDigit, digitToInt) +import Data.List (find, isInfixOf, isSuffixOf, nub, sort, intersect) +import System.Random (randomRIO) +import Test.QuickCheck + +{---------------------------------------------------------------------} +{- Aufgabe G13.1 -} + +nRandomR :: (Int, Int) -> Int -> IO [Int] +nRandomR lowhigh = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe G13.1 -} + +getLineInt :: IO Int +getLineInt = undefined + +guessNum :: IO Int +guessNum = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe H13.1 -} + +getSorted :: IO [String] +getSorted = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe H13.2 -} + +bullsAndBears :: IO () +bullsAndBears = undefined