"
-x|"•L®y[Â-Γ•5вèJ.º.∊
Pruébalo en línea.
25 24 bytes alternativa:
… -|•B°”Ñ•3вèJ3ä'x«».º.∊
Pruébalo en línea.
Explicación:
"\n -x|" # Push string "\n -x|"
•L®y[Â-Γ• # Push compressed number 5960566858660563
5в # Converted to Base-5 as list:
# [2,2,2,2,2,2,3,0,4,1,1,4,1,1,3,0,4,1,1,4,2,2,3]
è # Index each digit into the string
J # And join the list together
# "\n -x|" and [2,2,2,2,2,2,3,0,4,1,1,4,1,1,3,0,4,1,1,4,2,2,3]
# → "------x\n| | x\n| |--x"
.º # Intersect mirror everything horizontally
.∊ # Intersect mirror everything vertically (and output implicitly)
… -| # Push string " -|"
•B°”Ñ• # Push compressed integer 193812448
3в # Converted to Base-3 as list: [1,1,1,1,1,1,2,0,0,2,0,0,2,0,0,2,1,1]
è # Index each digit into the string
J # And join the list together
# " -|" and [1,1,1,1,1,1,2,0,0,2,0,0,2,0,0,2,1,1]
# → "------| | | |--"
3ä # Split the string into three parts: ["------","| | ","| |--"]
'x« '# Append an "x" to each: ["------x","| | x","| |--x"]
» # Join by newlines: "------x\n| | x\n| |--x"
.º # Intersect mirror everything horizontally
.∊ # Intersect mirror everything vertically (and output implicitly)
Vea esta sugerencia mía 05AB1E (sección ¿Cómo comprimir enteros grandes? ) Para comprender por qué •L®y[Â-Γ•es 5960566858660563y •B°”Ñ•es 193812448.
Gracias al generador de arte ASCII de @MagicOctopusUrn para •L®y[Â-Γ•5BžLR"\n -x|"‡y •B°”Ñ•3BžLR" -|"‡, después de lo cual, la transliteración se ha mejorado aún más al intercambiar el número y la cadena en la pila, usar en вlugar de Be indexar en la cadena con è.