Asturias Kralı Silo'nun mezar yerinde SILO PRINCEPS FECIT ( Kral Silo bunu yaptı ) yazan bir yazı var .

İlk harf en ortada bulunur ve buradan bir dış köşeye yayılan çapraz olmayan herhangi bir yöne girerek okur. Son mektubun dört köşesinde bulunur. Bu zorlukta, bunları yapma sürecini genelleştireceksiniz.

Giriş

Bir dize ( veya eşdeğeri ) ve bir tam sayı. Girdi hakkında aşağıdaki varsayımları yapabilirsiniz:

• Dize tek bir uzunluğa sahip olacaktır.
• Tam sayı, dizenin uzunluğunun iki katından 1 ile 1 arasında bir tek sayı olacaktır.

Çıktı

Yükseklik veya genişlik için tamsayı kullanarak string için kullanılan bir inscriptio labyrinthica (yükseklik örnekleri için modellere bakınız). Çıktı, boşluksuz her harf, sistem / dil için varsayılan olarak satır sonu olmalıdır.

Test durumları

1 veya (uzunluk * 2 - 1) girişinin yatay veya dikey palindrom ile sonuçlanacağına dikkat edin.

 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^

puanlama

Bu kod golf , bayt cinsinden kazanılan cevapların çok kısa olması Standart boşluklar yasaktır.

J , 27 bayt

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

Çevrimiçi deneyin!

Bir örnek, üst düzey yaklaşımı netleştirecektir.

Düşünmek 'ABCDE' f 3

Aradığımız şeyin basitçe "çapraz toplama" tablosunun 1 0 1ve 3 2 1 0 1 2 3şöyle göründüğünü fark ettik :

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

Bu durumda, orijinal dize gelenler dizinleri çekin: [{~.

Kodun geri kalanı sadece sıkıcı aritmetik ve i:argümanları oluşturmak için kullanımı 1 0 1ve 3 2 1 0 1 2 3.

Jöle , 12 bayt

Uṡṛ‘HɗŒBŒḄZY

Çevrimiçi deneyin!

Dizeyi sol, yüksekliği ise sağ argümanı olarak alan çift yönlü bir bağlantı. Satır kesmeleri olan bir dize döndürür. Bir dizge listesi çıktı için kabul edilebilirse, son Ykaydetme baytını kaldırabilirim . İlginç bir şekilde orijinal “SILO PRINCEPS FECIT” TIO'da baktığımda ASCII 3D elmas sanatı gibi görünüyor.

açıklama

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 bayt

Giuseppe sayesinde -2 bayt. OP'nin izin verdiği gibi, yükseklik yerine genişliği girerek -4 byte.

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

Çevrimiçi deneyin!

Girdiyi karakter vektörü olarak alır. Anahtar bölüm 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

(R 1 indeksli olduğundan o zaman 1 eklemeliyiz.) Ortadaki 0, girişin ilk harfinin gitmesi gereken yerdir.

Gerisi biçimleniyor.

Kömür , 25 19 bayt

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

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Açıklama:

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

Yazıtın dörtte birini çizin.

‖Ｏ←↑

Yazıtı tamamlamayı reddet.

Japt -R , 19 16 bayt

z
ò@VÔtXUaVÊ)êÃê

Dene

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 Dili (Mathematica) , 57 54 bayt

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

Çevrimiçi deneyin!

Genişliği girdi olarak alır.

Japt -R , 10 bayt

Ôã°Vz)mê ê

Yükseklik yerine genişlik alır.

Dene

Sözde kod (U, dize, V, tamsayıdır):

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

Perl 6 , 68 67 bayt

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

Çevrimiçi deneyin!

Python 3, 104 bayt

Uzun zamandır golf oynamıyorum ... Bunun daha kısa olabileceğine eminim.

ayrıntılar

Bu kod iki argüman alan (string ve height) bir fonksiyonu tanımlar ve sonucu standart çıktıda verir.

İpin içindeki indeks, gridin ortasından Manhattan mesafesidir. Genişliğinin bir ızgara için wve yüksekliği h, hücrenin için mesafeye (x, y)ISabs(x - (w - 1) / 2) + abs(v - (h - 1) / 2) .

Şebekenin eni, köşelerin Manhattan mesafesi (diyelim (0, 0)), dize uzunluğundan bir olmalıdır. (0, 0)Yukarıdakilerin yerine geçerek ve basitleştirerek, genişliğin basit olduğunu bulduk 2 * len(s) - h.

kod

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

Çevrimiçi deneyin!

05AB1E , 10 bayt

RŒI>;ù€ûû»

Çevrimiçi deneyin!

Pyth , 19 bayt

L+_btbjyyM.:Q-lQ/E2

Çevrimiçi deneyin!

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 bayt

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]

Çevrimiçi deneyin!

Stax , 11 9 bayt

é─C[┬«#t▒

Koş ve hata ayıkla

Genişliği ve orijinal dizgiyi bu sırada alır.

C # (.NET Core) , 146 bayt

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

Çevrimiçi deneyin!

En uzun cevap çok uzun. :-) Manhattan'ın meydanın merkezine olan uzaklığını kullanıyor. Yine de daha kısa bir yol olmalı.

Tcl , 188 170 162 bayt

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

Çevrimiçi deneyin!

TCL'de bu problemi golf oynamak için bir milyon kötü yol var gibi görünüyor. Bu onların en kötüsü değil.

Lambda'ya dönüştürülerek minimum 18 bayt kurtarıldı (satır listesinin dönüş değeri kabul edilebilirse 13 kat daha tasarruf edebilirsiniz)

Lmap yineleyici ekstra bir sabit olarak görev yaptığından beri 8 tane daha kaydetti

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

Burada dene!

Canvas alt dizgiler yapmaz, bu yüzden bir sanat objesi gibi davranmam ve bu şekilde alt bölüm almam gerekiyor. Bunun bana 2 bayta mal olduğunu hissediyorum, ama hey, ne yapabilirsiniz.

Görünüşe göre bu aslında düşündüğüm gibi çalışmıyor: Tuvalin palindromize fonksiyonları bazı karakterleri yansıtıyor (örneğin V dikey olarak yansıtılıyor) ve tam olarak etkisizleştiremiyorum ... _{ah, sanırım}

Ruby , 65 bayt

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

Çevrimiçi deneyin!