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]]

解决方法