ท้าทาย

เขียนโค้ดที่แสดงผลลัพธ์สมการทางคณิตศาสตร์ของ TeX (LaTeX) (ที่ระบุด้านล่าง) ที่จะเรียงเศษส่วน Sierpinski Triangle Fractal 5 ระดับ ที่สั้นที่สุดชนะรหัส

รายละเอียด

TeX (และเพื่อน ๆ เช่น LaTeX เป็นต้น) เป็นระบบเรียงพิมพ์ที่ซับซ้อน มันสามารถสร้างการแสดงออกที่ซับซ้อนซ้อนกันโดยพลการสำหรับสูตรทางคณิตศาสตร์ บังเอิญ "ซับซ้อนซ้อนกัน" นี้ยังเป็นคำอธิบายของ fractals ข้อมูลต่อไปนี้แสดงผลด้วย 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}}}}}$$

โดยโค้ดสมการคณิตศาสตร์ข้อความธรรมดาต่อไปนี้ซึ่งประกอบไปด้วย super-and sub-script ที่ซ้อนกัน:

{{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}^{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}}_{{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}^{{{x^x_x}^{x^x_x}_{x^x_x}}^{{x^x_x}^{x^x_x}_{x^x_x}}_{{x^x_x}^{x^x_x}_{x^x_x}}}_{{{x^x_x}^{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แต่คุณสามารถค้นหาได้มากมาย อื่น ๆ ด้วย คำถามนี้ได้รับแรงบันดาลใจจากการสนทนากับเพื่อน ๆ

ปรับปรุง

มีคำถามที่คล้ายกันแต่มันกว้างกว่านี้มากและจะให้คำตอบที่แตกต่างกัน ฉันต้องการเห็น kolmogorov ความซับซ้อนจริง ๆ สำหรับรหัสง่าย ๆ ที่คงที่ซึ่งในระบบหนึ่ง (TeX) นั้นชัดเจนอย่างสมบูรณ์ในขณะที่บีบอัดอีกระบบ นอกจากนี้ยังเน้นnความคิดเห็นแทน 5 ระดับ

SOGL V0.12, 16 12 bytes

 x5{"{^_}”;∑

Try it Here!

Port of Erik The Outgolfer's Python 2 answer

Python 2, 32 bytes

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}และอื่น ๆ

Once we have the long string, we can print it out to terminal with \message (and ending with a \bye so TeX stops), so \message{~~~~~x}\bye. Or typeset the resulting expression (as a mathematical formula), by surrounding it in $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 xes ซ้ำ ๆด้วยสคริปต์ย่อยและซุปเปอร์แล้วส่งออก

บันทึกแล้ว 9 ไบต์ขอบคุณ Joey

MATL ,21 20 ไบต์

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

-1 ไบต์ขอบคุณGiuseppe

ลองออนไลน์!

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

Rejoin ( q) เป็นสตริงที่ใช้ค่าปัจจุบันของUหรือ ( )ª"x"

=

Uกำหนดผลจากการที่ไป

Ì

รับองค์ประกอบสุดท้ายในอาร์เรย์

---

ทางเลือก 18 ไบต์

เหมือนกับด้านบน แต่ลดขนาดอาร์เรย์หลังจากที่สร้างขึ้น

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

ทดสอบมัน

ตัวเลือกการเรียกซ้ำ

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

ทดสอบมัน

Java (OpenJDK 8) , 179 167 ไบต์

@ Neil พอร์ต

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 ( 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*["{^_}"]))