Повернемося до основ!

• Ваш код, повна програма або функція, повинен перетворити офіційне ім'я Unicode друкуваного базового латинського символу у відповідний символ. Наприклад, для введення LOW LINEкод повинен виводитися _.
• Вам потрібно взяти лише одне ім’я символу як вхідне.
• Ви не можете використовувати будь-яку попередньо існуючу функцію чи бібліотеку, вбудовану чи іншим способом, яка пропонує будь-яку логіку, що стосується конкретно імен символів Unicode (наприклад, Python's unicodedata, Java Character.getNameта ін.)
• Для введення, крім одного з цих імен, будь-яка поведінка є прийнятною.

Це код гольфу: найкоротший код в байтах виграє.

Щоб уникнути неоднозначностей, це повний набір офіційних імен символів, які ми будемо використовувати (запозичені з цього питання ):

     SPACE
!    EXCLAMATION MARK
"    QUOTATION MARK
#    NUMBER SIGN
$    DOLLAR SIGN
%    PERCENT SIGN
&    AMPERSAND
'    APOSTROPHE
(    LEFT PARENTHESIS
)    RIGHT PARENTHESIS
*    ASTERISK
+    PLUS SIGN
,    COMMA
-    HYPHEN-MINUS
.    FULL STOP
/    SOLIDUS
0    DIGIT ZERO
1    DIGIT ONE
2    DIGIT TWO
3    DIGIT THREE
4    DIGIT FOUR
5    DIGIT FIVE
6    DIGIT SIX
7    DIGIT SEVEN
8    DIGIT EIGHT
9    DIGIT NINE
:    COLON
;    SEMICOLON
<    LESS-THAN SIGN
=    EQUALS SIGN
>    GREATER-THAN SIGN
?    QUESTION MARK
@    COMMERCIAL AT
A    LATIN CAPITAL LETTER A
B    LATIN CAPITAL LETTER B
C    LATIN CAPITAL LETTER C
D    LATIN CAPITAL LETTER D
E    LATIN CAPITAL LETTER E
F    LATIN CAPITAL LETTER F
G    LATIN CAPITAL LETTER G
H    LATIN CAPITAL LETTER H
I    LATIN CAPITAL LETTER I
J    LATIN CAPITAL LETTER J
K    LATIN CAPITAL LETTER K
L    LATIN CAPITAL LETTER L
M    LATIN CAPITAL LETTER M
N    LATIN CAPITAL LETTER N
O    LATIN CAPITAL LETTER O
P    LATIN CAPITAL LETTER P
Q    LATIN CAPITAL LETTER Q
R    LATIN CAPITAL LETTER R
S    LATIN CAPITAL LETTER S
T    LATIN CAPITAL LETTER T
U    LATIN CAPITAL LETTER U
V    LATIN CAPITAL LETTER V
W    LATIN CAPITAL LETTER W
X    LATIN CAPITAL LETTER X
Y    LATIN CAPITAL LETTER Y
Z    LATIN CAPITAL LETTER Z
[    LEFT SQUARE BRACKET
\    REVERSE SOLIDUS
]    RIGHT SQUARE BRACKET
^    CIRCUMFLEX ACCENT
_    LOW LINE
`    GRAVE ACCENT
a    LATIN SMALL LETTER A
b    LATIN SMALL LETTER B
c    LATIN SMALL LETTER C
d    LATIN SMALL LETTER D
e    LATIN SMALL LETTER E
f    LATIN SMALL LETTER F
g    LATIN SMALL LETTER G
h    LATIN SMALL LETTER H
i    LATIN SMALL LETTER I
j    LATIN SMALL LETTER J
k    LATIN SMALL LETTER K
l    LATIN SMALL LETTER L
m    LATIN SMALL LETTER M
n    LATIN SMALL LETTER N
o    LATIN SMALL LETTER O
p    LATIN SMALL LETTER P
q    LATIN SMALL LETTER Q
r    LATIN SMALL LETTER R
s    LATIN SMALL LETTER S
t    LATIN SMALL LETTER T
u    LATIN SMALL LETTER U
v    LATIN SMALL LETTER V
w    LATIN SMALL LETTER W
x    LATIN SMALL LETTER X
y    LATIN SMALL LETTER Y
z    LATIN SMALL LETTER Z
{    LEFT CURLY BRACKET
|    VERTICAL LINE
}    RIGHT CURLY BRACKET
~    TILDE

Машинний код IA-32, 161 160 122 байт

Шестнадцятковий код:

33 c0 6b c0 59 0f b6 11 03 c2 b2 71 f6 f2 c1 e8
08 41 80 79 01 00 75 ea e8 39 00 00 00 08 2c 5e
4a bd a3 cd c5 90 09 46 04 06 14 40 3e 3d 5b 23
60 5e 3f 2d 31 32 29 25 2e 3c 7e 36 39 34 33 30
21 2f 26 7d 7c 2c 3b 7b 2a 37 5d 22 35 20 3a 28
5c 27 2b 38 5f 24 5a 3c 34 74 17 3c 1a 74 16 33
c9 86 c4 0f a3 0a 14 00 41 fe cc 75 f6 8a 44 02
0e c3 8a 01 c3 8a 01 04 20 c3

Цей код використовує деякі хешування. Деяким пошуком грубої сили я виявив, що наступна хеш-функція може бути застосована до байтів вхідного рядка:

int x = 0;
while (s[1])
{
    x = (x * 89 + *s) % 113;
    ++s;
}

Він множиться xна 89, додає наступний байт (ASCII-код) і приймає залишкову модуль 113. Це робиться для всіх байтів вхідного рядка, крім останнього, тому, наприклад, LATIN CAPITAL LETTER Aі LATIN CAPITAL LETTER Xдайте той же хеш-код.

Ця хеш-функція не має зіткнень, і вихід знаходиться в діапазоні 0 ... 113 (насправді, на щастя, діапазон ще вужчий: 3 ... 108).

Хеш-значення всіх відповідних рядків не заповнюють цей простір повністю, тому я вирішив використовувати це для стиснення хеш-таблиці. Я додав таблицю "пропустити" (112 біт), яка містить 0, якщо відповідне місце в хеш-таблиці порожнє, а 1 - інакше. Ця таблиця перетворює хеш-значення в "стислий" індекс, який можна використовувати для адреси щільного LUT.

Рядки LATIN CAPITAL LETTERта LATIN SMALL LETTERхеш-коди 52 та 26; вони обробляються окремо. Ось код С для цього:

char find(const char* s)
{
    int hash = 0;
    while (s[1])
    {
        hash = (hash * 89 + *s) % 113;
        ++s;
    }

    if (hash == 52)
        return *s;
    if (hash == 26)
        return *s + 32;

    int result_idx = 0;
    int bit = 0;
    uint32_t skip[] = {0x4a5e2c08, 0xc5cda3bd, 0x04460990, 0x1406};
    do {
        if (skip[bit / 32] & (1 << bit % 32))
            ++result_idx;
        ++bit;
    } while (--hash);

    return "@>=[#`^?-12)%.<~69430!/&}|,;{*7]\"5 :(\\'+8_$"[result_idx];
}

