99 个 Elm 问题/问题 10

运行长度对元组列表进行编码。将相同元素用作元组 (n, e) 来输出运行，其中，n 为元素 e 的副本数。

import Html exposing (text)
import List

runLengthEncode : List a -> List (a, Int)
-- your implementation goes here

main = text <| toString <|
 runLengthEncode [1, 1, 1, 2, 3, 3, 3, 4, 4, 4, 4, 5, 6, 6]

结果

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

解决方案