99 Elm Problems/Problem 7/Solutions

Solution 1: Recursive version

flatten list =
    case list of
        Elem e -> [ e ]
        NestedList [] -> []
        NestedList (head :: tail) -> flatten head ++ flatten (NestedList tail)

This article is issued from Wikibooks. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.