Враховуючи рядок літер ASCII (верхній та / або нижній регістр), виведіть необроблений MathJax, необхідний для відображення цієї рядка, роздвоєної на кожному символі, в надписи та підписки. Наприклад, входи catта horseрезультати призведе до результатів, які MathJax надає відповідно наступним чином:

Зауважте, що потрібно взяти лише один вхід - ці два перераховані поруч просто для економії вертикального простору.

Значення розмітки

• _ вказує на підпис.
• ^ вказує на надрив.
• Наклейки потрібні навколо надписаних або підписаних підрядів, які містять подальший надписи або підписки, щоб запобігти їхньому знаходженню на одному рівні.

Тестові справи

Тестові справи складаються у форматі input : output. Перший тестовий випадок показує порожній рядок, оскільки вхід повинен призвести до порожнього рядка як виводу.

"" : ""
"a" : "a"
"me" : "m_e^e"
"cat" : "c_{a_t^t}^{a_t^t}"
"frog" : "f_{r_{o_g^g}^{o_g^g}}^{r_{o_g^g}^{o_g^g}}"
"horse" : "h_{o_{r_{s_e^e}^{s_e^e}}^{r_{s_e^e}^{s_e^e}}}^{o_{r_{s_e^e}^{s_e^e}}^{r_{s_e^e}^{s_e^e}}}"
"bifurcate" : "b_{i_{f_{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}^{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}}^{f_{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}^{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}}}^{i_{f_{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}^{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}}^{f_{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}^{u_{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}^{r_{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}^{c_{a_{t_e^e}^{t_e^e}}^{a_{t_e^e}^{t_e^e}}}}}}}"

Ви можете побачити, як вони відображаються, вставивши вихід у mathurl.com .

Без зайвих брекетів

MathJax із задоволенням візуалізує розмітку із надлишковими дужками. Наприклад, наступний буде все виглядати однаково при візуалізації: a, {a}, {}{a}, {{{{a}}}}.

Однак дійсний вихід для цього виклику не має зайвих дужок. Зауважте, зокрема, що окремі символи у висновку не оточені дужками.

Замовлення

Порядок індекса та суперскрипту є неважливим. Нижче наведено рівнозначні показники, які не відрізнятимуться при виведенні (і всі вони однаково достовірні результати):

c_{a_t^t}^{a_t^t}
c_{a^t_t}^{a_t^t}
c_{a_t^t}^{a^t_t}
c_{a^t_t}^{a^t_t}
c^{a_t^t}_{a_t^t}
c^{a^t_t}_{a_t^t}
c^{a_t^t}_{a^t_t}
c^{a^t_t}_{a^t_t}

Оцінка балів

Для кожної мови переможець - найкоротший код у байтах.

_{Забагато сповіщень? Введіть}для підписки</sub>

Python, 95 90 86 92 82 байт

10 байт збережено завдяки @ConnerJohnston

f=lambda s:s and s[0]+(s[1:]and'_{0}^{0}'.format(s[2:]and'{'+f(s[1:])+'}'or s[1]))

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

Математика, 72 84 77 76 байт

a_±b__:={"{",a,"_",±b,"^",±b,"}"};±(a_:""):={"",a,""};""<>Most@Rest@±##&@@#&

Використовує кодування CP-1252 (Windows). Візьме список символів як вхідний.

Пояснення

a_±b__:=

Визначте функцію ±з 2 і більше аргументами. Позначте перший аргумент a, а другий і далі b.

{"{",a,"_",±b,"^",±b,"}"}

Створіть Listеквівалент "{a_±b^±b}"( ±bоцінюється знову, рекурсивно).

±(a_:""):= ...

Визначте функцію ±з 1 або 0 аргументами. Додайте перший аргумент a, якщо він існує, і призначити ""в aіншому випадку.

{"",a,""}

Створіть Listеквівалент "a", залитий порожніми Strings.

""<>Most@Rest@±##&@@#&

Чиста функція, яка застосовується ±до вводу, скидає перший і останній елемент і перетворюється Listна String.

CJam (35 байт)

MqW%{"^{ }_{ }"{AW$,)3e<#<},S/@*+}/

Це повна програма. Інтернет демо .

3 байти працюють навколо помилки в інтерпретаторі (див. Нижче).

Розсічення

M            e# Start building from the empty string
qW%{         e# For each character in the reversed input
  "^{ }_{ }" e#   Take a template
  {          e#   If the accumulator is of length n, remove all characters whose
    A        e#   codepoints are greater than pow(10,
    W$,)3e<  e#                                   min(n+1, 3))
    #<       e#   When the accumulator is the empty string, that's all of them.
  },         e#   When the accumulator is one character, that's {}
             e#   When the accumulator is any longer, it's none of them.
  S/@*       e#   Substitute the accumulator for the spaces.
  +          e#   Append to the new character.
}/

Зауважте, що min(n+1, 3)слід обійти помилку в інтерпретаторі: має бути певна модель у повноваженнях 10, яка '}менша, але це не очевидно .