Відповідний код мови складання (синтаксис вбудованого вбудованого синтаксису MS Visual Studio):

_declspec(naked) char _fastcall find(char* s)
{
    _asm {
        xor eax, eax;
    mycalc:
        imul eax, eax, 89;
        movzx edx, [ecx];
        add eax, edx;
        mov dl, 113;
        div dl;
        shr eax, 8;
        inc ecx;
        cmp byte ptr [ecx + 1], 0;
        jne mycalc;

        call mycont;
        // skip table
        _asm _emit 0x08 _asm _emit 0x2c _asm _emit 0x5e _asm _emit 0x4a;
        _asm _emit 0xbd _asm _emit 0xa3 _asm _emit 0xcd _asm _emit 0xc5;
        _asm _emit 0x90 _asm _emit 0x09 _asm _emit 0x46 _asm _emit 0x04;
        _asm _emit 0x06 _asm _emit 0x14;
        // char table
        _asm _emit '@' _asm _emit '>' _asm _emit '=' _asm _emit '[';
        _asm _emit '#' _asm _emit '`' _asm _emit '^' _asm _emit '?';
        _asm _emit '-' _asm _emit '1' _asm _emit '2' _asm _emit ')';
        _asm _emit '%' _asm _emit '.' _asm _emit '<' _asm _emit '~';
        _asm _emit '6' _asm _emit '9' _asm _emit '4' _asm _emit '3';
        _asm _emit '0' _asm _emit '!' _asm _emit '/' _asm _emit '&';
        _asm _emit '}' _asm _emit '|' _asm _emit ',' _asm _emit ';';
        _asm _emit '{' _asm _emit '*' _asm _emit '7' _asm _emit ']';
        _asm _emit '"' _asm _emit '5' _asm _emit ' ' _asm _emit ':';
        _asm _emit '(' _asm _emit '\\' _asm _emit '\'' _asm _emit '+';
        _asm _emit '8' _asm _emit '_' _asm _emit '$';

    mycont:
        pop edx;
        cmp al, 52;
        je capital_letter;
        cmp al, 26;
        je small_letter;

        xor ecx, ecx;
        xchg al, ah;
    decode_hash_table:
        bt [edx], ecx;
        adc al, 0;
        inc ecx;
        dec ah;
        jnz decode_hash_table;

        mov al, [edx + eax + 14];
        ret;

    capital_letter:
        mov al, [ecx];
        ret;

    small_letter:
        mov al, [ecx];
        add al, 32;
        ret;
    }
}

