module Exercise_6 where

{-G6.4-}

partition_fold :: (a -> Bool) -> [a] -> ([a], [a])
partition_fold p = undefined

{-H6.1-}

valid :: String -> Bool
valid = undefined

normalize :: String -> String
normalize = undefined

interpretPath :: String -> String -> String
interpretPath = undefined


{-H6.2-}

{- Library: nicht verändern -}
findAll :: Eq a => a -> [(a,b)] -> [b]
findAll k xs = foldr (f k) [] xs
{- Ende Library -}

f = undefined


{-H6.3-}


type Tutor = String -- Name des Tutors
type Time = Integer -- Zeit kodiert als Integer (der Einfachheit wegen)
type TimeSlot = (Time, Time) -- Anfangs-/Endzeit eines Zeitslots

{-WETT-}
findMapping :: [Tutor] -> [TimeSlot] -> (Bool, [(Tutor, TimeSlot, TimeSlot)])
findMapping = undefined
{-TTEW-}