У місці поховання царя Силосу Астурійського є напис, на якому написано SILO PRINCEPS FECIT ( це зробив Цар Силос ).

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

Вхідні дані

Рядок ( або еквівалент ) і ціле число. Ви можете зробити наступні припущення щодо введення даних:

• Рядок матиме непарну довжину.
• Ціле число буде непарним числом від 1 до одного менше, ніж удвічі більше довжини рядка.

Вихідні дані

Inscriptio labyrinthica для рядка, використовуючи ціле число для висоти або ширини (див моделей для прикладів висоти). Виводом має бути кожна літера без пробілів, розрив рядка як стандартний для вашої системи / мови.

Тестові кейси

Зауважте, що введення 1 або (довжина * 2 - 1) призведе до горизонтального чи вертикального паліндром.

 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^

Оцінка балів

Це кодовий гольф, тому найкоротша відповідь у байтах виграє. Стандартні лазівки заборонені.

J , 27 байт

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

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

Приклад уточнить підхід на високому рівні.

Розглянемо 'ABCDE' f 3

Ми помічаємо , що то , що ми шукаємо, просто «хрест доповнення» таблиця 1 0 1і 3 2 1 0 1 2 3, яка виглядає наступним чином :

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

Потім витягнути ці індекси з початкового рядка: [{~.

Все решта коду - це просто нудна арифметика і використання i:для побудови аргументів 1 0 1і 3 2 1 0 1 2 3.

Желе , 12 байт

Uṡṛ‘HɗŒBŒḄZY

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

Дядічне посилання, що бере рядку як лівий, а висоту - як аргумент праворуч. Повертає рядок з розривами рядків. Якщо список рядків був прийнятним для виводу, я можу видалити остаточне Yзбереження байта. Цікаво, що оригінальний "SILO PRINCEPS FECIT" мені схожий на ASCII мистецтво 3D-діаманта, коли я дивлюся на нього на TIO.

Пояснення

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 байт

-2 байти завдяки Джузеппе. -4 байти, вводячи ширину, а не висоту, дозволену ОП.

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

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

Вводиться як вектор символів. Ключова частина - 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

(тоді нам потрібно додати 1, оскільки R є індексованим 1). 0 в центрі - це те, куди має піти перша літера вводу.

Решта - форматування.

Вугілля деревне , 25 19 байт

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

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

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

Намалюйте чверть напису.

‖Ｏ←↑

Відбийте, щоб завершити напис.

Japt -R , 19 16 байт

z
ò@VÔtXUaVÊ)êÃê

Спробуй це

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

Мова Вольфрама (Mathematica) , 57 54 байти

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

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

Приймає ширину як вхідну.

Japt -R , 10 байт

Ôã°Vz)mê ê

Займає ширину замість висоти.

Спробуй це

Псевдокод (U - рядок, V - ціле число):

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

Perl 6 , 68 67 байт

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

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

Пітон 3, 104 байти

Я так довго не займався гольфом ... Я впевнений, що це може бути коротше.

Деталі

Цей код визначає функцію, яка бере два аргументи (рядок і висоту) і дає результат на стандартному виході.

Індекс у рядку - це відстань Манхеттена від центру сітки. Для сітки ширини wта висоти hвідстань для комірки в(x, y) is abs(x - (w - 1) / 2) + abs(v - (h - 1) / 2).

Ширина сітки повинна бути такою, щоб відстань кутів на Манхеттені (скажімо, (0, 0)) була на одну меншу, ніж довжина струни. Підставляючи (0, 0)вищезазначене і спрощуючи, ми знаходимо, що ширина просто2 * len(s) - h .

Код

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)))

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

05AB1E , 10 байт

RŒI>;ù€ûû»

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

Pyth , 19 байт

L+_btbjyyM.:Q-lQ/E2

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

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 байт

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]

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

Стакс , 11 9 байт

é─C[┬«#t▒

Запустіть і налагоджуйте його

Він приймає ширину та початкову рядок у такому порядку.

C # (.NET Core) , 146 байт

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;}

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

Найдовша відповідь так довго. :-) Він використовує відстань Манхеттена до центру площі. Але, мабуть, має бути і коротший шлях.

Tcl , 188 170 162 байт

{{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

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

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

Збережено мінімум 18 байт шляхом перетворення на лямбда (можна зберегти до 13 більше, якщо повернене значення списку рядків є прийнятним)

Збережено додаткові 8, оскільки ітератор lmap слугував додатковою константою

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

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

Полотно не робить підрядків, тому мені потрібно ставитися до нього як до предмету мистецтва та отримати підрозділ таким чином. Я відчуваю, що це коштує мені 2 байти, але ей, що ти можеш зробити.

Схоже, це насправді не працює так, як я думав: функції паліндромізації Canvas відображають певні символи (наприклад, V дзеркальне відображення вертикально стає ^), і я не можу точно відключити це ... _{о добре, я думаю}

Рубін , 65 байт

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

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