Деякі важливі деталі реалізації:

• Він використовує CALLінструкцію для отримання вказівника на код, де знаходиться жорстко кодована таблиця. У 64-бітному режимі він може використовувати регістр ripзамість цього.
• Він використовує BTінструкцію для доступу до пропущеної таблиці
• Це вдається зробити роботу з використанням тільки 3 регістрів eax, ecx, edx, які можуть бути затерті - тому немає ніякої необхідності зберігати і відновлювати регістри
• Розшифровуючи хеш-таблицю, вона використовує alі ahобережно, щоб в потрібному місці ahзнизити до 0, і весь eaxрегістр можна використовувати як індекс LUT

JavaScript ES6, 228 236 247 257 267 274 287

Примітка: 7 символів збережено thx @ ev3commander

Примітка 2: краще, ніж JAPT після 7 основних змін,

n=>n<'L'?"XC!DO$MP&OS'SK*N--FU.ZE0TW2HR3OU4FI5IX6EI8NI9EM;LS=R->IA@MF^AV`MM,NE1EN7LO:".replace(/(..)./g,(c,s)=>~n.search(s)?n=c[2]:0)&&n:'~  / ;  |?"\\ ) }]_+ #% < ( {['[(n<'Q')*13+n.length-(n>'T')-4]||n[21]||n[19].toLowerCase()

Запустіть фрагмент для тестування

F=n=>
  n<'L'?"XC!DO$MP&OS'SK*N--FU.ZE0TW2HR3OU4FI5IX6EI8NI9EM;LS=R->IA@MF^AV`MM,NE1EN7LO:"
  .replace(/(..)./g,(c,s)=>~n.search(s)?n=c[2]:0)&&n:
  '~  / ;  |?"\\ ) }]_+ #% < ( {['[(n<'Q')*13+n.length-(n>'T')-4]
  ||n[21]||n[19].toLowerCase()

