99-haskell-problems/Problems 01-10/problem_07.hs

6 lines
151 B
Haskell

data NestedList a = Elem a | List [NestedList a]
flatten :: NestedList a -> [a]
flatten x = case x of
Elem e -> [e]
List l -> concatMap flatten l