Run-Length Encoding

Challenge Overview

Implement run-length encoding and decoding.

Visit the run-length-encoding exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

View Community Solutions

The following are the top 3 community solutions by stars:

Solution 1 by @TristanJ (⭐ 0) — View on Exercism
Solution 2 by @ErikSchierboom (⭐ 8) — View on Exercism
Solution 3 by @ChrisPritchard (⭐ 2) — View on Exercism

Source: Exercism fsharp/run-length-encoding

💡 View Solution

module RunLengthEncoding

let digitToInt c = int c - int '0'

let partitionConsecutive list =
    let folder item acc = 
        match acc with 
        | (x::xs)::ys when x = item -> (item::x::xs) :: ys
        | _  -> [item] :: acc