|
33
|
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 |