//TEST
console.log=x=>O.innerHTML+=x+'\n'
;[
['&','AMPERSAND'],
['\'','APOSTROPHE'],
['*','ASTERISK'],
['^','CIRCUMFLEX ACCENT'],
[':','COLON'],
[',','COMMA'],
['@','COMMERCIAL AT'],
['8','DIGIT EIGHT'],
['5','DIGIT FIVE'],
['4','DIGIT FOUR'],
['9','DIGIT NINE'],
['1','DIGIT ONE'],
['7','DIGIT SEVEN'],
['6','DIGIT SIX'],
['3','DIGIT THREE'],
['2','DIGIT TWO'],
['0','DIGIT ZERO'],
['$','DOLLAR SIGN'],
['=','EQUALS SIGN'],
['!','EXCLAMATION MARK'],
['.','FULL STOP'],
['`','GRAVE ACCENT'],
['>','GREATER-THAN SIGN'],
['-','HYPHEN-MINUS'],
['A','LATIN CAPITAL LETTER A'],
['B','LATIN CAPITAL LETTER B'],
['C','LATIN CAPITAL LETTER C'],
['D','LATIN CAPITAL LETTER D'],
['E','LATIN CAPITAL LETTER E'],
['F','LATIN CAPITAL LETTER F'],
['G','LATIN CAPITAL LETTER G'],
['H','LATIN CAPITAL LETTER H'],
['I','LATIN CAPITAL LETTER I'],
['J','LATIN CAPITAL LETTER J'],
['K','LATIN CAPITAL LETTER K'],
['L','LATIN CAPITAL LETTER L'],
['M','LATIN CAPITAL LETTER M'],
['N','LATIN CAPITAL LETTER N'],
['O','LATIN CAPITAL LETTER O'],
['P','LATIN CAPITAL LETTER P'],
['Q','LATIN CAPITAL LETTER Q'],
['R','LATIN CAPITAL LETTER R'],
['S','LATIN CAPITAL LETTER S'],
['T','LATIN CAPITAL LETTER T'],
['U','LATIN CAPITAL LETTER U'],
['V','LATIN CAPITAL LETTER V'],
['W','LATIN CAPITAL LETTER W'],
['X','LATIN CAPITAL LETTER X'],
['Y','LATIN CAPITAL LETTER Y'],
['Z','LATIN CAPITAL LETTER Z'],
['a','LATIN SMALL LETTER A'],
['b','LATIN SMALL LETTER B'],
['c','LATIN SMALL LETTER C'],
['d','LATIN SMALL LETTER D'],
['e','LATIN SMALL LETTER E'],
['f','LATIN SMALL LETTER F'],
['g','LATIN SMALL LETTER G'],
['h','LATIN SMALL LETTER H'],
['i','LATIN SMALL LETTER I'],
['j','LATIN SMALL LETTER J'],
['k','LATIN SMALL LETTER K'],
['l','LATIN SMALL LETTER L'],
['m','LATIN SMALL LETTER M'],
['n','LATIN SMALL LETTER N'],
['o','LATIN SMALL LETTER O'],
['p','LATIN SMALL LETTER P'],
['q','LATIN SMALL LETTER Q'],
['r','LATIN SMALL LETTER R'],
['s','LATIN SMALL LETTER S'],
['t','LATIN SMALL LETTER T'],
['u','LATIN SMALL LETTER U'],
['v','LATIN SMALL LETTER V'],
['w','LATIN SMALL LETTER W'],
['x','LATIN SMALL LETTER X'],
['y','LATIN SMALL LETTER Y'],
['z','LATIN SMALL LETTER Z'],
['{','LEFT CURLY BRACKET'],
['(','LEFT PARENTHESIS'],
['[','LEFT SQUARE BRACKET'],
['<','LESS-THAN SIGN'],
['_','LOW LINE'],
['#','NUMBER SIGN'],
['%','PERCENT SIGN'],
['+','PLUS SIGN'],
['?','QUESTION MARK'],
['"','QUOTATION MARK'],
['\\','REVERSE SOLIDUS'],
['}','RIGHT CURLY BRACKET'],
[')','RIGHT PARENTHESIS'],
[']','RIGHT SQUARE BRACKET'],
[';','SEMICOLON'],
['/','SOLIDUS'],
[' ','SPACE'],
['~','TILDE'],
['|','VERTICAL LINE'],
].forEach(t=>{
  var r=F(t[1]),ok=r==t[0]
  //if (!ok) // uncomment to see just errors
  console.log(r+' ('+t[0]+') '+t[1]+(ok?' OK':' ERROR'))
})
console.log('DONE')

<pre id=O></pre>

Japt , 230 байт

V=U¯2;Ug21 ªU<'R©Ug19 v ªV¥"DI"©`ze¿twâ¿¿¿¿e¿i`u bUs6,8)/2ªUf"GN" ©"<>+=$#%"g`¤grp¤qºnupe`u bV /2 ªUf"T " ©"[]\{}()"g"QSUCAP"bUg6) ªUf" M" ©"!\"?"g"COE"bUg2) ªV¥"CO"©",:@"g"ANE"bUg4) ª" &'*-./\\;~^`_|"g`spaµp¿豢¿Èögrlove`u bV /2

Кожен ¿представляє недрукований знак Unicode. Спробуйте в Інтернеті!

Безголівки:

V=Us0,2;Ug21 ||U<'R&&Ug19 v ||V=="DI"&&"zeontwthfofisiseeini"u bUs6,8)/2||Uf"GN" &&"<>+=$#%"g"legrpleqdonupe"u bV /2 ||Uf"T " &&"[]\{}()"g"QSUCAP"bUg6) ||Uf" M" &&"!\"?"g"COE"bUg2) ||V=="CO"&&",:@"g"ANE"bUg4) ||" &'*-./\\;~^`_|"g"spamapashyfusoreseticigrlove"u bV /2

Це було справді весело. Я розділив імена персонажів на кілька великих фрагментів:

