# HG changeset patch # User Markus Kaiser # Date 1358979727 -3600 # Node ID 71b56f8b30697ca6a322114bd53fc5407dcb99ec # Parent 21721a110098cdb452c8994d2317e78eaf4ac9e6 week 13 diff -r 21721a110098 -r 71b56f8b3069 blatt13.pdf Binary file blatt13.pdf has changed diff -r 21721a110098 -r 71b56f8b3069 exercises/src/Exercise_13.hs --- /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