En el lugar de enterramiento del Rey Silo de Asturias hay una inscripción que dice SILCI PRINCEPS FECIT (el Rey Silo hizo esto ).

La primera letra se encuentra en el medio, y desde allí se lee yendo en cualquier dirección no diagonal que se irradia hacia afuera. La letra final se encuentra en las cuatro esquinas. En este desafío, generalizarás el proceso para hacerlos.

Entrada

Una cadena ( o equivalente ) y un número entero. Puede hacer los siguientes supuestos sobre la entrada:

• La cadena tendrá una longitud impar.
• El número entero será un número impar entre 1 y uno menos del doble de la longitud de la cadena.

Salida

Una inscriptio labyrinthica para la cadena, usando el número entero para la altura o el ancho (ver modelos para ejemplos de altura). La salida debe ser cada letra sin espacios, salto de línea como predeterminado para su sistema / idioma.

Casos de prueba

Tenga en cuenta que una entrada de 1 o (longitud * 2 - 1) dará como resultado un palíndromo horizontal o vertical.

 Input: FOO, 3    Input: BAR, 1    Input: BAR, 3    Input: BAR, 5

Output: OOO      Output: RABAR    Output: RAR       Output: R
        OFO                               ABA               A
        OOO                               RAR               B
                                                            A
                                                            R

 Input: ABCDE, 5   Input: ABCDE, 3   Input: *<>v^, 5

Output: EDCDE     Output: EDCBCDE           ^v>v^
        DCBCD             DCBABCD           v><>v
        CBABC             EDCBCDE           ><*<>
        DCBCD                               v><>v
        EDCDE                               ^v>v^

Tanteo

Este es el código de golf, por lo que la respuesta más corta en bytes gana. Lagunas estándar prohibidas.

J , 27 bytes