0. Візьміть спочатку дві літери

V=Us0,2;встановлює змінну Vна перші дві літери Uвхідного рядка. Це стане в нагоді пізніше.

1. Великі літери

Це найпростіше: великі літери - це єдині символи в позиції 21, які, як правило, є правильними літерами та з великими літерами. Таким чином, Ug21достатньо.

2. Малі літери

Ще один досить легкий; тільки інша назва , яке має символ в положенні 19 є RIGHT SQUARE BRACKET, таким чином , ми перевіряємо , чи є ім'я передує Rз U<'R, а потім , якщо вона ( &&), ми беремо 19 напівкоксу з Ug19і приведення його у нижній регістр з v.

3. Цифри

Усі ці імена починаються з DI(і, на щастя, жодного з інших), тому, якщо V=="DI"ми можемо перетворити його на цифру. Перші літери деяких назв цифр однакові, але перших двох букв достатньо. Об’єднавши їх в одну струну, ми отримаємо ZEONTWTHFOFISISEEINI. Тепер ми можемо просто взяти індекс bперших двох знаків у назві цифри Us6,8)і розділити на два.

4. SIGN

Є сім імен, які містять SIGN:

<    LESS-THAN SIGN
>    GREATER-THAN SIGN
+    PLUS SIGN
=    EQUALS SIGN
$    DOLLAR SIGN
#    NUMBER SIGN
%    PERCENT SIGN

Спочатку ми перевіряємо, чи є в ній назва цього слова SIGN. Виявляється, GNдостатньо; Uf"GN"повертає всі екземпляри GNімені, що є, nullякщо воно містить 0 примірників, і таким чином пропускається.

Тепер, використовуючи ту саму техніку, що і для цифр, ми поєднуємо перші дві літери в рядок LEGRPLEQDONUPE, потім беремо індекс і ділимо на два. У результаті виходить число з 0-6, яке ми можемо використовувати, щоб взяти відповідний символ з рядка <>+=$#%.

5. MARK

Є три символи, які містять MARK:

!    EXCLAMATION MARK
"    QUOTATION MARK
?    QUESTION MARK

Тут ми використовуємо ту саму техніку, що і з SIGN.  Mдостатньо, щоб відрізнити цих трьох від інших. Для перекладу на символ цього разу достатньо перевірити одну букву: символ у позиції 2 різний для всіх трьох символів. Це означає, що нам не потрібно ділити на два при виборі правильного символу.

6. LEFT/RIGHT

Ця група містить дужки і дужки, []{}(). Було б дуже складно захопити як LEFTі RIGHT, але , до щастя, всі вони містять рядок T . Ми перевіряємо це тією ж технікою, що і ми SIGN. Для перекладу на символ, як і у випадку MARK, достатньо перевірити одну букву; персонаж у позиції 6 унікальний для всіх шести.

7. CO

Решта символів досить унікальні, але недостатньо унікальні. Три з них починаються з CO: COMMA, COLONі COMMERCIAL AT. Ми використовуємо таку саму техніку , як ми це робили з дужками, вибираючи правильний символ на основі символу в позиції 4 ( A, Nабо E).

8. Все інше

