Вступ

Одного разу ви просто відпочивали у своєму офісі в ЦРУ, коли раптом на комп’ютері ви побачили оповіщення. Ваші програми щойно перехопили сотні кодованих повідомлень! Швидкий огляд виявляє правило кодування, але вам потрібна програма для швидкого декодування.

Виклик

Вам буде наданий список рядків, розділених комами. Кожен рядок буде містити:

• Частина кодованого повідомлення
  • Вона є частиною кодованого повідомлення, якщо воно не має форми a=b. Зауважте, що воно є частиною повідомлення, якщо воно є ab=c. Додайте цей рядок до кодованого повідомлення.
• Частина схеми кодування
  • Це буде у формі a=b. Це означає, що всі повідомлення в повідомленні повинні бути замінені на b. Зауважте, що це може бути a==, тобто всі `s повинні бути замінені на = 's.

Потім ваша програма повинна вивести повідомлення, розшифроване за допомогою знайденої схеми.

Інша інформація: Ваш вхід міститиме лише коми для розділення рядків. Він може містити інші символи, наприклад! 1 # тощо. Він не буде містити великих літер. Біти інформації про декодування не декодують один одного. Інформація про декодування впливає лише на повідомлення. Для кожного символу буде надана лише одна заміна, наприклад, ні"io,"i=u","i=g"

Приклади

Вхід:"ta","y=s","y","a=e","b=t","b"," ","j","j=1"

Вихід:test 1

Вхід:"z=p","zota","g=e","yugkb","y=t","u=o","k=s","li","fg","b=="

Вихід:potatoes=life

Вхід:"p","=","==n","ot","p=a","hiz","i=e","z=r"

Вихід:another

Це код-гольф , тому найкоротша відповідь у байтах виграє!

Желе , 19 байт

ḊṖ⁼“=”
ÇÐfKm2yÇÐḟF$

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

Як?

ḊṖ⁼“=” - Link 1, isMappngElement?: string
Ḋ      - dequeue
 Ṗ     - pop
   “=” - char-list,['=']
  ⁼    - equal?

ÇÐfKm2yÇÐḟF$ - Main link: list of strings
 Ðf          - filter keep:
Ç            -     last link (1) as a monad
   K         - join with spaces
    m2       - modulo 2 slice (every other character)
           $ - last two links as a monad:
        Ðḟ   -     filter discard:
       Ç     -         last link (1) as a monad
          F  -     flatten
      y      - translate right according to the mapping of left

Пітон 3, 98

lambda l:''.join(x*('='!=x[1:-1])for x in l).translate({'='!=x[1:-1]or ord(x[0]):x[2:]for x in l})

Ця lambdaфункція отримує список рядків (вхід) і повертає рядок (декодоване повідомлення).

Приклади:

>>> f(['ta', 'y=s', 'y', 'a=e', 'b=t', 'b', ' ', 'j', 'j=1'])
'test 1'
>>> f(['z=p', 'zota', 'g=e', 'yugkb', 'y=t', 'u=o', 'k=s', 'li', 'fg', 'b=='])
'potatoes=life'
>>> f(['p', '=', '==n', 'ot', 'p=a', 'hiz', 'i=e', 'z=r'])
'another'

Haskell, 85 байт

f x=[(a,b)|[a,'=',b]<-x]
h x=map(\v->maybe v id$lookup v$f x)$concat[c|c<-x,[]==f[c]]

Використання

>h ["p","=","==n","ot","p=a","hiz","i=e","z=r"]
>"another"

Опис

f створює таблицю пошуку.

concat[c|c<-x,[]==f[c]] витягує повідомлення.

map(\v->maybe v id$lookup v$f x) виконує пошук.

JavaScript (ES6), 87 байт

(l,s='',d={})=>l.map(v=>/.=./.test(v)?d[v[0]]=v[2]:s+=v)&&[...s].map(c=>d[c]||c).join``

<input id=a oninput="try{b.innerText=((l,s='',d={})=>l.map(v=>/.=./.test(v)?d[v[0]]=v[2]:s+=v)&&[...s].map(c=>d[c]||c).join``)(eval(`[${a.value}]`))}catch(e){}"/>
<p id=b />

Сітківка, 84 82 77 74 байт

Візьме список відокремлених комами як вхідний. Зверніть увагу на останній рядок

^ | $
,,
+ `, (. =.) (,. *)
$ 2 $ 1
М! & `(.). * ,,. * \ 1 =. |. +,
% `(.). *, $ |. * (.)
$ 1 $ 2
\ n |,

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

Пояснення:

Спочатку переносимо всі вирази форми .=.до кінця рядка і відокремлюємо їх від повідомлення подвійною комою ( ,,). Це так, що на наступному кроці ми можемо знайти всі кодування, перевіривши, чи має кожен символ перед знаком ,,відповідності =.згодом. Це досягається тим, M!&`(.).*,,.*\1=.|.+,що знаходять усі подібні збіги та розміщують їх у розділеному рядку рядків, що передається по рядках. Потім ми модифікуємо кожен рядок, щоб він містив лише один невкодований символ або закодовану версію символу. Нарешті, ми замінюємо всі канали ліній та коми на порожній рядок, щоб наш вихід був добре відформатований.

Пакетна, 188 байт

@echo off
set/pm=
set c=
for %%s in (%m%)do call:c %%s "%%c%%%%~s" not
for %%s in (%m%)do call:c %%s "%%c:%%~s%%"
echo %c%
exit/b
:c
set s=%~1
if %3 "%s:~1,1%"=="=" call set c=%~2

Пояснення: двічі проглядає список рядків (зручно forподобається рядок у форматі CSV). Перший раз шукає рядки, які не містять =як другий символ, і з'єднує їх у результат. Вдруге шукає рядки, які містять =як другий символ, і виконує підміну. (ще зручніше, що заміна вже в форматі Batch.)

PHP, 116 байт

<?foreach($_GET as$i)$i[1]=="="&&strlen($i)==3?$r[]=$i:$s.=$i;foreach($r as$l)$s=str_replace($l[0],$l[2],$s);echo$s;

Інтернет-версія

PHP, 89 87 байт

дві версії:

while(a&$s=$argv[++$i])3==strlen($s)&"="==$s[1]?$t[$s[0]]=$s[2]:$m.=$s;echo strtr($m,$t);
while(a&$s=$argv[++$i])preg_match("#^.=.$#",$s)?$t[$s[0]]=$s[2]:$m.=$s;echo strtr($m,$t);

приймає дані з аргументів командного рядка; бігати з -nr.

• прокручуйте аргументи, створюючи параметри для strtr
  (переклад, якщо аргумент містить= , повідомлення інше).
• виконувати strtr.

05AB1E , 31 байт

vy'=åyg3Q&iyˆyS}})øJÁ¨`¹¯KJ.Ás‡

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

vy              }
  '=åyg3Q&                      # See if it's length 3 with an equals in the mid.
          iyˆyS                 # If so, add to global array, split into chars.
               } 
                 )øJÁ¨`         # Transpose, join, and remove the middle =.
                       ¹¯KJ     # Push original input without decryption key.
                           .Ás‡ # Shift stack to the right, swap and transliterate.