Ви, напевно, всі знаєте 7-сегментний дисплей, який може, серед іншого, відображати всі цифри від $0\dots 9$ :

Виклик

Ми розглядаємо лише сегменти $\texttt{A}\dots\texttt{G}$ , ваше завдання - декодувати одну цифру з урахуванням того, які сегменти включені.

Це може бути закодовано як 8-бітове ціле число, ось таблиця кожної цифри з їх двійковим поданням та відповідними значеннями маленького та великого ендіанів:

$$\begin{array}{c|c|rr|rr} \text{Digit} & \texttt{.ABCDEFG} & \text{Little-endian} && \text{Big-endian} & \\ \hline 0 & \texttt{01111110} & 126 & \texttt{0x7E} & 126 & \texttt{0x7E} \\ 1 & \texttt{00110000} & 48 & \texttt{0x30} & 12 & \texttt{0x0C} \\ 2 & \texttt{01101101} & 109 & \texttt{0x6D} & 182 & \texttt{0xB6} \\ 3 & \texttt{01111001} & 121 & \texttt{0x79} & 158 & \texttt{0x9E} \\ 4 & \texttt{00110011} & 51 & \texttt{0x33} & 204 & \texttt{0xCC} \\ 5 & \texttt{01011011} & 91 & \texttt{0x5B} & 218 & \texttt{0xDA} \\ 6 & \texttt{01011111} & 95 & \texttt{0x5F} & 250 & \texttt{0xFA} \\ 7 & \texttt{01110000} & 112 & \texttt{0x70} & 14 & \texttt{0x0E} \\ 8 & \texttt{01111111} & 127 & \texttt{0x7F} & 254 & \texttt{0xFE} \\ 9 & \texttt{01111011} & 123 & \texttt{0x7B} & 222 & \texttt{0xDE} \end{array}$$

Правила та введення / виведення

• Вхід буде одним із
  • одне ціле число (як у таблиці вище одного з двох заданих замовлень)
  • список / масив / .. біт
  • рядок, що складається з символів ABCDEFG(ви можете припустити, що це відсортовано, як приклад ABCкодує $7$ ), їх випадок - це ваш вибір (не змішаний регістр)
• Виходом буде цифра, яку він кодує
• Ви можете вважати, що немає недійсних даних (недійсний означає, що немає відповідної цифри)

Тести

Оскільки цей виклик дозволяє отримати декілька представлень, зверніться до таблиці.

JavaScript (ES6), 26 байт

Бере участь у маленькому Ендіані.

n=>'0958634172'[n*3%77%10]

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

Python 3 , 18 байт

b'~0my3[_p{'.find

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

Використовує малопомітні входи. Містить сирий \x7Fбайт.

Python 2 , 27 байт

map(ord,'~0my3[_p{').index

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

Мова Вольфрама (Mathematica) , 41 байт