([{~]+/&(|@i:)#@[-1+])-:@<:

Pruébalo en línea!

Un ejemplo aclarará el enfoque de alto nivel.

Considerar 'ABCDE' f 3

Notamos que lo que buscamos es simplemente la tabla de "suma cruzada" de 1 0 1y 3 2 1 0 1 2 3, que se ve así:

4 3 2 1 2 3 4
3 2 1 0 1 2 3
4 3 2 1 2 3 4

A continuación, tire de los índices de la cadena original: [{~.

Todo el resto del código es aritmética aburrida y el uso de i:para construir los argumentos 1 0 1y 3 2 1 0 1 2 3.

Jalea , 12 bytes

Uṡṛ‘HɗŒBŒḄZY

Pruébalo en línea!

Un enlace diádico que toma la cadena como su izquierda y la altura como su argumento derecho. Devuelve una cadena con saltos de línea. Si una lista de cadenas fuera aceptable para la salida, puedo eliminar el Yguardado final de un byte. Curiosamente, el original "SILO PRINCEPS FECIT" me parece el arte ASCII de un diamante 3D cuando lo miro en TIO.

Explicación

U            | Reverse input
 ṡ   ɗ       | All overlapping substrings of the length given by:
  ṛ          | - The right argument
   ‘         | - Incremented by 1
    H        | - Halved
      ŒB     | Concatenate to the reverse, keeping a single copy of the last character (so creating a palindrome)
        ŒḄ   | Do the same, but this time using the lists of characters generated by the last atom
          Z  | Transpose
           Y | Join with newlines

R , 93 91 87 bytes

-2 bytes gracias a Giuseppe. -4 bytes ingresando el ancho en lugar de la altura, según lo permitido por OP.

function(s,W,w=W%/%2,h=length(s)-w-1)write(s[1+outer(abs(-w:w),abs(-h:h),`+`)],1,W,,"")

Pruébalo en línea!

Toma la entrada como un vector de caracteres. La parte clave es s[1+outer(abs(-w:w),abs(-h:h),'+')].

$w$$h$$(2w+1)\times(2h+1)$

$(i,j)$$1+|i-h|+|j-w|$abs(-w:w)abs(-h:h)abs(-h:h)$[h, h-1, h-2, \ldots, 2, 1, 0, 1, 2, \ldots, h-1, h]$outer(abs(-2:2), abs(-1:1), '+')

32123
21012
32123

(entonces necesitamos agregar 1 porque R está indexado en 1). El 0 en el centro es donde debe ir la primera letra de la entrada.

El resto es formateo.

Carbón , 25 19 bytes

Ｅ⊘⊕η✂θι⁺ι⁻Ｌθ⊘⊖η‖Ｏ←↑

Pruébalo en línea! El enlace es a la versión detallada del código. Explicación:

Ｅ⊘⊕η✂θι⁺ι⁻Ｌθ⊘⊖η

Dibuja una cuarta parte de la inscripción.

‖Ｏ←↑

Reflexiona para completar la inscripción.

Japt -R , 19 16 bytes

z
ò@VÔtXUaVÊ)êÃê

Intentalo

z\nò@VÔtXUaVÊ)êÃê     :Implicit input of integer U & string V
z                     :Floor divide U by 2
 \n                   :Reassign result to U
   ò                  :Range [0,U]
    @                 :Map each X
     VÔ               :  Reverse V
       tX             :  Substring from index X to index ...
         Ua           :    Absolute difference between U and ...
           VÊ         :    Length of V
             )        :  End substring
              ê       :  Palindromise
               Ã      :End map
                ê     :Palindromise
                      :Implicit output, joined by newlines

Wolfram Language (Mathematica) , 57 54 bytes

(g=Reverse@Rest@#~Join~#&)@BlockMap[g,#,⌈#2/2⌉,1]&

Pruébalo en línea!

Toma el ancho como entrada.

Japt -R , 10 bytes

Ôã°Vz)mê ê

Toma ancho en lugar de altura.

Intentalo

Pseudocódigo (U es una cadena, V es un entero):

U.Reverse().AllSubstringsOfLength(++V / 2).Map(Palindromize).Palindromize

Perl 6 , 68 67 bytes

{say |$^a.comb[{$_...0...$_}($a.comb-$^b+>1-1)X+.abs]for ^$b-$b+>1}

Pruébalo en línea!

Python 3, 104 bytes

No he jugado al golf en mucho tiempo ... Estoy seguro de que esto podría ser más corto.

Detalles

Este código define una función que toma dos argumentos (la cadena y la altura) y da el resultado en la salida estándar.

El índice en la cadena es la distancia de Manhattan desde el centro de la cuadrícula. Para una cuadrícula de ancho wy alto h, la distancia para la celda (x, y)es abs(x - (w - 1) / 2) + abs(v - (h - 1) / 2).

El ancho de la cuadrícula debe ser tal que la distancia de Manhattan de las esquinas (por ejemplo, (0, 0)) sea uno menos que la longitud de la cadena. Sustituyendo (0, 0)en lo anterior y simplificando, encontramos que el ancho es simple 2 * len(s) - h.

Código

def b(s,h):
 w=2*len(s)-h
 for y in range(h):print(''.join(s[abs(x-w//2)+abs(y-h//2)]for x in range(w)))

Pruébalo en línea!

05AB1E , 10 bytes

RŒI>;ù€ûû»

Pruébalo en línea!

Pyth , 19 bytes

L+_btbjyyM.:Q-lQ/E2

Pruébalo en línea!

L+_btbjyyM.:Q-lQ/E2   Implicit: Q=string, E=height
L                     Define a function, y(b):
  _b                    Reverse b
 +  tb                  Append all be first element of b
                      y is now a palindromisation function
              lQ      Length of Q
             -  /E2   Subtract floored division of E by 2
          .:Q         All substrings of Q with the above length
        yM            Palindromise each substring
       y              Palindromise the set
      j               Join on newlines, implicit print

Python 2 , 95 bytes

def f(s,n):
 y=len(s);n//=2
 for i in range(n+1)+range(n)[::-1]:print s[y+~i:n-i:-1]+s[n-i:y-i]

Pruébalo en línea!

Stax , 11 9 bytes

é─C[┬«#t▒

Ejecutar y depurarlo

Toma el ancho y la cadena original, en ese orden.

C # (.NET Core) , 146 bytes

s=>n=>{int w=s.Length*2-n,i=0,j;var r=new char[n,w];for(;i<n;i++)for(j=0;j<w;)r[i,j]=s[System.Math.Abs(n/2-i)+System.Math.Abs(w/2-j++)];return r;}

Pruébalo en línea!

La respuesta más larga hasta ahora. :-) Utiliza la distancia de Manhattan al centro de la plaza. Sin embargo, debe haber un camino más corto.

Tcl , 188 170 162 bytes

{{w s} {join [lmap C [lrepeat $w string] {join [$C reverse [set y [$C range $s [set x [expr abs($w/2+1-[incr i])]] end-[expr $w/2-$x]]]][$C range $y 1 end]}] \n}} bytes

Pruébalo en línea!

Parece que hay un millón de malas formas de jugar golf a este problema en TCL. Este no es el peor de ellos.

Se guardó un mínimo de 18 bytes al convertir a lambda (puede guardar hasta 13 más si el valor de retorno de una lista de líneas es aceptable)

Guardado un 8 adicional ya que el iterador lmap sirvió como una constante adicional

±Ｘ↕┌Ｌ╵┌－Ｙ｛ｘ；１ｙ１＠］┼

Pruébalo aquí!

Canvas no hace subcadenas, por lo que debo tratarlo como un objeto de arte y obtener una subsección de esa manera. Siento que esto me cuesta 2 bytes, pero oye, ¿qué puedes hacer?

Parece que esto en realidad no funciona como pensé: las funciones palindromize de Canvas reflejan ciertos caracteres (por ejemplo, V reflejado verticalmente se convierte en ^), y no puedo deshabilitar exactamente eso ... _{oh bueno, supongo}

Ruby , 65 bytes

->s,h{(-(h/=2)..h).map{|y|(z=s[(w=y.abs)..w+~h]).reverse.chop+z}}

Pruébalo en línea!