Tại nơi chôn cất của Vua Silo của Asturias, có một dòng chữ ghi chữ SILO PRINCEPS FECIT ( Vua Silo đã làm điều này ).

Chữ cái đầu tiên được tìm thấy ở giữa, và từ đó người ta đọc bằng cách đi theo bất kỳ hướng không chéo nào tỏa ra bên ngoài. Bức thư cuối cùng được tìm thấy trên tất cả bốn góc. Trong thử thách này, bạn sẽ khái quát quy trình để thực hiện chúng.

Đầu vào

Một chuỗi ( hoặc tương đương ) và một số nguyên. Bạn có thể đưa ra các giả định sau về đầu vào:

• Chuỗi sẽ có độ dài lẻ.
• Số nguyên sẽ là một số lẻ trong khoảng từ 1 đến một nhỏ hơn hai lần chiều dài của chuỗi.

Đầu ra

Một mê cung inscriptio cho chuỗi, sử dụng số nguyên cho chiều cao hoặc chiều rộng (xem mô hình cho các ví dụ về chiều cao). Đầu ra phải là mỗi chữ cái không có dấu cách, ngắt dòng làm mặc định cho hệ thống / ngôn ngữ của bạn.

Các trường hợp thử nghiệm

Lưu ý rằng đầu vào 1 hoặc (chiều dài * 2 - 1) sẽ dẫn đến một bảng màu ngang hoặc dọc.

 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^

Chấm điểm

Đây là mã golf để câu trả lời ngắn nhất trong byte thắng. Sơ hở tiêu chuẩn bị cấm.

J , 27 byte

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

Hãy thử trực tuyến!

Một ví dụ sẽ làm rõ cách tiếp cận cấp cao.

Xem xét 'ABCDE' f 3

Chúng tôi nhận thấy rằng những gì chúng tôi tìm kiếm chỉ đơn giản là bảng "bổ sung chéo" 1 0 1và 3 2 1 0 1 2 3, trông giống như thế này:

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

Sau đó chúng tôi kéo các chỉ mục đó từ chuỗi ban đầu : [{~.

Tất cả phần còn lại của mã chỉ là số học nhàm chán và việc sử dụng i:để xây dựng các đối số 1 0 1và 3 2 1 0 1 2 3.

Thạch , 12 byte

Uṡṛ‘HɗŒBŒḄZY

Hãy thử trực tuyến!

Một liên kết dyadic lấy chuỗi làm bên trái và chiều cao của nó làm đối số bên phải của nó. Trả về một chuỗi có ngắt dòng. Nếu danh sách các chuỗi được chấp nhận cho đầu ra, tôi có thể xóa cuối cùngY lưu một byte . Điều thú vị là PRINCEPS ban đầu của SILO nhìn thấy tôi giống như nghệ thuật ASCII của một viên kim cương 3D khi tôi nhìn vào nó trên TIO.

Giải trình

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 byte

-2 byte nhờ Giuseppe. -4 byte bằng cách nhập chiều rộng thay vì chiều cao, như được OP cho phép.

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

Hãy thử trực tuyến!

Đưa đầu vào như một vector của các ký tự. Phần quan trọng là 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

(sau đó chúng ta cần thêm 1 vì R là 1 chỉ mục.) 0 ở giữa là nơi mà chữ cái đầu tiên của đầu vào sẽ đi.

Phần còn lại là định dạng.

Than , 25 19 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

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

Vẽ một phần tư của dòng chữ.

‖Ｏ←↑

Phản ánh để hoàn thành các dòng chữ.

Japt -R , 19 16 byte

z
ò@VÔtXUaVÊ)êÃê

Thử nó

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

Ngôn ngữ Wolfram (Mathicala) , 57 54 byte

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

Hãy thử trực tuyến!

Lấy chiều rộng làm đầu vào.

Japt -R , 10 byte

Ôã°Vz)mê ê

Lấy chiều rộng thay vì chiều cao.

Thử nó

Mã giả (U là chuỗi, V là số nguyên):

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

Perl 6 , 68 67 byte

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

Hãy thử trực tuyến!

Python 3, 104 byte

Tôi đã không chơi golf quá lâu ... Tôi chắc chắn điều này có thể ngắn hơn.

Chi tiết

Mã này xác định một hàm lấy hai đối số (chuỗi và chiều cao) và đưa ra kết quả trên đầu ra tiêu chuẩn.

Chỉ số vào chuỗi là khoảng cách Manhattan từ trung tâm của lưới. Đối với một lưới có chiều rộng wvà chiều cao h, khoảng cách cho ô (x, y)là abs(x - (w - 1) / 2) + abs(v - (h - 1) / 2).

Chiều rộng của lưới phải sao cho khoảng cách Manhattan của các góc (giả sử (0, 0)) nhỏ hơn một chiều dài của chuỗi. Thay thế(0, 0) vào đó và đơn giản hóa, chúng tôi thấy rằng chiều rộng chỉ đơn giản là2 * len(s) - h .

Mã

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

Hãy thử trực tuyến!

05AB1E , 10 byte

RŒI>;ù€ûû»

Hãy thử trực tuyến!

Bình thường , 19 byte

L+_btbjyyM.:Q-lQ/E2

Hãy thử trực tuyến!

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 byte

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]

Hãy thử trực tuyến!

Stax , 11 9 byte

é─C[┬«#t▒

Chạy và gỡ lỗi nó

Nó lấy chiều rộng và chuỗi gốc theo thứ tự đó.

C # (.NET Core) , 146 byte

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

Hãy thử trực tuyến!

Câu trả lời dài nhất rất lâu. :-) Nó sử dụng khoảng cách Manhattan đến trung tâm của quảng trường. Phải có một cách ngắn hơn, mặc dù.

Tcl , 188 170 162 byte

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

Hãy thử trực tuyến!

Dường như có một triệu cách tồi tệ để giải quyết vấn đề này trong TCL. Đây không phải là tồi tệ nhất của họ.

Đã lưu tối thiểu 18 byte bằng cách chuyển đổi sang lambda (có thể tiết kiệm thêm tới 13 byte nếu giá trị trả về của danh sách các dòng được chấp nhận)

Đã lưu thêm 8 vì trình lặp lmap được dùng như một hằng số bổ sung

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

Hãy thử nó ở đây!

Canvas không làm lớp nền, vì vậy tôi cần coi nó như một đối tượng nghệ thuật và có được phần phụ theo cách đó. Tôi cảm thấy như thế này tốn của tôi 2 byte, nhưng này, bạn có thể làm gì.

Có vẻ như điều này thực sự không hoạt động như tôi nghĩ: Các chức năng palindromize của Canvas phản chiếu một số ký tự nhất định (ví dụ V được nhân đôi theo chiều dọc trở thành ^), và tôi không thể vô hiệu hóa chính xác điều đó ... _{ồ, tôi đoán vậy}

Ruby , 65 byte

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

Hãy thử trực tuyến!