Codegolf — Пометить Мою Почту! - Штрих-Коды Ascii

4-позиционные штрих-коды

Многие почтовые службы (Royal Mail UK, Canada Post, US Mail и т. д.) используют штрих-код с четырьмя состояниями для кодирования информации о своей почте. В формате ASCII это может выглядеть примерно так:

|   |   | |   | |   | |   | |  
| | | | | | | | | | | | | | | |

| | | |     | | | |      

Штрих-код с 4 состояниями представляет собой ряд полос. Каждую полосу можно продлить вверх, вниз или и то, и другое, что дает 4 возможности. Это означает, что каждая полоса по существу представляет собой цифру по основанию 4:

|   |             |  
| | | | | | | | | | |

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

Для этой задачи мы будем использовать последовательность запуска/остановки, указанную Почтой Австралии: каждый штрих-код начинается и заканчивается

|   | | | | | | |  
| | | | | | | | | |

| | | | | |    

Вызов

Ваша задача — написать программу или функцию, которая по положительному целому числу

Start:              End:
1 0                 1 0

|   |   |       | | |
| | | | | | | | | | | |

|   | |   |

1 0 3 0 2 2 1 3

|   |       | |
| | | | | | | |

|   | |   |

Пример:

Учитывая целое число

|       |
Bar:    |   |   |   |

|   |

Digit:  0   1   2   3

|   | |   | | | |   |     |   |
| | | | | | | | | | | | | | | | |

| |   |   | | |   |     |

Затем мы сопоставим каждую цифру с соответствующей полосой:

Наконец, мы добавим последовательности запуска/остановки:

Полученный штрих-код должен быть результатом работы программы.

Правила:

• Ввод будет положительным целым числом в пределах стандартного целочисленного размера вашего языка.
• Вывод:
  • Может быть либо списком строк, либо строкой, содержащей символы новой строки.
  • Может содержать начальные или конечные символы новой строки/пробелы, если форма остается неизменной.
  • Должен отображаться штрих-код в указанном выше формате — он должен использовать символ вертикальной черты ( 19623 ) and space character () when drawing bars, and there should be 1 space in between each upright bar.
• Это , поэтому побеждает самая короткая программа (в байтах)!

Тестовые случаи

4095:

4096:

7313145:

#code-golf #code-golf #string #ascii-art #base-conversion

Питон 3, 103 99 96 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
4BT.øS2‰э1ýøT„| ‡€S»  | Full program. Takes input from STDIN, outputs to STDOUT.

4B                    | Convert to base 4.

T                   | Push a 10 to the stack.

.ø                 | Surrond (prepend and append the 10 to the base 4 representation).

S                | Split into individual characters/digits.

+---------------------------------------------------------------

| This part used to be ¸4.ø4в˜ in the previous version, which

| means: surround with 4's, convert each to base 4 (4 -> [1, 0])

| and finally deep-flatten the list.

+---------------------------------------------------------------

