19.1 Codificador

  1. Sea k ←⌈log 2(m)* .
  2. Sea Sea r s mod m (el resto de la división entera).
  3. Sea t 2k - m.
  4. Emitir (s div m) usando un c’odigo unario.
  5. Si r < t:
    1. Emitir los k-1 bits menos significativos de r usando un c’odigo binario.
  6. Si no:
    1. r r + t.
    2. Emitir los k bits menos significativos de r usando un c’odigo binario.