Во все тяжкие - преобразовать любую строку (сжатие) [дублировать]
В сериале «Во все тяжкие» буквы Br и Ba были заменены на печатное изображение, похожее на периодическую таблицу [Br35]eaking [Ba56]d.
Создайте программу, которая принимает строковый ввод, выполняет замену и печатает вывод. Замена должна субсидировать любую подстроку, которая соответствует символу элемента с обозначением, показанным в [Br35]eaking [Ba56]d. То есть добавьте атомный номер к символу элемента и заключите его в квадратные скобки.
Все элементы начинаются с заглавной буквы и состоят из одной или двух букв. Самый высокий элемент, который следует учитывать, - Og118. Из википедии:
1 H, 2 He, 3 Li, 4 Be, 5 B, 6 C, 7 N, 8 O, 9 F, 10 Ne, 11 Na, 12 Mg, 13 Al, 14 Si, 15 P, 16 S, 17 Cl , 18 Ar, 19 K, 20 Ca, 21 Sc, 22 Ti, 23 V, 24 Cr, 25 Mn, 26 Fe, 27 Co, 28 Ni, 29 Cu, 30 Zn, 31 Ga, 32 Ge, 33 As, 34 Se, 35 Br, 36 Kr, 37 Rb, 38 Sr, 39 Y, 40 Zr, 41 Nb, 42 Mo, 43 Tc, 44 Ru, 45 Rh, 46 Pd, 47 Ag, 48 Cd, 49 In, 50 Sn, 51 Sb, 52 Te, 53 I, 54 Xe, 55 Cs, 56 Ba, 57 La, 58 Ce, 59 Pr, 60 Nd, 61 Pm, 62 Sm, 63 Eu, 64 Gd, 65 Tb, 66 Dy, 67 Ho , 68 Er, 69 Tm, 70 Yb, 71 Lu, 72 Hf, 73 Ta, 74 W, 75 Re, 76 Os, 77 Ir, 78 Pt, 79 Au, 80 Hg, 81 Tl, 82 Pb, 83 Bi, 84 Po, 85 At, 86 Rn, 87 Fr, 88 Ra, 89 Ac, 90 Th, 91 Па, 92 U, 93 Np, 94 Pu, 95 Am, 96 Cm, 97 Bk, 98 Cf, 99 Es, 100 Fm, 101 Md, 102 Нет, 103 Lr, 104 Rf, 105 Db, 106 Sg, 107 Bh, 108 Hs, 109 Mt, 110 DS, 111 Rg, 112 Cn, 113 Nh, 114 Fl, 115 Mc, 116 Lv, 117 Ts , 118 Ог
Дополнительные правила:
- Поскольку эта проблема связана со сжатием в той же мере, что и с кодом для гольфа, вы должны предоставить список элементов самостоятельно. Вы не должны использовать какие-либо встроенные периодические таблицы, представленные на нашем языке.
- Работайте с учетом регистра. Это означает, что «Во все тяжкие» есть 2 замены, а в «Во все тяжкие» - одна. Ввод может быть произвольным и не всегда соответствует английской грамматике. fOoBar станет f [O8] o [Ba56] r.
- Жадный поиск, [Он] имеет приоритет перед [H].
Самый короткий код в байтах побеждает.
Ответы
JavaScript (ES6), 327 байт
s=>s.replace(RegExp([...a="HHeLiBeBCNOFNeNaMgAlSiPSClArKCaScTiVCrMnFeCoNiCuZnGaGeAsSeBrKrRbSrYZrNbMoTcRuRhPdAgCdInSnSbTeIXeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaWReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaUNpPuAmCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnNhFlMcLvTsOg".match(/.[a-z]?/g)].sort(s=>-!!s[1]).join`|`,'g'),s=>`[${s+-~a.indexOf(s)}]`)
Попробуйте онлайн!
Как?
Строка данных состоит из всех символов элементов, объединенных вместе, от наименьшего до наибольшего атомного номера.
"HHeLiBeBCNOFNeNaMg...LvTsOg"
Мы разбили его на список a[]из 118 записей с помощью следующего регулярного выражения:
+------> any character (always a capital letter)
| +--> optionally followed by a letter in lower case
| __|_
|/ \
/.[a-z]?/g
Создаем копию a[], помещаем все односимвольные элементы в конец списка и соединяем конвейерами:
[...a].sort(s => -!!s[1]).join('|')
Который дает:
"Og|Ts|Lv|Mc|Fl|Nh|...|He|H|B|C|N|O|F|P|S|K|V|Y|I|W|U"
Мы превращаем эту строку в регулярное выражение и применяем ее к входной строке. Каждая совпадающая подстрока sзаменяется шаблоном:
`[${s + -~a.indexOf(s)}]`
Python 3.8 , 454 \$\cdots\$409 385 байт
Сохранено колоссальное количество байт 38 40 45 69 (и исправлена ошибка) благодаря ovs !!!
eval("lambda s:_]and_<b][-1]".replace('_',"[(s:=re.sub(f'(?<!\[){b}',f'[{b}{e}]',s))for e,b in p if b[1:]"))
import re
p=[*enumerate(re.split("(?=[A-Z])","HHeLiBeBCNOFNeNaMgAlSiPSClArKCaScTiVCrMnFeCoNiCuZnGaGeAsSeBrKrRbSrYZrNbMoTcRuRhPdAgCdInSnSbTeIXeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaWReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaUNpPuAmCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnNhFlMcLvTsOg"))][1:]
Попробуйте онлайн!
Сначала проходят все химические вещества с двумя буквами, а затем с одной буквой.
Уголь , 217 байт
Ｆ⪪”}∨"²Ｑ/QH▷⊕Ff←ＳγＧ¤º＆ρωＶφ∨]›¶⁻Nr*Sψ⦄π⁶&Ｕ⊞jεＪκκＨ‹ι7◧"↷⌊Ｒι¦◧◧‽3▷↨↑´^@➙⊙×π+sQ⌈⊙▷ＴQ|ⅉB{_Π"⪪η(⁵AxＱＷＷ/⁻∨8▶u…κ¹*ＩTλ_⟧‽Ｈj.⊞；r⬤|›∧7ψjêÞζp⸿⊖¿⊖Ｑ℅↷Hb↨“↔=bＹ⁵⌈↷¬δ⎚⪫:D₂↓;≦？⁺[‴.t4r±,s^)↗τ”²⊞υΦι›κ ≔⪪⮌Ｓ¹θＷ∧θ⭆⊕№υ⭆²§⮌θκ⊟θ¿№υι«[ιＩ⊕⌕υι]»ι
Попробуйте онлайн! Ссылка на подробную версию кода. Пояснение:
Ｆ⪪”...”²⊞υΦι›κ
Разделите список имен элементов на пары букв и удалите пробелы.
≔⪪⮌Ｓ¹θ
Переверните ввод и разделите его на символы.
Ｗ∧θ⭆⊕№υ⭆²§⮌θκ⊟θ
Пока еще есть ввод, удалите последние 2 символа, если есть соответствующий элемент, в противном случае удалите последний символ.
¿№υι«
Если в массиве есть совпадение, то ...
[ιＩ⊕⌕υι]
... выведите совпадение и его атомный номер внутри []s.
»ι
В противном случае просто напечатайте текущий символ.
05AB1E , 183 181 байт
.œʒ.•2вy>ÖΘZθÒ7ßΩ¨ÑÝ
(Îiþ∍ćf=ÆΛ}’.мιoiFδC¸Γ=¢`Ÿíнp»ΛÑzðÿ®ÄÄ‘Â@Âη+(Óûò‘8нKKK#â<Ù#<“râµ5£”м}ÓæuüåÈZµ-ΔÈ;VzeY¯õnK§ÁÚ¡[θƶη„Gp©6›mðÿāε1ΛÎíγJò~܉cT¢Œƶʒ˜•2ô™ðм©såüαP}Σ€g{ygš}θ®DεN>«…[ÿ]}‡J
Довольно медленно для длинных входов.
Попробуйте онлайн или проверьте еще несколько коротких тестовых примеров .
Пояснение:
.œ # Get all partitions of the (implicit) input-string
ʒ # Filter these list of parts by:
.•2вy...ƶʒ˜• # Push compressed string "h helibeb c n o f nenamgalsip s clark casctiv crmnfeconicuzngageassebrkrrbsry zrnbmotcrurhpdagcdinsnsbtei xecsbalaceprndpmsmeugdtbdyhoertmybluhftaw reosirptauhgtlpbbipoatrnfrraacthpau nppuamcmbkcfesfmmdnolrrfdbsgbhhsmtdsrgcnnhflmclvtsog"
2ô # Split it into parts of size 2: ["h ","he","li","be","b "...]
™ # Titlecase each string: ["H ","He","Li","Be","B ",...]
ðм # Remove all spaces from each string: ["H","He","Li","Be","B",...]
© # Store this list in variable `®` (without popping)
s # Swap so the current partition is at the top of the stack
å # Check for each inner part whether it's in the element-list
# (1 if truthy; 0 if falsey)
ü # For each overlapping pair:
α # Get the absolute difference
P # Get the product of those to check if all are truthy (1)
# (partitions in the form of [0,1,0,1,...] or [1,0,1,0,...] are left)
}Σ # After the filter: sort any remaining partition by:
€ # Map each part in the list to:
g # Pop and push its length
{ # Sort this list of lengths
y # Push the current partition again
g # Pop and push its length to get the amount of parts in this partition
š # And prepend it at the front of the other lengths
}θ # After the sort by: only leave the last partition,
# which will have the most parts, as well as the longest individual parts
® # Push the list of elements from variable `®` again
D # Duplicate it
ε # Map the copy to:
N> # Push the 0-based map index, and increase it by 1
« # Append it to the element-string
…[ÿ] # Push string "[ÿ]", where the `ÿ` is automatically filled with the
# element name and number
}‡ # After the map: transliterate all elements to the formatted elements in
# the partition
J # And join it back together to a single string
# (after which it is output implicitly as result)
Посмотрите этот мой совет от 05AB1E (раздел Как сжимать строки, не являющиеся частью словаря? ), Чтобы понять, почему .•2вy>ÖΘZθÒ7ßΩ¨ÑÝ\n(Îiþ∍ćf=ÆΛ}’.мιoiFδC¸Γ=¢`Ÿíнp»ΛÑzðÿ®ÄÄ‘Â@Âη+(Óûò‘8нKKK#â<Ù#<“râµ5£”м}ÓæuüåÈZµ-ΔÈ;VzeY¯õnK§ÁÚ¡[θƶη„Gp©6›mðÿāε1ΛÎíγJò~܉cT¢Œƶʒ˜•это так "h helibeb c n o f nenamgalsip s clark casctiv crmnfeconicuzngageassebrkrrbsry zrnbmotcrurhpdagcdinsnsbtei xecsbalaceprndpmsmeugdtbdyhoertmybluhftaw reosirptauhgtlpbbipoatrnfrraacthpau nppuamcmbkcfesfmmdnolrrfdbsgbhhsmtdsrgcnnhflmclvtsog".
Perl 5 -p , 313 байт
map$k{$_}=++$j,HHeLiBeBCNOFNeNaMgAlSiPSClArKCaScTiVCrMnFeCoNiCuZnGaGeAsSeBrKrRbSrYZrNbMoTcRuRhPdAgCdInSnSbTeIXeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaWReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaUNpPuAmCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnNhFlMcLvTsOg=~/.[a-z]?/g;for$a(sort{$b=~y///c-length$a}keys%k){s/(?<!\[)$a/[$a$k{$a}]/g}
Попробуйте онлайн!