19.1 Codificador

1. Sea k ←⌈log ₂(m)⌉^* .
2. Sea Sea r ← s mod m (el resto de la división entera).
3. Sea t ← 2^k - 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.