Bir kelimeyi "ana hatlarıyla" ifade etmekte olan mevcut zorunluluğun amaçları doğrultusunda, bir kelimeyi sonuncusundan başlayarak kendi harfleriyle art arda kuşatmak ve son olarak merkezdeki orijinal kelimeyi boşluklarla değiştirmek anlamına gelir:

       oooooo 
       onnnno 
on ->  on  no 
       onnnno
       oooooo

Görev:

Yalnızca küçük ve / veya büyük İngilizce harflerden oluşan bir kelime listesi verildiğinde, her bir kelimeyi ana hatlarıyla belirtin ve ortaya çıkan tüm blokları, blokların merkezlerine dikey olarak hizalanmış tek boşluklu bir sütunla ayrılmış olarak yatay olarak yan yana görüntüleyin.

Tam bir program veya bir işlev yazabilirsiniz.

Giriş:

Sözcüklerin listesi veya isterseniz - boşluk veya başka bir sembolle ayrılmış dize

Çıktı:

Seviyelendirilmiş kelimeler için blokların ASCII gösterimi. Öncü / sondaki boşluklara izin verilir.

Test senaryoları:

Input 1: ["code", "golf"] (or "code golf")
Output 1:

    cccccccccccc gggggggggggg
    cooooooooooc goooooooooog
    coddddddddoc gollllllllog
    codeeeeeedoc golfffffflog
    code    edoc golf    flog
    codeeeeeedoc golfffffflog
    coddddddddoc gollllllllog
    cooooooooooc goooooooooog
    cccccccccccc gggggggggggg

Input 2: ["I", "am", "just", "a", "man"]  (or "I am just a man")
Output 2: 

           jjjjjjjjjjjj
           juuuuuuuuuuj     mmmmmmmmm
    aaaaaa jussssssssuj     maaaaaaam
III ammmma justtttttsuj aaa mannnnnam
I I am  ma just    tsuj a a man   nam  
III ammmma justtttttsuj aaa mannnnnam
    aaaaaa jussssssssuj     maaaaaaam 
           juuuuuuuuuuj     mmmmmmmmm 
           jjjjjjjjjjjj

Kazanma kriterleri:

Her dilde bayt cinsinden en kısa kod kazanır. Kodunuzu ve yaklaşımınızı yorum / açıklama yaparsanız çok sevinirim.

Tuval , 22 20 bayt

ｌ ＊；±２１＊｛；ｌ└＊ｅ⟳｝ ］ｒ⤢

Burada deneyin!

Açıklama:

{                 ]    map over the inputs
 l *                     array of length spaces - the canvas of the current word
    ;                    get the word back on top
     ±                   reverse it
      21*                repeat each character twice
         {      }        for each character
          ;l└              push the height of the item below (the canvas)
             *             repeat the character that many times vertically
              e            and encase the canvas in that char column
               ⟳           and rotate it clockwise for encasing the next time
                 ∙      push another space as the separator of words
                   r   center the words
                    ⤢  and transpose the final output (as everything was built vertically)

Odun kömürü , 35 bayt

ＦＡ«≔ＬιθＭθ↑Ｆθ«Ｂ⁻׳θ⊗κ⊕⊗⁻θκ§ικ↘»Ｍ⊕⊗θ→

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

ＦＡ«

Giriş listesinin üzerine gelin.

≔Ｌιθ

Mevcut kelimenin uzunluğunu öğrenin.

Ｍθ↑

Ortaya çıkan anahattın sol üst köşesine gidin.

Ｆθ«

Her karakter için bir kez döngü yapın.

Ｂ⁻׳θ⊗κ⊕⊗⁻θκ§ικ

Uygun yükseklik, genişlik ve karaktere sahip bir kutu çizin.

↘»

Sonraki kutunun sol üst köşesine gidin.

Ｍ⊕⊗θ→

Sonraki taslağa git.

Haskell , ^{188 183 174 171} 167 bayt

-9 -13 bayt Laikoni sayesinde .

