Для целей нынешнего испытания «очертить» слово означает последовательно окружить его собственными буквами, начиная с последней, и, наконец, заменить оригинальное слово в центре пробелами:

       oooooo 
       onnnno 
on ->  on  no 
       onnnno
       oooooo

Задача:

Учитывая список слов, состоящий только из строчных и / или прописных английских букв, обведите каждое слово и отобразите все полученные блоки рядом друг с другом по горизонтали, разделив их столбцом из одного пробела, вертикально выровненным по центрам блоков.

Вы можете написать полную программу или функцию.

Входные данные:

Список слов или, если хотите, строка с пробелами или другими символами

Выход:

ASCII-представление блоков для выделенных слов. Ведущие / конечные пробелы разрешены.

Тестовые случаи:

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

Критерии победы:

Самый короткий код в байтах на каждом языке выигрывает. Я буду очень признателен, если вы прокомментируете / объясните свой код и подход.

code-golf ascii-art Гален Иванов
источник

Можем ли мы предположить, что есть хотя бы одно слово?

PurkkaKoodari

@ Pietu1998 Да, всегда будет хотя бы одно слово

Гален Иванов

1

@Kevin Cruijssen Транспонировать?

Гален Иванов

7

Холст , 22 20 байтов

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

Попробуй это здесь!

Объяснение:

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

dzaima
источник

5

Древесный уголь , 35 байт

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

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

ＦＡ«

Цикл по списку ввода.

≔Ｌιθ

Получить длину текущего слова.

Ｍθ↑

Переместитесь в верхний левый угол получившегося контура.

Ｆθ«

Цикл один раз для каждого персонажа.

Ｂ⁻×³θ⊗κ⊕⊗⁻θκ§ικ

Нарисуйте прямоугольник соответствующей высоты, ширины и характера.

↘»

Переместитесь в верхний левый угол следующего поля.

Ｍ⊕⊗θ→

Перейти к следующему плану.

Нил
источник

4

Haskell , ^{188 183 174 171} 167 байт

-9 -13 байтов благодаря Лайкони .

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

Попробуйте онлайн!

овс
источник

\a->and[p a>=p x|x<-f<$>w]может быть \a->all((p a>=).p)$f<$>wи k c=(++[c]).(c:)может быть k c s=c:s++[c].

Лайкони

3

Pyth, 34 33 байта

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

Попробуйте онлайн.

Удаляет целую кучу лишних пробелов, но это разрешено задачей.

объяснение

m… QВыполняет следующие действия для каждого слова dво входных данных Q:
- m\ dсопоставляет слово с x => " ", по существу, создавая список [" ", ..., " "]с таким количеством элементов, сколько у слова есть буквы.
- .iddчередует слово с собой, повторяя буквы слова дважды. _переворачивает эту строку. wordстановится ddrrooww.
- uначинается с G= массива пробелов и применяется следующее с каждой буквой в чередующейся строке в H:
  - *2H повторяет персонаж дважды.
  - jR… GПомещает каждую строку Gмежду парой символов.
  - Cменяет строки и столбцы. Когда эти три шага выполняются дважды с одним и тем же символом H, это очерчивает линии Gс этим символом.
- Теперь у нас есть столбцы для обозначенного слова d. +;добавляет пробел столбец
sвыравнивает массив столбцов для каждого слова и Jсохраняет его в переменной J.
m… JВыполняет следующие действия для каждого столбца выходных данных:
- .[lJd;дополняет обе стороны столбца пробелами, чтобы длина столбца была равна количеству столбцов. Этого всегда достаточно для заполнения столбцов по вертикали.
Cпревращает столбцы в строки и jобъединяет строки с символами новой строки.

Альтернативное решение, 33 байта

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

Попробуйте онлайн.

Обратите внимание, что есть пробел. В основном тот же алгоритм, за исключением только столбцов площадок сверху и затем транспонирования с заполнением пробела.

PurkkaKoodari
источник

3

R 189 байт

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

Попробуйте онлайн!

Сотрудничество между DigEmAll и мной в чате .

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
}

Giuseppe
источник

187 с очевидным псевдонимом

J.Doe

@ J. Делай это вики сообщества, так что не стесняйся редактировать это в :-)

Джузеппе

1

APL (Dyalog Classic) , 57 51 50 байт

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

Попробуйте онлайн!

СПП
источник

1

Stax , 26 25 байт

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

Запустите и отладьте его

рекурсивный
источник

1

05AB1E , 46 байтов

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

Не слишком рад этому, но я рад, что это работает.

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

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

Кевин Круйссен
источник

Наброски слов с их буквами

Задача:

Входные данные:

Выход:

Тестовые случаи:

Критерии победы:

Ответы:

Холст , 22 20 байтов

Древесный уголь , 35 байт

Haskell , ^{188 183 174 171} 167 байт

Pyth, 34 33 байта

объяснение

Альтернативное решение, 33 байта

R 189 байт

APL (Dyalog Classic) , 57 51 50 байт

Stax , 26 25 байт

05AB1E , 46 байтов

Наброски слов с их буквами

Задача:

Входные данные:

Выход:

Тестовые случаи:

Критерии победы:

Ответы:

Холст , 22 20 байтов

Древесный уголь , 35 байт

Haskell , 188 183 174 171 167 байт

Pyth, 34 33 байта

объяснение

Альтернативное решение, 33 байта

R 189 байт

APL (Dyalog Classic) , 57 51 50 байт

Stax , 26 25 байт

05AB1E , 46 байтов

Haskell , ^{188 183 174 171} 167 байт