< 99 Elm Problems
Decompress the runĀ-length encoded list generated in Problem 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']
Result:
['a', 'a', 'a', 'b', 'c', 'c', 'd', 'e', 'e', 'e', 'e', 'e']
This article is issued from Wikibooks. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.