99 個 Elm 難題/問題 12

解壓縮問題 11 中生成的長­度為執行時編碼的列表。

import Html exposing (text)
import List

type Item a
    = Single a
    | Multiple Int a

decodeModified : List (Item a) -> List a
-- your implementation goes here

main = text <| toString <| 
  decodeModified [Multiple 3 'a', Single 'b', Multiple 3 'c', Single 'd', Multiple 5 'e']

結果

['a', 'a', 'a', 'b', 'c', 'c', 'd', 'e', 'e', 'e', 'e', 'e']

解決方案