module Exercise_13 where

{- Library DO NOT CHANGE -}

-- Eq-Instanz darf nicht definiert werden
data SkeleTree = Tip | Node SkeleTree SkeleTree deriving Show

type Point = (Integer, Integer)
type Rectangle = (Point, Point)

{- End Library -}

{-H13.1-}

trees :: [SkeleTree]
trees = undefined

{-H13.2-}

incPairs :: Ord a => [a] -> [(a,a)]
incPairs = undefined

{-H13.3-}

longestSubsequence :: ([a] -> Bool) -> [a] -> Maybe [a]
longestSubsequence = undefined

{-H13.4-}

allRects :: [Rectangle] -> [Rectangle]
allRects = undefined