JavaScript (ES6), 57 55 байт

f=([c,...s])=>s+s?c+`_${p=s[1]?`{${f(s)}}`:s}^`+p:c||''

Θ (len (s)) складність! За словами @PeterTaylor, це насправді Θ (2 ^ len (s)), що все ще є найкращим можливим ...

Haskell , 71 байт

f[x,y]=x:'_':y:'^':y:[]
f(x:y@(_:_))=x:"_{"++f y++"}^{"++f y++"}"
f x=x

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

Якби нам просто довелося виводити дійсний код, для 44 байт працювало б наступне:

f[a]=[a]
f(a:b)=a:"_{"++f b++"}^{"++f b++"}"

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

SOGL V0.12 , 21 байт

±K;{╔+;lH?"{ŗ}”}1 ^Ο+

Спробуйте тут!

Пояснення:

±                      reverse the string
 K                     take off the first letter - will slowly convert to the output
  ;                    get the rest of the string ontop
   {                   iterate over the rest of the characters
    ╔+                   append "_" to it
      ;                  get the output string ontop
       lH?     }         if it's length - 1 [isn't 0]
          "{ŗ}”            push the string "{ŗ}" where ŗ is replaced by the output string
                1 ^Ο     wrap "^" around with the output string
                    +    prepend to it the current character + "_"

Perl 5 , 54 + 1 (-p) = 55 байт

s/\{(.)\}/$1/g while s/([a-z])([a-z]+)/$1_{$2}^{$2}/ig

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

Як?

Заміна в той час, коли умова порушує виникнення декількох літер у першій букві, а потім решта в дужках, як це:

abc -> a_{bc}^{bc}

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

Рубі , 76 73 72 68 67 57 байт

Використання лямбда заощадження 4 байти завдяки Tutleman

f=->s{(r=s[1..-1])[0]?s[0]+?_+[r[1]??{+f[r]+?}:r]*2*?^:s}

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

Безголівки:

def f(s)
  r = s[1..-1]
  if r.size > 0
    if r.size > 1
      x = "{" + f(r) + "}"
    else
      x = r
    end
    return s[0] + "_" + [x, x].join("^")
  else
    return s
  end
end

Пітон 2 , 84 байти

def b(s):q=s and(s[2:]and'{%s}'or'%s')%b(s[1:]);return s[1:]and s[0]+'^%s_'%q+q or s

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

Pyth , 47 байт

Ljk[hb|&ttbs[\_\{ytb"}^{"ytb\})&tbs[\_htb\^htb;

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

Це в значній мірі прямий порт відповіді @ Uriel Python. Їдемо трохи по гольфу.

PHP, 121 байт

function b($s){return $s[0].($s[1]?'_'.($s[2]?'{'.($b=b(substr($s,1))).'}^{'.$b.'}':"$s[1]^$s[1]"):'');}echo b($argv[1]);

Сама функція становить 104 байти та показує повідомлення про PHP.

Сітківка , 43 байти

(.)(.)$
$1¶$2
+`(.)¶(.*)
¶{$1_$2^$2}
¶{|}$

Спробуйте в Інтернеті! Посилання включає тестові випадки. Пояснення:

(.)(.)$
$1¶$2

Отримайте кочення, відрізавши останній символ. (Але якщо це єдиний персонаж, вони залишають його в спокої.)

+`(.)¶(.*)
¶{$1_$2^$2}

Перемістіть символ ¶ назад покроково, кожен раз беручи попередній результат і роблячи його індексом та суперскриптом наступного символу.

¶{|}$

Видаліть тепер зайві ¶ та зовнішні {} s.

Java (OpenJDK 8) , 121 байт

s->{int l=s.length;String r=--l<0?"":""+s[l];for(;l-->0;)r="{"+s[l]+"_"+r+"^"+r+"}";return r.replaceAll("^\\{|\\}$","");}

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

Javascript, 73 байти

s=>[...s].reduceRight((m,c)=>`${c}_{${m}}^{${m}}`).replace(/{(.)}/g,'$1')

Пояснення

s=>                                  // take the input string
    [...s]                           // split the string into an array
    .reduceRight(                    // reduce the array in reverse order
        (m,c)=>`${c}_{${m}}^{${m}}`  // storing the result of each iteration in the memo m
    )                                // and returning m at the end
    .replace(/{(.)}/g,'$1')          // replace redundant {}

Оскільки немає визначеного початкового значення m, reduceRightприймає останній елемент sяк початкове значення і починає ітерацію з індексу s.length-2.

const f=s=>[...s].reduceRight((m,c)=>`${c}_{${m}}^{${m}}`).replace(/{(.)}/g,'$1');

const input = document.querySelector('#input');
const output = document.querySelector('#output');
output.textContent = f(input.value);
input.addEventListener('keyup', e => output.textContent = f(input.value));

Enter text to bifurcate: <input type="text" id="input" value="cat" />
<br />
<span id="output"></span>