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