Mercurial > 12ws.info2

comparison exercises/src/Exercise_13.hs @ 33:71b56f8b3069

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
week 13
author Markus Kaiser <markus.kaiser@in.tum.de>
date Wed, 23 Jan 2013 23:22:07 +0100
parents
children f62e3ed2c90d
comparison
equal deleted inserted replaced
32:21721a110098 33:71b56f8b3069
1 module Exercise_13 where
2 import Data.Char (isDigit, digitToInt)
3 import Data.List (find, isInfixOf, isSuffixOf, nub, sort, intersect)
4 import System.Random (randomRIO)
5 import Test.QuickCheck
6
7 {---------------------------------------------------------------------}
8 {- Aufgabe G13.1 -}
9
10 nRandomR :: (Int, Int) -> Int -> IO [Int]
11 nRandomR lowhigh = undefined
12
13
14
15 {---------------------------------------------------------------------}
16 {- Aufgabe G13.1 -}
17
18 getLineInt :: IO Int
19 getLineInt = undefined
20
21 guessNum :: IO Int
22 guessNum = undefined
23
24
25
26 {---------------------------------------------------------------------}
27 {- Aufgabe H13.1 -}
28
29 getSorted :: IO [String]
30 getSorted = undefined
31
32
33
34 {---------------------------------------------------------------------}
35 {- Aufgabe H13.2 -}
36
37 bullsAndBears :: IO ()
38 bullsAndBears = undefined