99 個 Elm 問題/第 9 個問題

將列表元素的連續重複項打包到子列表中。如果一個列表包含重複元素，應將這些元素放置在不同的子列表中。不重複的元素應放置在一個元素子列表中。

import Html exposing (text)
import List

pack : List a -> List (List a)
-- your implementation goes here

main = pack [1,1,1,2,3,3,3,4,4,4,4,5,6,6] |> toString |> text

結果

[[1,1,1], [2], [3, 3, 3], [4, 4, 4, 4], [5], [6, 6]]

解決方法