Вызов

Напишите код, который выводит код математического уравнения TeX (LaTeX) (приведенный ниже), который будет набирать фрактал Серпинского из 5 уровней. Самый короткий код выигрывает .

Детали

TeX (и его друзья, такие как LaTeX и т. Д.) - сложная система набора текста. Может отображать произвольные вложенные сложные выражения для математических формул. По совпадению этот «вложенный комплекс» также является описанием фракталов. Следующее отображается с MathJaX

$${{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}^{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}_{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}}$$

с помощью следующего кода математического уравнения в виде простого текста, состоящего из вложенных супер- и вложенных сценариев:

{{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}^{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}_{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}}

Обратите внимание, что это всего лишь 5-уровневая вложенность. Вам не нужно генерировать $...$или $$...$$другую разметку, необходимую для начала / завершения математического уравнения в TeX & Co. Вы можете просмотреть сгенерированный TeX во многих онлайн-редакторах, например: http://www.hostmath.com, но вы можете найти много другие тоже. Этот вопрос был вдохновлен обсуждением с друзьями .

Обновить

Есть похожий вопрос, но он гораздо более общий и даст разные решения. Я хотел увидеть действительно колмогоровскую сложность для очень фиксированного простого кода, который в одной системе (TeX) полностью явный, а в другой сжатый. Это также относится nк комментариям вместо 5 уровней.

SOGL V0.12 , 16 12 байт

 x5{"{^_}”;∑

Попробуй здесь!

Порт Эрика The Outgolfer's Python 2 ответ

Python 2 , 32 байта

exec"print'x'"+".join('{^_}')"*5

Попробуйте онлайн!

обычный TeX, 29 байт

\def~#1x{{#1x_#1x^#1x}}~~~~~x

Это выводит то, что есть у других. Но если нам нужен код для компиляции, он будет на 6 байт больше

\def~#1x{{#1x_#1x^#1x}}$~~~~~x$\bye

объяснение

~является активным символом в TeX, поэтому мы можем дать ему (новое) определение.

\def~#1x{{#1x_#1x^#1x}}определяется ~как макрос, так что когда TeX видит ~, он делает следующее:

• Прочитайте все до следующего xи назовите это #1(сопоставление с образцом).
• Заменить все это {#1x_#1x^#1x}

Например, ~ABCxбудет заменен на {ABCx_ABCx^ABCx}.

Когда ~~~~~xиспользуется, #1есть ~~~~, так что все это заменяется {~~~~x_~~~~x^~~~~x}. И так далее.

Как только мы получим длинную строку, мы можем распечатать ее на терминал с помощью \message(и заканчивая \byeтак, чтобы TeX останавливался), так что \message{~~~~~x}\bye. Или наберите полученное выражение (как математическую формулу), заключив его в $s: so $~~~~~x$\bye.

05AB1E , 17 байт

'x5F'x¡"{x^x_x}"ý

Попробуйте онлайн!

объяснение

'x                  # push "x"
  5F                # 5 times do
    'x¡             # split on "x"
       "{x^x_x}"ý   # join on "{x^x_x}"

Другие программы с таким же количеством байтов включают

"{x^x_x}"©4F'x¡®ý
'x5F'x"{x^x_x}".:

PowerShell ,  44  35 байт

"'x'"+"-replace'x','{x^x_x}'"*5|iex

Попробуйте онлайн!

Использует умножение строк для многократного -replace xпреобразования с использованием вспомогательных и суперскриптов, а затем вывод.

Сохранено 9 байтов благодаря Joey.

MATL ,21 20 байт

'x'XJ5:"J'{x^x_x}'Zt

-1 байт благодаря Джузеппе

Попробуйте онлайн!

JavaScript (ES6), 45 42 37 байт

f=n=>n>4?'x':[...'{^_}'].join(f(-~n))

Редактировать: Сохранено 3 2 байта благодаря @Arnauld. Указание 5 все еще стоит мне 2 байта; эта 41 40 35-байтовая версия принимает параметр вместо:

f=n=>n?[...'{^_}'].join(f(n-1)):'x'

05AB1E , 13 байтов

'x5F"{^_}"Ssý

Попробуйте онлайн!

Порт моего Python 2 ответа.

Желе , 12 байт

”x“{^_}”j$5¡

Попробуйте онлайн!

Порт моего Python 2 ответа.

Japt , 21 20 18 байт

5Æ="\{^_}"¬qUª'xÃÌ

Попробуй это

---

объяснение

5Æ             Ã

Создайте массив длиной 5 и отобразите его.

"\{^_}"¬

Разделить строку на массив символов

qUª'x

Вернитесь ( q) к строке, используя текущее значение Uили ( ª) "x".

=

Назначьте результат этого U.

Ì

Получить последний элемент в массиве.

---

Альтернативы, 18 байт

То же, что и выше, но уменьшение массива после его создания.

5o r@"\{^_}"¬qX}'x

Попробуй это

Рекурсивный вариант.

>4©'xª"\{^_}"¬qßUÄ

Попробуй это

Java (OpenJDK 8) , 179 167 байт

@ Нейл порт

interface Y{static void main(String[]a){System.out.println(t.apply(1));}java.util.function.Function<Integer,String>t=N->N>0?Y.t.apply(N-1).replace("x","{x^x_x}"):"x";}

Попробуйте онлайн!

Wolfram Language ( Mathematica ) - 40 знаков

Обобщая 3 лучших ответа здесь :

40 байтов:

Nest["{"<>#<>"_"<>#<>"^"<>#<>"}"&,"x",5]

41 байт:

Nest[StringReplace["x"->"{x^x_x}"],"x",5]

44 байта:

Last@SubstitutionSystem["x"->"{x^x_x}","x",5]

C (gcc) , 82 байта

O(o){o--?_(125,O(o,_(95,O(o,_(94,O(o,_(123))))))):_(120);}main(){O(5);}

Попробуйте онлайн!

Pyth, 17 16 13 байтов

jF+\x*5]"{^_}

Попробуйте онлайн!

Перевод Python 3:

from functools import*;print(reduce(lambda x,y:x.join(y),["x"]+5*["{^_}"]))