make

Aufgabe: deklarieren Sie den allgemeinsten Typ von make:

import Data.List (partition)

make :: [ Int ] -> Tree Int
make []       = Leaf
make (x : xs) =
   let ( low, high ) = partition ( < x ) xs
   in  Node { key   = x
            , left  = make low
            , right = make high
            }