Гольф кода: кодируйте 39 штрихкодов

Я сделал код для работы со штрих-кодами кода 39 во встроенных системах. Есть два стиля кодов, которые я считаю 39 "обычными" кодами и четырьмя "чудаковами". Обычные коды имеют один из десяти шаблонов ширины стержня (два широких три узких) и один из четырех шаблонов ширины пространства (один широкий три узких). Чудеса имеют пять узких полос и один из четырех шаблонов ширины полос (три широких и один узкий). Чтобы отобразить штрих-код с компактным кодом, преобразуйте символ в число 0–39 (для нормальных кодов) или 40, 50, 60 или 70 для «странных шаров». Затем divmod 10. Верхняя цифра выберет один из восьми шаблонов ширины пространства; если верхняя цифра равна трем или меньше, нижняя цифра выберет один из десяти шаблонов ширины стержня. Если верхняя цифра 4-7, все пять столбцов должны быть узкими.

Код работает очень компактно, используя несколько небольших справочных таблиц. Поскольку справочные таблицы могут быть компактно представлены в виде строк в исходном коде, подходы с большими справочными таблицами могут иметь более короткий исходный код (хотя я думаю, что для Code Golf размер исходного кода должен учитываться в байтах с использованием наиболее подходящего кодирования; подход со строкой странные символы, для хранения которых требуется три байта в UTF-8, и два байта для UTF-16, должны либо «заряжаться» по 3 байта каждый для символов странного шара, либо два байта каждый для всех символов, в зависимости от того, что меньше. Подход, в котором используется выбор нечетных символов, которые полностью помещаются в определенную однобайтовую кодовую страницу, должен оплачиваться по одному байту на символ.

спам спам спам спам прекрасный спам

Ruby (1.9) - 121 132 141 166 170 289 295

Hats-off to David

puts"*#{$_}*
".tr(" --9*$+%A-Z","䝝䕷煝䑑凝瑗屗眕凗瑵屵具瑝屝䗝䑅䔑儑甗崗睅圗病巅呷甝崝圝畇嵇睑均痑巑嗇畱嵱坱煗䝗燕䗗煵䝵").gsub(/./){|c|c.ord.to_s(2).tr"01"," #"}*8


echo "ABC" | ruby -ne 'puts"*#{$_}*
".tr(" --9*$+%A-Z","䝝䕷煝䑑凝瑗屗眕凗瑵屵具瑝屝䗝䑅䔑儑甗崗睅圗病巅呷甝崝圝畇嵇睑均痑巑嗇畱嵱坱煗䝗燕䗗煵䝵").gsub(/./){|c|c.ord.to_s(2).tr"01"," #"}*8'

Хранит только 44 необходимых символа и использует функцию транслитерации Ruby для их отображения

<space>
<-> to <9>
<*>
<$>
<+>
<%>
<A> to <Z>

в кодированные значения.

Python 3. 1, без Unicode (213 215 223 240 248 249 символов)

o=""
for c in"%r"%input():
 u="W3YZ56C$EF. 89'0HIJM/OP+%RSTUV12X4ABD-7GKLNQ".find(c);n=sum(b"))&&&,(*&2&&&)),&/8(*&1)<&/V&&&)),&/5);D&/S"[u:])-930+35*u
 while n:o+="###"[n%2*2:]+"   "[n&2:];n>>=2
print((o+"\n")*8)

Пояснение:

Последовательность кода 39 кодируется в число base-4 (левый старший = наименьший значащий) с:

• bw → 3
• Bw → 2
• bW → 1
• BW → 0

Затем последовательность сортируется, например. например,

20333   Q
21233   N
21323   L
...

Берется разность соседних записей, что дает список вида [48, 12, 3, ...]. Затем к этому списку добавляется 35, чтобы убедиться, что числа попадают в диапазон ASCII. Это дает строку "))&&&&,...".

Этот код также воспользовался тем, что * не появится на входе, поэтому мы можем заменить его на любой недопустимый символ, включая '. В CPython repr("ABC") == "'ABC'", поэтому мы можем избавиться от двух символов.

Lua, 318 символов

z={"1358ACEHKMORUWY.","UVWXYZ-. $/+*","2369BCFILMPSVWZ ","0123456789$/%","0456DEFJNOPTXYZ*","ABCDEFGHIJ$+%","0789GHIJQRST-. *","KLMNOPQRST/+%","1247ABDGKLNQUVX-",""}i="*"..(...).."*"o=""for c in i:gfind(".")do for j=1,10 do o=o..((j%2==0 and" "or"#"):rep(z[j]:find(c,1,true)and 3 or 1))end end for j=1,8 do print(o)end

Я не ожидаю, что смогу выиграть какие-либо вопросы по код-гольфу с Lua, поэтому я не чувствую себя плохо, отвечая на свой собственный вызов здесь. Также использовалась другая кодировка, которая, как мне показалось, могла быть интересна другим.

Другие наблюдения

При внимательном рассмотрении кодировки кажется, что есть способ обойтись без просмотра таблицы и напрямую вычислить кодировку штрих-кода. Однако я обнаружил, что мои попытки построить вычисления потребовали больше кода, чем таблица. (Это может быть не так в других языках.)

Разделив символы на группы, которые указали, где были широкие полосы и пробелы, я увидел некоторые интересные закономерности. Кажется, что есть только одно широкое пространство для 40 символов, причем $ / +% являются исключениями (каждый из них имеет три пробела). 40 символов разделяются по 10 в каждом слоте. И есть две широкие полосы для тех же 40 символов. Кажется, что широкие полосы имеют двоичную кодировку, причем последняя полоса является битом четности. Наборы битов полосы - 1, 2, 3, 4, 5, 6, 8, 9, 10, 12, где избегаются числа, имеющие более 2 битов.

1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-._*
1 3 5  8  A C E  H  K M O  R  U W Y  .   1010100100
 23  6  9  BC  F  I  LM  P  S  VW  Z  _  0110010010
   456   0   DEF   J   NOP   T   XYZ   * 0001110001
      7890      GHIJ      QRST      -._* 0000001111
12 4  7   AB D  G   KL N  Q   UV X  -    1101001000 --> Parity

Думаю, в другой день будет нелегко увидеть, можно ли закодировать штрих-коды без справочных таблиц.