2‰              | Divmod 2 ([N // 2, N % 2]).

?             | Reverse (element-wise).

1ý           | Add a 1 in the middle (element-wise).

ø          | Transpose.

T„| ‡     | Translate (‡) from "10" (T) to "| " („| ).

€S»  | Format as a grid.

€S   | Push the characters of each.

»  | Join by newlines, while joining inner lists by spaces.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Попробуйте онлайн!

МАТЛ, 34 30 29 28 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 char*p,s[21]="10";g(a){for(p=s;*p;)printf(!a|*p++&a?" |":"  ");puts(p);}f(n){strcat(itoa(n,s+2,4),"10");g(1);g(0);g(2);}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Попробуйте онлайн!

Объяснение

Желе, 16 15 байт

Попробуйте онлайн!

Как это работает

Желе, 19 байт

Попробуйте онлайн!

-1 спасибо г-н Кскодер.

Октава, 78 77 75 74 70 69 байт

Попробуйте онлайн!

В отличие от исходного подхода, этот использует простую справочную таблицу для сопоставления значений по основанию 4 с их двоичным эквивалентом. Таблица поиска также добавляет интервал между каждой полосой, добавляя ноль между каждым числом (который соответствует полосе всех пробелов).

Таблица поиска напрямую сопоставляется с барами следующим образом:

Преобразование из двоичного кода в i=>{ string s = $"10{B(i)}10", // prepend and append 10 to the base 4 number a=""; for (int y=0; y<3; y++, a+="\n") // go through each row foreach (var t in s) // go through each char digit a += t<51 & y != 1 & t-(y>>1) != 49 ? " " : "| "; // check if bar or space occurs return a; string B(int n) => n>0? B(n/4) + n%4 : ""; // convert int to base 4 } and is now done by indexing into a string of those two characters - basically the same principle as the lookup table for binary conversion.

* Сэкономлен 1 байт, спасибо @LuisMendo.

Оригинал:

Попробуйте онлайн!

Анонимная функция, возвращающая штрих-код в виде строки.

Это основано на том факте, что если мы добавим 4 к цифрам по основанию 4, то мы сможем представить полосу/пробел числом, преобразованным в двоичный формат с поменянными местами битами 1 и 2:

Сложным моментом с точки зрения игры в гольф является добавление промежутков между решетками и преобразование из -nR to for($n=10 .base_convert($argn,10,4). 104;(~$c=$n[$i++])||3>$y+=$i=1;)echo" | || ||||| "[$c*3+$y]; .

JavaScript (ES6), 89 87 83 байта

Тестовые случаи

Как?

Примечание:: В версии ниже литералы шаблона были заменены стандартными строками, чтобы код мог иметь правильный отступ.

Р, 154 109 байт

Попробуйте онлайн!

Сэкономил целую кучу байт путем индексации и использования f(m,0) rather than constructing a matrix and using ||!r , а также 6 из немного другого преобразования в основание 4. Печатает с начальным пробелом в каждой строке и без завершающих символов новой строки.

Индексация происходит с использованием некоторой модульной арифметики, мало чем отличающейся от некоторых других ответов, но поскольку R использует индексацию на основе 1, арифметика несколько отличается.

Объяснение:

Древесный уголь, 50 байт

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

Введите число.

Нажмите последовательность остановки в предопределенный пустой список.

Если число положительное,

повторно примените divmod, чтобы преобразовать его в обратную базу 4,

в противном случае просто нажмите на него.

Добавьте стартовую последовательность в список.

Сопоставьте три строки. Каждая строка представляет собой перевод цифр штрих-кода. 4─10¹:h++{»1F2%¹{Ƨ| W}¹∑ā}⁰H for each row.

Сопоставьте цифры (обратив их в обычный порядок), преобразуйте их в полосы или пробелы с помощью перевода, затем объедините результаты в три строки, которые затем неявно печатаются в отдельных строках.

Япт, 32 31 байт

Проверьте это онлайн!

Пока не очень доволен, но это только начало...

Объяснение

Хаскелл, 91 90 байт

Попробуйте онлайн! Возвращает список строк.

Тот же вариант количества байтов для первой строки:

Дж, 57 49 47 байт

10 байт благодаря FrownyFrog!

Как это работает:

2 - converts the number to a list of base-4 digits, adds 1 0 to the beginning and the end of the list

1 - lookup table for the encryption, binary 0 corresponds to space, 1 to '|'

T`12` `.+$ - encrypts the base 4 digit by selecting a string from the lookup table above (argument reversed)

2 - transposes the resulting array from 3 columns to 3 rows

0 - caps the fork

3 - puts spaces between the bars

Попробуйте онлайн!

APL+WIN, 63 байта

Объяснение:

Питон 2, 116 114 байт

^{-2 байта благодаря notjagan}

Попробуйте онлайн!

05AB1E, 19 байт

Попробуйте онлайн!

Это полупорт подхода Денниса, который всего на один байт короче метода, который я использовал раньше (чем я вполне доволен):

05AB1E, 20 байт

Попробуйте онлайн!

Как это работает?

я спросил Аднан (создатель 05AB1E) о сетке в чат, и они помогли мне сэкономить 2 байта, указав на особенность 05AB1E: при соединении многомерных списков с помощью новой строки внутренние списки также объединяются с помощью пробелов, поэтому ^ 1;; is unnecessary.

АПЛ (Диалог Классик), 33 байта

Попробуйте онлайн!

Дж, 42 40 39 байт

Сбрито 2 байта благодаря Деннису. 1 байт благодаря ngn.

Попробуйте онлайн!

Как это работает

JavaScript (ES6) 79 байт

Использует .toString для преобразования числа в базу 4, а затем обрабатывает каждую строку и побитовое ИЛИ для построения вывода построчно. Выводит список строк.

Баш+coreutils, 71 67 байт

Попробуйте онлайн!

Объяснение

n bit converts to base 4, prepending and appending with a 10 (превращается в 4 in the output) and using dc чтобы все было в одной строке.

Остальное происходит в dc -e4ddon?np|sed 's/./& /g;h;y/01/23/;G;y/12/21/;H;x;y/0123/ | |/' :

сетчатка, 83 байта

Попробуйте онлайн! Ссылка включает более быстрые тестовые примеры. Объяснение:

Преобразовать в унарный.

Преобразование в базу 4 как унарные числа, разделенные ' |'[≠\2/2⊖1⍪2 2⊤1 0(,,⊣)4⊥⍣¯1⊢⎕] s.

Подготовьте начальную последовательность.

Добавить 4BT.øS4~bT„| ‡øÁ€S» , turning it into a digit terminator rather than a separator, and the stop sequence.

Преобразуйте в десятичное число, но добавляя по 1 к каждой цифре.

Утройте это.

В первом ряду, ,.2{."0 s and [: s (представляющие |: s and {~ s) становятся пространствами.

В последнем ряду 1 0,4&#.inv,1,0: s and [:,.2{."0[:|:' |'{~#:@2 6 3 7{~1 0,4&#.inv,1,0: s (представляющие h s=[do a<-4%s++0%0;" | | ||||"!!(x+a):" "|x<-[0,6,4]] s and h s=[do a<-4%s++0%0;x!!a:" "|x<-[" | |","||||"," ||"]] _%0=[1,0] b%n=b%div n b++[mod n b] s) становятся пространствами.

Все остальные цифры становятся полосками.

Пип, 33 31 29 27 26 байт

25 байт кода, +1 за A¤i2Us4)¬®n s|iS)ù2 w i|1ÃqR² y flag.

Попробуйте онлайн!

Объяснение

Мы наблюдаем закономерность в четырех типах баров:

• Первая строка представляет собой пробел, если цифра четная, и трубку, если цифра нечетная.
• Второй ряд – это всегда труба.
• Третья строка — это пробел, если цифра равна 0 или 1, и трубка, если 2 или 3.

Так:

СОГЛ V0.12, 28 байты

Попробуйте здесь!

С (ГКК), 176 байт

Попробуйте онлайн!

Чуть менее ужасно отформатированный (менее забитый в гольф):

Объяснение

Сначала рассмотрим следующий код для чтения целого числа и вывода версии по основанию 4:

При этом используется хвостовая рекурсия для изменения порядка вывода. На каждом рекурсивном шаге происходит битовый сдвиг на 2 (отрезаются последние 2 бита и делится на 4). Он выводит результат с битовой маской 3 (0b11), который отображает только два последних бита, которые являются последней цифрой по основанию 4.

Вызов функции включен в ¿θ as a trailing argument (it isn't printed, but it is evaluated) to avoid needing to use {} (+2 bytes) to group the Ｆ²⊞υι и вызов функции.

Решение здесь расширяет этот код с базой 4. Во-первых, m определяется как n, но так, что в базе 4 к нему добавляется 10. Затем мы печатаем m.

При регулярной печати базы 4 мы использовали битовую маску 3 для получения цифры. В почтовом коде верхняя строка — это младший бит этой цифры (битовая маска 1), а нижняя строка — старший бит (битовая маска 2). Соответственно, Ｎθ in ＮθＦ²⊞υι¿θＷθ«⊞υ﹪θ⁴≧÷⁴θ»⊞υθＦ²⊞υιＥ⟦ |¦|¦ ||⟧⪫Ｅ⮌υ§ιλω это битовая маска — наши основные вызовы функций function(n, d=c(1,0, # d contains the padding and n%/%4^floor(log(n,4):0)%%4, # the base 4 digits 1,0), # o=c("|"," ") # the vector to index into cat("", # cat separates things with spaces by default # so the empty string will print a leading space o[1+d%%2]," # odds have a | above ", # literal newline, a space will follow it (hence leading spaces) o[2+0*d]," # array of 2s since the middle is always | ", # another literal newline o[1+(d>1)]) # digits greater than 1 have a | below for the first line and write для последней строки.

Чтобы средняя строка работала (всегда печатайте «|»), мы добавляем cat to the conditional - if r is 0, it will always evaluate to true and print a "|". Then we call function(n,d=c(1,0,n%/%4^floor(log(n,4):0)%%4,1,0),o=c(" ","|"))cat("",o[1+d%%2]," ",o[2+0*d]," ",o[1+(d>1)]) для средней линии.

Наконец, мы хотим, чтобы символы новой строки вели себя хорошо. Включая доп. n => // given the input n '| ' + // append the top leading pattern (g = (a, // g is a recursive function taking a = mask k = n) => // and using k = value, initially set to n k ? // if k is not zero: g(a, k >> 2) + // do a recursive call for the next group of 2 bits (k & a ? '| ' : ' ') // append '| ' if the bit is set or ' ' otherwise : // else: ' ' // append an extra leading space and stop the recursion )(1) + // invoke g() with mask = 0b01 '|\n' + // append the top leading pattern and a linefeed '| |' + // append the middle leading pattern g(~0) + // invoke g() with all bits set in the mask '| |\n' + // append the middle trailing pattern and a linefeed ' ' + // append the bottom leading pattern g(2) // invoke g() with mask = 0b10 is expensive as far as bytes of source code goes, so instead we add another %c specifier to the existing let f = n=>`| ${(g=(a,k=n)=>k?g(a,k>>2)+(k&a?'| ':' '):' ')(1)}| | |${g(~0)}| | `+g(2) console.log(f(4095)) console.log(f(4096)) console.log(f(7313145)) . n=>`| ${(g=(a,k=n)=>k?g(a,k>>2)+(k&a?'| ':' '):' ')(1)}| | |${g(~0)}| | `+g(2) prints a newline if n is 0 (false), and a space otherwise. 32 and 10 are used instead of '\n' and ' ' to save bytes.

Общий Лисп, 191 байт

Попробуйте онлайн!

PHP, 99+1 байт

требуется PHP >= 5.5 для индексации буквальных строк и < 7.1, чтобы индексация не выдавала предупреждение.

Запустить как трубу с base4: 0 1 2 3 add4: 4 5 6 7 binary: 0 1 0 1 0 0 1 1 1 1 1 1 swap 2/1: 0 1 0 1 1 1 1 1 0 0 1 1 or попробуй онлайн.

Вставьте еще одну новую строку, чтобы получить завершающую.

Питон 2, 142 126 байт

Огромное спасибо ovs!

Я старался не копировать методы других ответов и... фу.

С# (.NET Core), 160 байт

Попробуйте онлайн!

Я уверен, что пропустил некоторые улучшения.

ДеГольфед

@(x)' |'(dec2bin([2 6 3 7;~(1:4)](:,[2 1 dec2base(x,4)-47 2 1]))-47)' checks that the char isn't '3', not the second row, and then some binary magic to see if the first or third row should contain the space.

Зш, 156 154 151 133 байт

Попробуйте онлайн!

Принимает входные данные по основанию 10 из var 4;jƓb|ṃ⁾| ẎZṙ2G Main link. No arguments. 4 Set the argument and the return value to 4. ; Concatenate the return value with the argument, yielding [4, 4]. Ɠ Read an integer n from STDIN. j Join, yielding [4, n, 4]. b Convert 4, n, and 4 to base 4. Note that 4 is [1, 0] in base 4. | Perform bitwise OR of each resulting quaternary digit and 4. This pads the binary representation of a digit d to three digits: [1, d:2, d%2] ṃ⁾| Convert the results to base " |", i.e., binary where ' ' represents 0 and '|' represents 1. Ẏ Concatenate the resulting arrays that correspond to 4, n, and 4. Z Zip; transpose rows and columns. ṙ2 Rotate 2 units yo the left, correcting the order of [1, d:2, d%2] to [d%2, 1, d:2]. G Grid; separate columns by spaces, rows by linefeeds.

Япт, 42 байта

Попробуйте онлайн!

Пиф, 32 байта

Попробуйте здесь!

С, 120 байт

К сожалению, работает только в Windows, так как TFiK_YAyhhH&\EQE+t~vB!P'|'*c is too much of a convenience to be standard.