Я здивований, що цього раніше не публікували!

Алгоритм послідовного набивання накладних байтів (COBS) використовується для розмежування потоків байтів.

Ми вибираємо маркер кадру (ми будемо використовувати 0x00) і там, де в потоці трапляється 0x00, він замінюється кількістю байтів, поки не відбудеться наступний 0x00 (це назвемо етапом). Це зменшує діапазон значень від 0..255 до 1..255, що дозволяє 0x00 однозначно розмежовувати кадри в потоці.
На етапі, якщо наступні 255B не містять 0x00, це перевищує максимальну довжину етапу - алгоритм повинен "затриматись" на рівні 255B і поставити ще одну віху. Це "послідовний накладні витрати".
Перший байт буде першою віхою, остаточним етапом буде кількість байтів до маркера кадру.

Деякі приклади з Вікіпедії (найкраще прочитати статтю, де вони кольорові):

0x00 as frame marker

Unencoded data (hex)    Encoded with COBS (hex)
00                      01 01 00
00 00                   01 01 01 00
11 22 00 33             03 11 22 02 33 00
11 22 33 44             05 11 22 33 44 00
11 00 00 00             02 11 01 01 01 00
01 02 03 ... FD FE      FF 01 02 03 ... FD FE 00
00 01 02 ... FC FD FE   01 FF 01 02 ... FC FD FE 00
01 02 03 ... FD FE FF   FF 01 02 03 ... FD FE 02 FF 00
02 03 04 ... FE FF 00   FF 02 03 04 ... FE FF 01 01 00
03 04 05 ... FF 00 01   FE 03 04 05 ... FF 02 01 00

Завдання: реалізувати це в найкоротшій програмі.

• Вхід - це некодований байт-потік / масив, вихід - кодований байт-потік / масив
• Використовуйте будь-який тип двійкового стандартного вводу / виводу
• Кінцевий маркер кадру не потрібен
• Програма може повернути негабаритний масив
• Потік, що закінчується 254 ненульовими байтами, не вимагає завершення 0x00

Примітки

• Найгірша довжина повернення - це numBytes + (numBytes / 254) + 1

Приклад

У нас є масив байтів

[0] 0x01
[1] 0x02
[2] 0x00
[3] 0x03
[4] 0x04
[5] 0x05
[6] 0x00
[7] 0x06

Для кожного 0x00нам потрібно зазначити (на етапі), де було 0x00б наступне .

[0] 0x03   #Milestone. Refers to the original [2] - "The next 0x00 is in 3B"
[1] 0x01   #Original [0]
[2] 0x02   #Original [1]
[3] 0x04   #Milestone. Refers to the original [6] - "The next 0x00 is in 4B"
[4] 0x03   #
[5] 0x04   #
[6] 0x05   # Originals [3..5]
[7] 0x02   #Milestone. Refers to the end frame marker
[8] 0x06   #Original [7]
[9] 0x00   #Optional. End frame marker.

JavaScript (Node.js) , 114 байт

a=>(g=([v,...a])=>1/v?[v||a.indexOf(0)+1,...g(a)]:[])([0,...a,0].flatMap((v,j)=>1/a[j]&&(i=v&&i+1)>253?[v,i=0]:v))

Спробуйте в Інтернеті!

Java (JDK) , 143 байти

a->{int l=a.length,r[]=new int[l+2],i=0,j=1,x=1,z=0;for(;i<l;){if(a[i]>0)r[j++]=a[i];if(a[i++]<1||++x>254){r[z]=x;z=j++;x=1;}}r[z]=x;return r;}

Спробуйте в Інтернеті!

Python 2 , 125 байт

def f(a):
 r=[[]]
 for v in a:r+=[[]]*((len(r[-1])>253)+(v<1));r[-1]+=[v]*(v>0)
 return sum([[len(x)+1]+x for x in r],[])+[0]

Спробуйте в Інтернеті!

Желе , 27 байт

Oµ=0ks€254Ẏḟ€0L‘;Ɗ€F;Ṫ¬x`ƊỌ

Спробуйте в Інтернеті!

Монадічна посилання, яка приймає невкодований байтовий масив як вхідний і повертає кодований байтовий масив. Згідно з правилами, кінцевий маркер кадру опускається.

Пояснення

Oµ                          | Convert to integer and start a new monadic chain
  =0k                       | Split after zeros
     s€254                  | Split each list into length 254 lists
          Ẏ                 | Tighten (reduce list depth by 1)
           ḟ€0              | Filter zeros out from each list
              L‘;Ɗ€         | Prepend the list length plus one to each list
                   F        | Flatten
                    ;Ṫ¬x`Ɗ  | Append an additional 1 if the original list ended with zero
                          Ọ | Convert back to bytes

Еліксир , 109 байт

&Regex.replace~r/(^|(?<=([^\0]{254}))(?!$)|\0)((?2)|[^\0]*?(?=\0|$))/,&1,fn _,_,_,x-><<1+byte_size x>><>x end

Спробуйте в Інтернеті!

J , 103 символів

Зауважте, що результат останнього тестового випадку відрізняється від вікі та інших мов. Це пов'язано з цим вказівником на 254-й нульовий байт на межі. Все стає набагато простіше, якщо це не трактується як особливий випадок.

f =: 3 : 0
  k =. I. (y,0)=0
  s =. - 2 (-/) \ k
  (>: y i. 0), s (}:k) } y
 )

 f2 =: 3 : 0
   f each _254 <\ y
 )

Спробуйте це в Інтернеті