https://github.com/malvee/Booking.com/blob/master/delta-encoding.md

delta-encoding.hs

l = [25626, 25757, 24367, 24267, 16, 100, 2, 7277]

deltaEncoding :: (Ord a, Num a) => [a] -> [a]
deltaEncoding xs = head xs : fn (xs)
    where fn (x:y:ys) = let n = y - x -- : fn (y:ys)
                         in if isSingleByte n
                               then n : fn (y:ys)
                               else  -128 : n :fn (y:ys)
          fn (x:[]) = []
          isSingleByte b = -127 <= b && b <= 127

-- deltaEncoding l == [25626,-128,131,-128,-1390,-100,-128,-24251,84,-98,-128,7275]