99 道厄姆難題/第 7 題/答案

解答 1：遞迴版本

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