--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/exercises/src/Exercise_2.hs	Wed Oct 24 15:49:06 2012 +0200
@@ -0,0 +1,106 @@
+module Exercise_2 where
+import Test.QuickCheck
+import Data.List
+
+{---------------------------------------------------------------------}
+{- Aufgabe G2.1 -}
+all_sums :: [Integer] -> [Integer] -> [Integer]
+all_sums xs ys = undefined
+
+
+evens :: [Integer] -> [Integer]
+evens xs = undefined
+
+
+n_lists :: [Integer] -> [[Integer]]
+n_lists xs = undefined
+
+
+all_even_sum_lists :: [Integer] -> [Integer] -> [[Integer]]
+all_even_sum_lists xs ys = undefined
+
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe G2.2 -}
+union :: [Integer] -> [Integer] -> [Integer]
+union xs ys = undefined
+
+
+intersection :: [Integer] -> [Integer] -> [Integer]
+intersection xs ys = undefined
+
+
+diff :: [Integer] -> [Integer] -> [Integer]
+diff xs ys = undefined
+
+
+elem' :: Integer -> [Integer] -> Bool
+elem' x xs = undefined
+
+
+union' :: [Integer] -> [Integer] -> [Integer]
+union' xs ys = undefined
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe G2.3 -}
+eq_frac :: (Integer,Integer) -> (Integer,Integer) -> Bool
+eq_frac (a,b) (c,d) = undefined
+
+
+intersection_frac :: [(Integer,Integer)] -> [(Integer,Integer)] -> [(Integer,Integer)]
+intersection_frac xs ys = undefined
+
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe G2.4 -}
+pow2_slow :: Integer -> Integer
+pow2_slow 0 = 1
+pow2_slow n | n > 0 = 2 * pow2_slow (n - 1)
+
+
+pow2 :: Integer -> Integer
+pow2 n = undefined
+
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe G2.5 -}
+reachable :: [(Integer, Integer)] -> Integer -> [(Integer, Integer)]
+reachable graph 0 = undefined
+
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe H2.1 -}
+factorials :: [Integer] -> [Integer]
+factorials ns = undefined
+
+count :: [Char] -> Char -> Integer
+count cs c = undefined
+
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe H2.2 -}
+lookupTab :: [Integer] -> [(Integer, [Char])] -> [[[Char]]]
+lookupTab keys tab = undefined
+
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe H2.3 -}
+wordsOfLength :: [Char] -> Integer -> [[Char]]
+wordsOfLength alphabet n = undefined
+
+
+
+{---------------------------------------------------------------------}
+{- Aufgabe H2.4 -}
+{-WETT-}
+perms :: [Char] -> [[Char]]
+perms [] = undefined
+perms xs = undefined
+{-TTEW-}