Übungen: partition

(wurde benutzt bei make für Suchbaum)

partition :: (a -> Bool) -> [a] 
          -> ([a], [a])
-- partition odd [1,3,5,6,7,8] 
--       = ([1,3,5,7],[6,8])
partition p [] = ???
partition p (x : xs) = 
    let ( yeah, noh ) = partition p xs
    in  if p x then ???
               else ???