e=[]:e
c#a=k c<$>k(c<$a!!0)a
k c s=c:s++[c]
f w=foldr(#)[p w]w
p=(' '<$)
s w=unlines.map unwords.foldr(zipWith(:))e$until(\a->all((p a>=).p)$f<$>w)(k=<<p.head)<$>f<$>w

Çevrimiçi deneyin!

Pyth, 34 33 bayt

Jsm+;uCjR*2HG_.iddm\ dQjCm.[lJd;J

Çevrimiçi deneyin.

Bir sürü ekstra beyaz alanı boşaltır, ancak bu meydan okumaya izin verir.

açıklama

• m... Qher kelime için şunları yapar dgirişteki Q:

  • m\ dkelimeyi x => " ", esas [" ", ..., " "]olarak kelimenin harfleri kadar öğe içeren bir liste oluşturarak eşleştirir .
  • .iddsözcüğü kendisiyle araya ekler, sözcüğün harflerini iki kez tekrarlar. _bu dizeyi tersine çevirir. wordolur ddrrooww.
  • uG= boşluk dizisi ile başlar ve harmanlanmış dizedeki her harfle aşağıdakileri uygular H:
    • *2H karakteri iki kez tekrarlar.
    • jR… GHer dizeyi Gkarakter çifti arasına koyar .
    • Csatır ve sütunları değiştirir. Bu üç adım, aynı karakterde iki kez yapıldığında H, bu Gkarakterle birlikte gelen satırları ana hatlarıyla belirtir.
  • Şimdi anahatları belirlenmiş kelimenin sütunları var d. +;boşluk sütunu ekler.
• sher sözcük için sütun dizisini düzleştirir ve Jbunu değişkene kaydeder J.
• m… JÇıktının her sütunu için aşağıdakileri yapar:
  • .[lJd;sütunun her iki tarafını boşluklarla doldurur, böylece sütunun uzunluğu sütun sayısına eşit olur. Bu, sütunların dikey olarak hizalanması için her zaman yeterli dolgudur.
• Csütunları satırlara dönüştürür ve jsatırları yeni satırlarla birleştirir.

Alternatif çözüm, 33 bayt

j.tsm.[L\ l+dsQ+;uCjR*2HG_.iddm\ 

Çevrimiçi deneyin.

Sonunda bir boşluk olduğunu unutmayın. Çoğunlukla aynı algoritma, sadece üstteki sütunları doldurur ve daha sonra boşluk doldurur.

R , 189 bayt

function(x,S=32,`+`=rbind,`*`=cbind)cat(intToUtf8(Reduce(`+`,Map(function(s,K=utf8ToInt(s),o=S-!K){for(i in rev(K))o=i+i*o*i+i
for(j in(0:(max(nchar(x))-nchar(s)))[-1])o=S*o*S
o+S},x))+10))

Çevrimiçi deneyin!

DigEmAll ile benim aramda bir işbirliği sohbet .

function(x){
 S <- 32			# space
 `+` <- rbind			# alias for rbind
 `*` <- cbind			# alias for cbind
 outlineWord <- function(s){	# function to construct the outline for each word
  chars <- utf8ToInt(s)		# convert to code points
  output <- S - !chars		# replace each char with 32 (space)
  for(i in rev(chars))
   o <- i + i * o * i + i	# o <- rbind(i,cbind(i,o,i),i)
  for(j in(0:(max(nchar(x))-nchar(s)))[-1])
   o <- S * o * S		# pad with spaces
   o + S}			# return with an additional row of spaces between words
 outlines <- Map(outlineWord,x)	# apply outlineWord to each element of x
 outlines <- Reduce(`+`,outlines)# reduce by rbind
 outlines <- outlines+10	# add row of newlines
 cat(intToUtf8(outlines))	# convert back to strings and print
}

APL (Dyalog Klasik) , 57 51 50 bayt

{⍉⊃⍪/,/((⊢-⌈/)≢¨⍵)⌽↑{⍪¨↓0 1↓⍕,∘⍉∘⌽⍣4/⍵,⊂⍉⍪¯1/⍵}¨⍵}

Çevrimiçi deneyin!

Stax , 26 25 bayt

¢π‼○MªΘ└ƒ∩┘?◙↕)fY╨nu⌂E┴6X

Çalıştır ve hata ayıkla

05AB1E , 46 bayt

εg©;ò<Uyη央∍«®>∍}y𫩪®Xиª˜».º.∊}¶«».C.B€SζJ»

Çok mutlu değil, ama işe yaradığı için memnunum.

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

ε                             # Map `y` over the (implicit) input-list
 g                            #  Take the length of the current item
  ©                           #  Store it in the register (without popping)
   ;                          #  Halve it
    ò                         #  Ceil and cast to integer at the same time
     <                        #  Decrease it by 1
      U                       #  Pop and store it in variable `X`
 yη                           #  Take the prefixes of the current string `y`
   ε       }                  #  Map over these prefixes:
    ¤                         #   Take the last character of the string
     ®×                       #   Increase it to a size equal to the length from the register
       «                      #   Append it to the current prefix
        ®>                    #   Take the length from the register, and add 1
          ∍                   #   Shorten the string to that size
 y                            #  Push the string `y` again
  ð«                          #  Append a space
    ©                         #  Store it in the register (without popping)
     ª                        #  Append it at the end of the list of modified prefixes
      ®                       #  Push the string with space from the register again
       Xи                     #  Repeat it `X` amount of times
         ª                    #  Append them to the list
          ˜                   #  Flatten to remove the empty appended list if `X` was 0
           »                  #  Join by newlines
            .º.∊              #  Intersect mirror both horizontally and vertically
                }             # Close outer map
                 ¶«           # Append a newline after each (for the space delimiters)
                   »          # Join everything by newlines
                    .C        # Centralize it horizontally
                              # (too bad a centralize vertically isn't available..)
                      .B      # Split on newlines again
                        €S    # Convert each line to a list of characters
                          ζ   # Zip, swapping rows/columns (with space filler by default)
                           J  # Join the loose characters of every line to a string again
                            » # Join the lines by newlines (and output implicitly)