На сьогоднішній день перші два символи різні для кожного імені. Ми об'єднуємо їх у один великий рядок SPAMAPASHYFUSORESETICIGRLOVEі мапимо кожну пару до відповідного знаку  &'*-./\;~^`_|.

9. Заключні кроки

Кожна з частин повертає порожній рядок або nullякщо вона не є правильною, тому ми можемо пов’язати їх усі зліва направо ||. ||Оператор повертає лівий аргумент , якщо це truthy і правильний аргумент в іншому випадку. Japt також має неявний вихід, тому незалежно від результату, він автоматично надсилається у вікно виводу.

Питання, коментарі та пропозиції вітаються!

Python 2, 237 байт

Отримайте хеш рядка і поділіть його за модулем на 535. Згодом перетворіть його в символ унікоду з цим числом. Позиція символу unicode у попередньо складеному списку символів unicode згодом перетворюється на символ ascii.

print chr(u"""ǶŀȎdȊÏöǖIhȏƜǓDZǠƣƚdžƩC+ĶÅĠěóƋŎªƱijůŰűŪūŬŭŶŷŸŹŲųŴŵžſƀƁźŻżŽƆƇƈŖÐŗǀǼǿǾǹǸǻǺȅȄȇȆȁȀȃȂǭǬǯǮǩǨǫǪǵǴǷNȌ~B""".index(unichr(hash(raw_input())%535))+32)

Javascript, 501 499 469 465 451 430 байт

a=prompt();c="5SACEgEARKeQARKbNIGNbDIGNcPIGN9AANDaAPHEgLSIShRSIS8AISK9PIGN5CMMAcHNUS9FTOP7SDUSaDERO9DONE9DTWObDREEaDOURaDIVE9DSIXbDVENbDGHTaDINE5CLON9SLONeLIGNbEIGNhGIGNdQARKdC ATjLKETfRDUSkRKEThCENT8LINEcGENTiLKETdVINEjRKET5TLDE".match(/.{5}/g).indexOf(a.length.toString(36)+a[0]+a.slice(-3));if(c>=33)c+=26;if(c>=65)c+=26;alert(a.length==20&&a[0]=="L"?a.slice(-1).toLowerCase():a.length>21?a.slice(-1):String.fromCharCode(32+c))

Пояснення:

Ця довга рядок - стислий список. a.length.toString(36)+a[0]+a.slice(-3)визначає, як, якщо взагалі, рядок буде представлений у списку. Також спеціальна логіка для букв. (з рядками a[0]- це вбудована стенограма для a.charAt(0), до речі)

PowerShell, 603 547 464 байт

$a=-split$args
$b=switch -W($a[0]){
"LEFT"{switch -w($a[1]){"C*"{"{"}"P*"{"("}"S*"{"["}}}
"RI*"{switch -w($a[1]){"C*"{"}"}"P*"{")"}"S*"{"]"}}}
"LA*"{("$($a[3])".ToLower(),$a[3])[$a[1]-like"C*"]}
"DI*"{@{ONE=1;TWO=2;THREE=3;FOUR=4;FIVE=5;SIX=6;SEVEN=7;EIGHT=8;NINE=9;ZERO="0"}[$a[1]]}
"COMME*"{"@"}
"APO*"{"'"}
}
$c='COM,LES<GRA`GRE>QUE?QUO"COL:REV\LOW_EXC!EQU=DOL$AMP&AST*PER%PLU+SEM;SOL/SPA CIR^HYP-FUL.NUM#TIL~VER|'
($b,$c[$c.IndexOf($a[0][0..2]-join'')+3])[!$b]

( LineFeedнараховує той самий один байт ;, що і я залишаю перерви для читабельності)

_{Редагувати 1 - Витягнуло багато елементів із оператора перемикання і замість цього заповнило хештел для пошуку.}

_{Редагувати 2 - О так ... індексація в рядок, ось такий шлях ...}

По суті бере вхід, розбиває його на пробіли і робить switchпідкреслення першого слова для фільтрації тугі. Встановлює результат цього на $b. Якщо $bцього не існує, рядок $cоцінюється на перших трьох буквах першого слова і видає символ відразу за ним, інакше ми виводимо $b.

Деякі хитрощі включають, LATIN CAPITAL LETTER Rщо індексує масив на основі того, чи є друге слово CAPITAL, і виводить відповідну велику / малу літеру. Інший "трюк" - це DIGITs, шляхом індексації у хештелі. Зауважте, що тут не коротше робити той самий трюк з індексом на рядок (він фактично довший на один байт).

Javascript, 416 411 389 байт

l=(E)=>{return E=E.replace(/LA.*N|BR.*T|SIGN|MARK| |TION/g,"").replace(/(.).*(.{3})/,"$1$2"),E.match("CER")?E[3]:E.match("SER")?E[3].toLowerCase():(a="SACE EAMA!QOTA\"NBER#DLAR$PENT%AAND&APHE'AISK*PLUS+CMMA,HNUS-FTOP.SDUS/CLON:SLON;LHAN<EALS=GHAN>QUES?CLAT@RDUS\\CENT^LINE_GENT`VINE|LSIS(RSIS)LARE[RARE]LRLY{RRLY}TLDE~DERO0DONE1DTWO2DREE3DOUR4DIVE5DSIX6DVEN7DGHT8DINE9",a[a.indexOf(E)+4])}

Це більш читабельний формат (пояснення надалі пізніше):

