Mercurial > 12ws.info2
changeset 31:d14aab8bbf36
week 12
author | Markus Kaiser <markus.kaiser@in.tum.de> |
---|---|
date | Wed, 16 Jan 2013 19:21:23 +0100 |
parents | 8bf7ca2663d2 |
children | 21721a110098 |
files | blatt12.pdf exercises/src/Exercise_12.hs |
diffstat | 2 files changed, 97 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/exercises/src/Exercise_12.hs Wed Jan 16 19:21:23 2013 +0100 @@ -0,0 +1,97 @@ +module Exercise_12 where + + +{---------------------------------------------------------------------} +{- Aufgabe G12.1 -} + +{- + +Ausdruck: 1 + (2 * 3) + + +Ausdruck: (1 + 2) * (2 + 3) + + +Ausdruck: fst (1 + 2, 2 + 3) + + +Ausdruck: fst (snd (1, 2 + 3), 4) + + +Ausdruck: (\x. 1 + x) (2 * 3) + + +-} + +{---------------------------------------------------------------------} +{- Aufgabe G12.2 -} + +inf :: a -> [a] +inf x = x : inf x + +f :: [Int] -> [Int] -> [Int] -> Int +f (x:xs) (y:ys) zs | x > y = y +f (x1:x2:xs) ys (z:zs) = x1 + +a = f (inf (1+0)) (inf (1+1)) (inf (1+2)) +b = f (inf (1+2)) (inf (1+1)) (inf (1+0)) +c = f (inf (1+0)) [] (inf (1+1)) + + +{---------------------------------------------------------------------} +{- Aufgabe G12.3 -} + +fib :: Integer -> Integer +fib 0 = 0 +fib 1 = 1 +fib n = fib (n - 1) + fib (n - 2) + + +fib1 :: [Integer] +fib1 = undefined + + +fib2 :: Integer -> Integer -> [Integer] +fib2 x y = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe G12.4 -} + +hamming :: [Integer] +hamming = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe H12.1 -} + +wordsOf :: [a] -> [[a]] +wordsOf = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe H12.2 -} + +sumOfPrefixes :: Num a => [a] -> [a] +sumOfPrefixes = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe H12.3 -} + +findByFilter :: (a -> Bool) -> [a] -> Maybe a +findByFilter = undefined + + + +{---------------------------------------------------------------------} +{- Aufgabe H12.4 -} + +{-WETT-} +censoredWordsOf :: Eq a => [a] -> [[a]] -> [[a]] +censoredWordsOf = undefined +{-TTEW-}