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