# HG changeset patch
# User Markus Kaiser <markus.kaiser@in.tum.de>
# Date 1358360483 -3600
# Node ID d14aab8bbf36a994a8e7eb5852941daa9bb7fe58
# Parent  8bf7ca2663d273eeadbeb3494a97fc6ad1b0366a
week 12

diff -r 8bf7ca2663d2 -r d14aab8bbf36 blatt12.pdf
Binary file blatt12.pdf has changed
diff -r 8bf7ca2663d2 -r d14aab8bbf36 exercises/src/Exercise_12.hs
--- /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-}