9[,6,0,8,2,3,1,7,5,4][[#~Mod~41~Mod~11]]&

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

В якості вхідного сигналу використовується стовпчик цілих чисел. Ігноруйте попередження синтаксису.

Для введення X спочатку беремо X mod 41, а потім беремо результат mod 11. Результати є різними mod 11, тому ми можемо витягнути їх з таблиці. Наприклад, 126 mod 41 mod 11 є 3, тож якщо ми зробимо позицію 3 рівним 0, то отримаємо правильну відповідь на вхід 126.

Стіл є 9[,6,0,8,2,3,1,7,5,4]. Частина 0 - голова, яка є 9. Частина 1 відсутня, так що Null, щоб зберегти байт: нам ніколи не потрібно брати участь 1. Потім частина 2 є 6, частина 3 - 0і так далі, як зазвичай.

---

Відповідь Джонатана Аллана дає нам 1[4,9,8,6,2,0,5,3,7][[384~Mod~#~Mod~13]]&. Це не коротше, але це уникає попередження синтаксису!

---

Мова Вольфрама (Mathematica) , 27 25 байт

Mod[Hash[")dD}"#]+2,11]&

(Тут є якийсь персонаж, який не зовсім з'являється, вибачте. Клацніть на посилання нижче, і ви побачите його.)

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

Це все про те, що жорстоке змушення якоїсь строки заходить всередину, Hashщоб хеши в кінцевому підсумку мали правильні значення mod 11. Більше грубе форсування може, ймовірно, привести нас до ще коротшого рішення.

Желе , 12 байт

“0my3[_p¶{‘i

Приймає ціле число з малою ендіанією.

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

Це наївна реалізація, може бути спосіб отримати більш короткий код.

Python 2 , 31 байт

lambda n:'99608231754'[n%41%11]

Спробуйте в Інтернеті! приймає дані як малоефективні.

Java (JDK) , 32 байти

n->"99608231754".charAt(n%41%11)

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

Кредити

• Порт Арно «s JavaScript відповідь , набагато коротше , ніж попередні спроби в історії поста.
• -1 байт завдяки Джонатану Allan , використовуючи Миша Лавров «s Wolfram Language (Mathematica) відповідь .

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

n=>'1498620537'[384%n%13]

Приймає ціле число з малою ендіанією.

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

---

Порти на 31 байт в Python з lambda n:'1498620537'[384%n%13]

Пробіл , 152 байти

Обов'язкові «S, T і L» насправді там не є, вони просто видимі зображення команд ».

S S S T	S S L
S S S T	S T	L
S S S T	T	T	L
S S S T	L
S S S T	T	L
S S S T	S L
S S S T	S S S L
S S S L
S S S T	T	S L
S S S L
S S S T	S S T	L
S S S L
S L
S T	L
T	T	T	T	T	S S S T	S T	S S T	L
T	S T	T	S S S T	S T	T	L
T	S T	T	L
S S L
S L
S L
T	S S L
S T	L
S T	L
S S S T	L
T	S S T	L
S L
L
L
S S S L
S L
L
T	L
S T	

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

Закінчується помилкою.

Еквівалентний синтаксис, схожий на збірку:

	push 4
	push 5
	push 7
	push 1
	push 3
	push 2
	push 8
	push 0
	push 6
	push 0
	push 9
	push 0
	dup
	readi
	retrieve
	push 41
	mod
	push 11
	mod
slideLoop:
	dup
	jz .slideLoop
	slide 1
	push 1
	sub
	jmp slideLoop
.slideLoop:
	drop
	printi

brainfuck , 474 176 154 151 149 137 байт

Бере вхідний рядок з восьми 0 і 1включає перший 0для десяткової коми.

(як, наприклад, у другому стовпчику таблиці в дописі)

Виводить цифру від 0 до 9.

,>,>,>,,,>,>,>+[[->]<++<<<<<<]>[>[>[>[->[>++++++<-<]>[--<]<]>>.>>]<[>
>[>->++<<-]>-[+>++++<]>+.>]]>[>>>+<<<-]>[>>+++.>]]>[>>>[>+++<-]>-.>]

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

Алгоритм

Спостерігаючи стан певного сегмента, ми можемо розділити набір можливих цифр на менші підмножини. Нижче наведено статичне двійкове дерево пошуку, яке використовується в моєму коді. Ліве піддерево відповідає стану ввімкнення сегмента, право відповідає стану відключення сегмента.

                                         0,1,2,3,4,5,6,7,8,9
                                                  |    
                                         /-------[A]-------------------------\
                                 0,2,3,5,6,7,8,9                             1,4
                                        |                                     |
                         /-------------[B]----------------\             /----[G]----\
                   0,2,3,7,8,9                            5,6          4             1   
                        |                                  |
              /--------[E]--------\                  /----[E]----\    
            0,2,8                3,7,9              6             5
              |                    |
        /----[F]----\        /----[F]----\
      0,8            2      9            3,7   
       |                                  |
 /----[G]----\                      /----[G]----\
8             0                    3             7

Деякі спостереження, корисні для гольфу

1. Біти C і D є зайвими і їх можна ігнорувати.
2. Провідний нуль (біт для десяткової крапки) може бути (ab), використаний як значення 48, важливий як для розбору вхідних даних, так і для підготовки виводу.
3. Коли лист досягається і друкується цифра, нам просто потрібно пропустити всі подальші умови. Це можна зробити, перемістивши покажчик даних досить далеко до області нулів, щоб він не міг повернутися.
4. Для сумісності краще використовувати нулі праворуч, оскільки деякі реалізації BF не підтримують негативні покажчики даних.
5. Отже, краще зберігати вихідне значення в самій правій комірці, щоб ми могли легко дістати область нулів праворуч.
6. Отже, краще перевірити біти зліва направо: A, B, E, F, G, щоб ми могли легше дістатись до вихідної комірки.
7. Різні цифри можуть мати спільний вихідний код. Наприклад, 5 і 6 знаходяться в одному піддереві. Ми можемо зробити +++++для обох значень, а потім +лише для шести.
8. Ми можемо зменшити кількість +команд, якщо заздалегідь додамо 2 до вихідного значення. В цьому випадку потрібно зменшити його 0і 1тільки і отримати перевагу для інших цифр.

Сітківка , 96 байт

^(A)?(B)?C?(D|())(E|())(F)?(G)?
$.($.5*$.8*$(6*$7$2$2)$#6*$.3*$($.2*$(___$7)5*$7)$#4*$(6*$1_3*$8

Спробуйте в Інтернеті! Можливо, це не найкращий спосіб, але це цікавий спосіб програмування в Retina. Пояснення:

^(A)?(B)?C?(D|())(E|())(F)?(G)?

Намагається зафіксувати цікаві випадки. Позитивні записи просто захоплюють лист, якщо він присутній. Отже, довжина захоплення становить 1, якщо вона присутня, і 0, якщо вона відсутня. Особливі випадки - це записи 4 та 6, які існують лише за відсутності відповідно D або E. Вони можуть бути виражені лише в десяткової системі числення , як $#4і , $#6але це все , що нам потрібно тут. Потім фіксатори збираються в рядок, довжина якого - бажане число. Наприклад, якщо ми пишемо6*$1 то цей рядок має довжину 6, якщо A присутній, і 0, якщо вона відсутня. Для того, щоб вибирати між різними виразами, ми використовуємо або $.(для позитивних захоплень), або $#(для негативних фіксацій), які оцінюються на 0 або 1, і потім їх можна помножити на рядок до цих пір.

$.5*$.8*$(6*$7$2$2)

Fповторюється 6 разів і Bдвічі (шляхом конкатенації, оскільки це гравець). Однак результат ігнорується, якщо немає обох Eі Gє. Це стосується випадків 2,6 і 8.

$#6*$.3*$($.2*$(___$7)5*$7)

Fповторюється 5 разів, і якщо Bвін присутній, він додається в шостий раз плюс додаткові 3 (представлені постійною струною довжиною 3). Однак результат ігнорується, якщо Dвін присутній і Eвідсутній. Це обробляє випадки 3, 5і 9.

$#4*$(6*$1_3*$8

Aповторюється 6 разів, Gповторюється 3 рази, і додається додатковий 1(представлений постійним символом між двома, тому що це гольфіст). Однак результат ігнорується, якщо Dвін відсутній. Це обробляє випадки 1, 4і 7.

$.(

Вищезазначені рядки потім з'єднуються і приймають довжину. якщо нічого із зазначеного вище не застосовується, жоден рядок не формується, і тому його довжина є 0.

Отримані рядки (до прийняття довжини) наступні:

1   _
2   BB
3   ___
4   _GGG
5   FFFFF
6   FFFFFF
7   AAAAAA_
8   FFFFFFBB
9   ___FFFFFF

MATL , 14 байт

'/lx2Z^o~z'Q&m

Введення - це число, що представляє сегменти у форматі малоекземляра.

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

Пояснення

'/lx2Z^o~z'  % Push this string
Q            % Add 1 to the codepoint of each char. This gives the array
             % [48 109 ... 123], corresponding to numbers 1 2 ... 9. Note that
             % 0 is missing
&m           % Implicit input. Call ismember function with second output. This
             % gives the 1-based index in the array for the input, or 0 if the
             % input is not present in the array.
             % Implicit display

Perl 5 -pl, 24 байти

$_=index'~0my3[_p{',chr

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

Бере малоцінні цілі числа.

Рубін , 29 байт

->n{"0083416243795"[n%23-10]}

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

Japt, 15 байт

Приймає величину big-endian як вхідну.

"~¶ÌÚúþÞ"bUd

Спробуй це

---

Пояснення

Рядок містить символи в кожній з точок коду значень big-endian; Udотримує символ у кодовій точці введення та bзнаходить індекс цього у рядку.

Нейм , 15 байт

&bᚫJ𝕂𝕨O𝐖𝐞ℤ£ᛖ𝕪)𝕀

Пояснення:

&bᚫJ𝕂𝕨O𝐖𝐞ℤ£ᛖ𝕪)      create list [126 48 109 121 51 91 95 112 127 123]
                 𝕀     index of

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

Стакс , 12 байт

å╬JÄk☺é[£¿⌐→

Запустіть і налагоджуйте його

Вхідне ціле число мало.

Він використовує ту саму струнну константу, що і рішення MATL Луїса.

TI-BASIC (серія TI-83 + / 84 +), 15 байт

int(10fPart(194909642ln(Ans

Використовується малоеквієнтний вхід. Хеші досить поширені в TI-BASIC, тому я написав хеш-функцію brute-forcer для таких випадків.

Нам тут трохи пощастило, оскільки множник довше 9 цифр, а не очікуваних 10.

      fPart(194909642ln(Ans   hash function mapping onto [0,1)
int(10                        take first digit after decimal point

05AB1E , 17 16 15 12 байт

•NŽyf¯•I41%è

-1 байт завдяки @ErikTheOutgolfer .
-1 байт, створивши порт відповіді @MishaLavrov Mathematica .
-3 байти завдяки @Grimy .

Спробуйте в Інтернеті або перевірте всі тестові справи .

Пояснення:

•NŽyf¯•       # Push compressed integer 99608231754
       I41%   # Push the input modulo-41
           è  # Index this into the integer (with automatic wraparound)
              # (and output the result implicitly)

Дивіться цей мінний наконечник 05AB1E (розділ Як стискати великі цілі числа? ), Щоб зрозуміти, чому •NŽyf¯•це так 99608231754.

Вугілля деревне, 17 байт

Ｉ⌕”y~¶ÌÚúþÞ”℅Ｎ

Спробуй це!

Порт Japt відповідь .