function l(k){
    k=k.replace(/LA.*N|BR.*T|SIGN|MARK| |TION/g,'').replace(/(.).*(.{3})/,'$1$2')
    if(k.match('CER')) return k[3];
    if(k.match('SER')) return k[3].toLowerCase();
    a="SACE EAMA!QOTA\"NBER#DLAR$PENT%AAND&APHE'AISK*PLUS+CMMA,HNUS-FTOP.SDUS/CLON:SLON;LHAN<EALS=GHAN>QUES?CLAT@RDUS\\CENT^LINE_GENT`VINE|LSIS(RSIS)LARE[RARE]LRLY{RRLY}TLDE~DERO0DONE1DTWO2DREE3DOUR4DIVE5DSIX6DVEN7DGHT8DINE9"
    return a[a.indexOf(k)+4];
}

Мінус 5 байт від поєднання рядків ключа та значення.

Пояснення: регулярні вирази в першому рядку зменшують введення в унікальні 4 символьні клавіші. Зауважте, що унікальність гарантується лише для конкретного набору імен, зазначених у виклику, а дублікати будуть дуже поширеними для звичайної англійської мови! Навіть для цього завдання мені довелося зняти загальні слова, такі як дужка, і підписати, щоб отримати унікальний набір.

Щоб повернути символ, я перевіряю, чи є він латинським символом, перевіривши рядки "SER" і "cer", і поверну останній символ введення в нижній регістр для ser.

Для всього іншого я посилаюсь на рядок, що містить усі 4 символьні клавіші, а потім правильний символ. Потім я використовую indexof та substring символьні індекси для витягування та повернення символу.

Редагувати: Використовували більше підстановок для зменшення розміру регулярних виразів, заміняли субстрати з індексами символів та відсікали ще двадцять символів. Стикери правил відзначають, що остаточне оновлення публікується після закінчення виклику, проте я не думаю, що це змінило мій рейтинг. Це просто практика для новачка.

Python 3, 148 байт

lambda s:chr(83-b'gfhtg\32}urgx_}3qeo|e~cwu~S~q~I,vqG\34jc}d*9~~_L|p~~~~~JJy'[sum(b'  !" *1! "2;D$# ! # !!( '[ord(c)%25]-32for c in s[:-1])]+ord(s[-1]))

Для вашої зручності перегляду я замінив два недрукуваних байти на восьмигранні коди втечі \32та \34; скасуйте це, щоб отримати функцію 148 байт.

Я обчислював частини цієї хеш-функції за допомогою GPerf .

Perl 6 ,  348   242 байт

{
  /NI/??9!!chr 32+
  '0A40W00SV0M20LR0O20IJ0LH0WH0YS0H20ID0A50P10IH0F70K10HF0I30LL0JX0JF0HX0LU0LE0JF0AJ0IX0RK0M40XF0QR0PD15Z16016116216316416516616716816916A16B16C16D16E16F16G16H16I16J16K16L16M16N16O1140V313F0XS0FU0N712A12B12C12D12E12F12G12H12I12J12K12L12M12N12O12P12Q12R12S12T12U12V12W12X12Y12Z0ZA0PU11L0AA'
  .comb(3).map({:36($_)}).first(:k,[+] .ords)
} # 348

{chr 32+"\x95ǐǠŬšƉĘŗȌȴĎĽ\x96ŖŁöģěĈśŊčĂĹŔĸ¤ĦƱŮȃƿƍʶʷʸʹʺʻʼʽʾʿˀˁ˂˃˄˅ˆˇˈˉˊʠʡʢʣʤɝǚʅǥâĿʇʈʉʊʋʌʍʎʏʐʑʒʓʔʕʖʗʘʙʚʛɱɲɳɴɵțųɃ\x9b".ords.first: :k,[+] .ords.map(*%43)}

{
  chr 32+
  "\x95ǐǠŬšƉĘŗȌȴĎĽ\x96ŖŁöģěĈśŊčĂĹŔĸ¤ĦƱŮȃƿƍʶʷʸʹʺʻʼʽʾʿˀˁ˂˃˄˅ˆˇˈˉˊʠʡʢʣʤɝǚʅǥâĿʇʈʉʊʋʌʍʎʏʐʑʒʓʔʕʖʗʘʙʚʛɱɲɳɴɵțųɃ\x9b"
  .ords.first: :k,[+] .ords.map(*%43)
}

використання:

my &code = {...}

# testing
my $test = [~] (' '..'~')».uniname».&code;
my $comparison = [~] ' '..'~';
say $test eq $comparison; # True

say code 'HYPHEN-MINUS'; # -