Subato · SLS

Topics

Schreiben Sie eine Funktion, die einer Liste aller im Baum gespeicherten Elemente selektiert. Die Elemente seien in Präorder sortiert.

module Baum where data Baum a = B a [Baum a]|E deriving (Show,Eq) elemente :: Baum t -> [t] elemente _ = []