Run-length encoding is a string compression method that works by replacing consecutive identical characters (repeated 2 or more times) with the concatenation of the character and the number marking the count of the characters (length of the run). For example, to compress the string "aabccc" we replace "aa" by "a2" and replace "ccc" by "c3". Thus the compressed string becomes "a2bc3".
Notice that in this problem, we are not adding '1' after single characters.
Given a string s and an integer k. You need to delete at most k characters from s such that the run-length encoded version of s has minimum length.
Find the minimum length of the run-length encoded version of s after deleting at most k characters.
 
Example 1:
Input: s = "aaabcccd", k = 2
Output: 4
Explanation: Compressing s without deleting anything will give us "a3bc3d" of length 6. Deleting any of the characters 'a' or 'c' would at most decrease the length of the compressed string to 5, for instance delete 2 'a' then we will have s = "abcccd" which compressed is abc3d. Therefore, the optimal way is to delete 'b' and 'd', then the compressed version of s will be "a3c3" of length 4.
Example 2:
Input: s = "aabbaa", k = 2
Output: 2
Explanation: If we delete both 'b' characters, the resulting compressed string would be "a4" of length 2.

Example 3:
Input: s = "aaaaaaaaaaa", k = 0
Output: 3
Explanation: Since k is zero, we cannot delete anything. The compressed string is "a11" of length 3.

 
Constraints:

1 <= s.length <= 100
0 <= k <= s.length
s contains only lowercase English letters.

```python

USER_FILENAME = "<user_code>"
import sys, json, builtins
import math, heapq, bisect, itertools, functools, collections, statistics, fractions, decimal, operator, array, random, re, string, os, pathlib
try:
    import resource as _res
except Exception:
    _res = None
from collections import Counter, defaultdict, deque, OrderedDict
from functools import lru_cache, reduce
from itertools import accumulate, permutations, combinations, product
from math import gcd, ceil, floor, sqrt
from decimal import Decimal
try:
    from typing import *
except Exception:
    pass
try:
    sys.setrecursionlimit(1_000_000)
except Exception:
    pass
try:
    import site as _site
    try:
        _sys_sites = _site.getsitepackages() if hasattr(_site, "getsitepackages") else []
        for _p in _sys_sites:
            if _p and _p not in sys.path:
                sys.path.append(_p)
    except Exception:
        pass
    try:
        _usp = _site.getusersitepackages()
        if isinstance(_usp, str):
            _usp = [_usp]
        for _p in _usp:
            if _p and _p not in sys.path:
                sys.path.append(_p)
    except Exception:
        pass
except Exception:
    pass

def _disabled_input(*args, **kwargs):
    raise RuntimeError("input() is disabled in callable mode")
builtins.input = _disabled_input

ns = {"__name__": "__judge__"}  # prevent if __name__ == "__main__" blocks
for _k, _v in list(globals().items()):
    if not _k.startswith("_"):
        ns[_k] = _v
_CODE = "def dlen(n):\n    ans = 0\n    while n > 0:\n        ans += 1\n        n //= 10\n    return ans\n\n\ndef backtrack(i, s, k, memo):\n    n = len(s)\n    if k < 0:\n        return float('inf')\n    elif i == n or k >= n - i: # empty\n        return 0\n    elif (i, k) in memo:\n        return memo[(i, k)]\n    else:\n        ans = float('inf')\n        count = defaultdict(int)\n        most_freq = 0\n\n        for j in range(i, n):\n            char = s[j]\n            count[char] += 1\n            most_freq = max(most_freq, count[char])\n            digit_len = 0 if most_freq == 1 else len(str(most_freq))\n            range_length = j - i + 1\n            ans = min(ans, 1 + digit_len + backtrack(j + 1, s, k - (range_length - most_freq), memo))\n        memo[(i, k)] = ans\n        return ans\n        \n        \nclass Solution:\n    def getLengthOfOptimalCompression(self, s: str, k: int) -> int:\n        # dp[i][j]\n        # denotes minimum length of encoded string from 0 to i with at most j deletion\n        # Transition:\n        # if we keep s[i]: \n        # dp[i][j] = dp[i - 1][j - 1]\n        # if we remove s[i]:\n        # dp[i][j] = min(dp[i][j], dp[p - 1][j - removed] + 1 + digit_len for p from i..0)\n        \n        n = len(s)\n        memo = {}\n        return backtrack(0, s, k, memo)\n#         dp = [[float('inf') for _ in range(k + 1)] for _ in range(n + 1)]\n        \n#         for j in range(k + 1):\n#             dp[0][j] = 0\n        \n#         # we have two choices, to remove s[i] or to keep s[i]\n#         for i in range(1, n + 1):\n#             for j in range(k + 1):\n#                 if j > 0:\n#                     # remove current character\n#                     dp[i][j] = dp[i - 1][j - 1]\n                \n#                 # also consider remove the least frequent characters before s[i]\n#                 removed = 0\n#                 count = 0\n#                 for p in range(i, 0, -1):\n#                     if s[i - 1] == s[p - 1]:\n#                         count += 1\n#                     else:\n#                         removed += 1\n                    \n#                     # remove at most j, cannot exceed j\n#                     if removed > j:\n#                         break\n                    \n#                     digit_len = 0 if count == 1 else dlen(count)\n#                     dp[i][j] = min(dp[i][j], dp[p - 1][j - removed] + 1 + digit_len)\n                \n#         return dp[n][k]\n        \n        \n"
_co = compile(_CODE, USER_FILENAME, "exec")
exec(_co, ns, ns)

_target = None
_fn_name = 'getLengthOfOptimalCompression'
if _fn_name:
    if "Solution" in ns:
        try:
            _obj = ns["Solution"]()
            if hasattr(_obj, _fn_name):
                _target = getattr(_obj, _fn_name)
        except Exception:
            _target = None
    if _target is None and _fn_name in ns and callable(ns[_fn_name]):
        _target = ns[_fn_name]
# Fallback: if there's exactly one user-defined function, use it
if _target is None:
    _cands = [v for k, v in ns.items() if callable(v) and getattr(v, "__module__", "") in ("__judge__", "__main__")]
    _user_funcs = [c for c in _cands if getattr(c, "__name__", "").startswith("_") is False]
    if len(_user_funcs) == 1:
        _target = _user_funcs[0]
if _target is None:
    raise RuntimeError(f"Could not resolve callable '{_fn_name}'")

_raw = sys.stdin.read().strip()
if _raw:
    _parsed = json.loads(_raw)
    if isinstance(_parsed, dict):
        _kwargs = _parsed.get("kwargs", {})
        _args = _parsed.get("args", [])
    else:
        _args, _kwargs = _parsed, {}
else:
    _args, _kwargs = [], {}
if not isinstance(_args, (list, tuple)):
    _args = [_args]
_res = _target(*_args, **_kwargs)
try:
    sys.stdout.write(repr(_res) + "\n")
except Exception:
    pass

```

Measured memory_bytes: 10900