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

Подиумы представлены ниже:

     @---@
     | @ |
@---@| | |
| @ || | |
| | || | |@---@
| | || | || @ |

Это станет основой для этой проблемы. Следующий шаг - сделать подиумы достаточно широкими, чтобы в них поместились люди (для печати ASCII-строки). Однако мы хотим обеспечить эстетическую красоту (потому что это фантастическая возможность фотографирования), поэтому каждый подиум должен быть одинаковой ширины, а ширина должна быть нечетной. Кроме того, люди (очевидно) захотят стоять в центре подиума, поэтому струны должны быть отцентрированы как можно лучше. (Вы можете выровнять по левому или правому краю, и это не обязательно должно быть согласованным.) Вышеупомянутые подиумы имеют минимальный размер и считаются 3широкими.

Например, учитывая входные данные, ["Tom", "Ann", "Sue"]представляющие первое, второе и третье места соответственно, выведите следующие подиумы:

      Tom
     @---@
 Ann | @ |
@---@| | |
| @ || | | Sue
| | || | |@---@
| | || | || @ |

Однако, если Anneвместо этого Annнам понадобится перейти к следующему размеру 5и отцентрировать строки как можно лучше. Здесь я выровняю так, чтобы «лишняя» буква Anneбыла слева от центра, но вы можете выбрать, на какую сторону выровнять.

         Tom
       @-----@
 Anne  |  @  |
@-----@|  |  |
|  @  ||  |  |  Sue
|  |  ||  |  |@-----@
|  |  ||  |  ||  @  |

Давайте перейдем к более длинным именам. Как насчет ["William", "Brad", "Eugene"]:

          William
         @-------@
  Brad   |   @   |
@-------@|   |   |
|   @   ||   |   | Eugene
|   |   ||   |   |@-------@
|   |   ||   |   ||   @   |

Здесь мы можем видеть, что Bradимеет много пробелов, Eugeneменьше, и Williamподходит как раз.

Для более длинного теста, как насчет ["A", "BC", "DEFGHIJKLMNOPQRSTUVWXYZ"]:

                                     A
                         @-----------------------@
           BC            |           @           |
@-----------------------@|           |           |
|           @           ||           |           | DEFGHIJKLMNOPQRSTUVWXYZ
|           |           ||           |           |@-----------------------@
|           |           ||           |           ||           @           |

Наконец, у нас есть наименьшее возможное значение, например ["A", "B", "C"]:

       A
     @---@
  B  | @ |
@---@| | |
| @ || | |  C
| | || | |@---@
| | || | || @ |

• Вход и выход могут быть заданы любым удобным способом .
• Вход гарантированно не пустой (т. Е. Вы никогда не получите ""в качестве имени).
• Вы можете распечатать его в STDOUT или вернуть как результат функции.
• Допустимы либо полная программа, либо функция.
• Любое количество посторонних пробелов является приемлемым, при условии, что символы выстраиваются соответствующим образом.
• Стандартные лазейки запрещены.
• Это код-гольф, поэтому применяются все обычные правила игры в гольф, и выигрывает самый короткий код (в байтах).

JavaScript (ES8), 196 байт

a=>`141
101
521
031
236
330
332`.replace(/./g,n=>[...`@-@   |@||||`.substr(n*3,3)].join(' -'[+!+n].repeat(m/2))||a[n-=4].padStart(m+l[n]+3>>1).padEnd(m+3),m=Math.max(2,...l=a.map(s=>s.length))&~1)

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

Groovy , 187 , 176 , 156 , 150 байтов

f={n->m=n*.size().max()|1;h=' '*(m/2);'30734715746756276647665'*.toLong().sum{(n*.center(m+2)+[' '*(m+2),"@${'-'*m}@","|$h@$h|","|$h|$h|",'\n'])[it]}}

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

(примечание: интерпретатор tio groovy не может обрабатывать списки индексирования с использованием значений Long, хотя groovy 2.5.6 может. Таким образом, *.toShort()вместо ответа tio используется *.toLong()байт)

Определяет замыкание, fкоторое может быть вызвано через:

println(f(['tom','ann','sue']))

где fвозвращает строку.

Объяснение:

Разблокировав код, мы имеем:

f={n->
  m=n*.size().max()|1
  h=' '*(m/2)
  a=n*.center(m+2)+[' '*(m+2),"@${'-'*m}@","|$h@$h|","|$h|$h|",'\n']
  '30734715746756276647665'*.toLong().sum{a[it]}
}

• f={n-> - определить замыкание f одним параметром n
• m=n*.size().max()|1 - найти максимальное имя len, двоичное или нечетное число
• h=' '*(m/2) - h будет содержать напольные (м / 2) пространства, используемые позже
• a=...- создает список кодировки с элементами:
  • индексы 0,1,2 - имена, центрированные по макс. лен
  • индекс 3 - m + 2 пробела
  • Индекс 4 - @---@шаблон, дополненный по длине
  • Индекс 5 - | @ |шаблон, дополненный к лен
  • Индекс 6 - | | |шаблон, дополненный к лен
  • индекс 7 - новая строка
• '307...'*.toLong().sum{a[it]}- использовать индикаторы в списке кодирования для построения результата. .sumиспользует тот факт, что строка + строка в Groovy является действительным.
• обратите внимание, что выражение '3073...'*.toLong()использует *.оператор распространения для вызова toLong()каждого символа, возвращая список чисел.
• обратите внимание в ответе переменная aбыла вставлена, nelines удалены и т. д.

Холст , 45 байтов

ｒ３５１⁰｛|＊@；∔；Ｊ└ｌ２Ｍ２％±├ ××ｌ⇵╷-×└＋-α∔ｋ＋│∔⇵；｝┐＋＋⇵

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

Объяснение:

r    Center the input, preferring left. Converts to an ASCII-art object
     which pads everything with spaces. This is the bulk of the magic.

 251⁰{ .... }            for each number in [2, 5, 1]:
      |*                 repeat "|" vertically that many times
        @;∔              prepend an "@" - a vertical bar for later
           ;             swap top 2 stack items - put the centered art on top
            J            push the 1st line of it (removing it from the art)
             └           order the stack to [remaining, "@¶|¶|..", currentLine]
              l          get the length of the current line
               2M        max of that and 2
                 2%      that % 2
                   ±├    (-that) + 2
                      ×× prepend (-max(len,2)%2) + 2 spaces
l                 get the length of the new string
 ⇵╷               ceil(len / 2) -1
   -×             repeat "-" that many times - half of the podiums top
     └            order stack to [art, currLine, "@¶|¶|..", "----"]
      +           append the dashes to the vertical bar = "@-----¶|¶|.."
       -α∔        vertically add "-" and the original vertical bar - "-¶@¶|¶|.."
          k       remove the last line of that to make up for the middles shortness
           +      and append that horizontally - half of the podium without the name
            │     palindromize the podium
             ∔    and prepend the name
              ⇵   reverse vertically so the outputs could be aligned to the bottom
               ;  and get the rest of the centered input on top
Finally, 
┐     remove the useless now-empty input
 ++   join the 3 podium parts together
   ⇵  and undo the reversing

Злоупотребления "и оно не должно быть последовательным", что делает его довольно непонятным.

Python 2 , 197 190 байт

n=input()
w=max([3]+map(len,n))
w+=~w%2;W=w+2
S=('{:^%d}'%w).format
x,y,s='@| '
a,b,c=map(S,n);A,B,C=x+'-'*w+x,y+S(x)+y,y+S(y)+y
for l in-~W*s+a,s*W+A,s+b+s+B,A+C,B+C+s+c,C+C+A,C+C+B:print l

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

_{-6 байт, благодаря Эндрю Дунай}

Python 2 , 157 байт

a=input()
i=7
while i:print''.join(([a[k/2]]+list('-@||||    '))[7-i-k].center(max(map(len,a))|1,'- '[i+k!=6]).join('@ |'[cmp(i+k,6)]*2)for k in(2,0,4));i-=1

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

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

≔÷⌈ＥθＬι²ηＦ³«Ｊ×ι⁺³⊗η⊗﹪⁻¹ι³⟦◧§θι⁺⊕η⊘⊕Ｌ§θι⟧≔⁻⁷ⅉιＰ↓ι@ηＰ↓ιＰ↓@@¹ηＰ↓ι@

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

≔÷⌈ＥθＬι²η

Подсчитайте количество мест в каждой половине подиума.

Ｆ³«

Зациклиться на каждом месте. Обратите внимание, что входные данные должны быть в порядке 2, 1, 3.

Ｊ×ι⁺³⊗η⊗﹪⁻¹ι³

Положение в начале строки, которая будет иметь текст.

⟦◧§θι⁺⊕η⊘⊕Ｌ§θι⟧

Выведите текст с достаточным левым отступом для центрирования.

≔⁻⁷ⅉι

Получить высоту подиума.

Ｐ↓ι@ηＰ↓ιＰ↓@@¹ηＰ↓ι@

Нарисуйте подиум.

Альтернативный подход, также 63 байта:

≔÷⌈ＥθＬι²ηＦ³«Ｊ×ι⁺³⊗η⊗﹪⁻¹ι³⟦◧§θι⁺⊕η⊘⊕Ｌ§θι⪫@-@×-η⟧Ｅ⁻⁷ⅉ⪫⪫||§|@¬κ× η

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

≔÷⌈ＥθＬι²η

Подсчитайте количество мест в каждой половине подиума.

Ｆ³«

Зациклиться на каждом месте. Обратите внимание, что входные данные должны быть в порядке 2, 1, 3.

Ｊ×ι⁺³⊗η⊗﹪⁻¹ι³

Положение в начале строки, которая будет иметь текст.

⟦◧§θι⁺⊕η⊘⊕Ｌ§θι

Выведите текст с достаточным левым отступом для центрирования.

⪫@-@×-η⟧

Также выведите верхнюю часть подиума, вставив -s между символами строки, @-@чтобы получить правильную ширину.

Ｅ⁻⁷ⅉ⪫⪫||§|@¬κ× η

Напечатайте оставшуюся часть подиума, вставив |соответствующие символы, за исключением того, что средний символ - это @буква в первом ряду.

R 308 302 299

-6 байт благодаря @JAD
-3 байт благодаря @Guiseppe, теперь мне меньше 300

function(a){i=max(1,nchar(a)%/%2)
e=2*i+1
`~`=rep
g=' '
s=g~e+2
b='@'
p='|'
t=c(b,'-'~e,b)
x=c(p,g~i,b,g~i,p)
h=sub(b,p,x)
a=lapply(a,function(q){r=nchar(q);l=(e-r)/2+1;if(r%%2<1)c(g~l,q,g~l+1)else c(g~l,q,g~l)})
cat(s,a[[1]],s,s,t,s,a[[2]],x,s,t,h,s,x,h,a[[3]],h,h,t,h,h,x,fill=length(t)*3,sep='')}

Возможно, есть лучший способ создать макет; Я должен попробовать, какие варианты у меня есть для фреймов данных.

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

Чистый , 209 байт

import StdEnv,Data.List
k=[' @|||||']
$l#m=max(maxList(map length l))3/2*2+1
=flatlines(transpose[(spaces(n*2)++g)%(0,6)\\n<-[1,0,2],g<-[k:[[c,'-':tl if(i==m/2)k['  '..]]\\c<-cjustify m(l!!n)&i<-[0..]]]++[k]])

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

Python 2 , 188 байт

a,b,c=l=input()
s=max(map(len,l))/2or 1
A='@'+'--'*s+'-@'
D=(' '*s).join
C=D('|@|')
D=D('|||')
d=str.center
S=s*2+3
for l in' '*S+d(a,S),' '*S+A,d(b,S)+C,A+D,C+D+d(c,S),D+D+A,D+D+C:print l

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

-5 спасибо TFeld .

PHP, 147 байт

Гольф на 93 байта от моей первоначальной идеи, прямой <?=:

for(;~$v=_616606256046543440445[++$i];)echo$b="@   || "[$v],str_pad(($v&4?"|@":$argv)[$v&3],max(array_map(strlen,$argv))," -"[!$v],2),$b,"
"[$i%3];

принимает имена из аргументов командной строки. Запустите -nrили попробуйте онлайн .
Требуется PHP 7; выдает предупреждения в PHP 7.2 (и позже, предположительно). См. TiO для исправления +5 байт.

отображение:

0:@---@     = top border
1,2,3       = $argv with spaces
4: "| | |"  = default
5: "| @ |"  = below top
6: "     "  = empty

сломать:

for(;~$v=_616606256046543440445[++$i];)echo # loop through map:
    $b="@   || "[$v],                       # print left border
    str_pad(                                # print padded string:
        ($v&4?"|@":$argv)[$v&3],                # string to be padded
        max(array_map(strlen,$argv)),           # pad length = max argument length
        " -"[!$v],                              # pad with: dashes if top border, spaces else
        2                                       # option: center text (pad on both sides)
    ),
    $b,                                     # print right border
    "\n"[$i%3]                              # add linebreak every three items
;

Прединкремент для $iспасает меня от любых хитростей для перевода строки.
Бланк для 6также может быть пустым; так я и сделал.
Но использование $argv[0]для верхней границы строки -было самым хорошим гольфом когда-либо. (и сохранил 9 байтов!)

Go, 436 байт

Го для гольфа ужасно. Но:

package main;import ("fmt";"os");func main(){;z:=os.Args;f:=3;for i:=1;i<4;i++{;if len(z[i])>f{;f=len(z[i]);};};f+=1-f%2;p:=(f-1)/2+1;b:="@";for j:=0;j<f;j++{;b+="-";};b+="@";x:=fmt.Sprintf("|%*v%*v",p,"@",p,"|");y:=fmt.Sprintf("|%*v%[1]*v",p,"|");fmt.Printf("%*v%*v\n%*v%v\n%*v%*v\n%v%v\n%v%v%*v\n%v%v%v\n%v%v%v",f+2,"",p+1+len(z[1])/2,z[1],f+2,"",b,p+1+len(z[2])/2,z[2],2*f+3-p-len(z[2])/2,x,b,y,x,y,p+1+len(z[3])/2,z[3],y,y,b,y,y,x)}

Сломано:

package main
import (
  "fmt"
  "os"
)
func main() {
  z:=os.Args
  f:=3
  for i:=1;i<4;i++{
    if len(z[i])>f{
      f=len(z[i])
    }
  }
  f+=1-f%2
  p:=(f-1)/2+1
  b:="@"
  for j:=0;j<f;j++{
    b+="-"
  }
  b+="@"
  x:=fmt.Sprintf("|%*v%*v",p,"@",p,"|")
  y:=fmt.Sprintf("|%*v%[1]*v",p,"|")

  fmt.Printf("%*v%*v\n%*v%v\n%*v%*v\n%v%v\n%v%v%*v\n%v%v%v\n%v%v%v",
  f+2,"",p+1+len(z[1])/2,z[1],
  f+2,"",b,
  p+1+len(z[2])/2,z[2],2*f+3-p-len(z[2])/2,x,
  b,y,
  x,y,p+1+len(z[3])/2,z[3],
  y,y,b,y,y,x)
}

Java 8, 399 394 373 байта

Это решение, вероятно, слишком длинное, но это решение :)

static String r(String[]p){String s="";int l[]=new int[]{p[0].length(),p[1].length(),p[2].length()},m=Math.max(l[0],Math.max(l[1],l[2]))+2,i,q,j,a,k,t;if(m%2==0)m++;if(m==3)m=5;for(i=0;i<7;i++){for(q=0;q<3;q++)for(j=0;j<m;j++){a=(2*q+1)%3;k=2*a;t=(m-l[a])/2;s+=i==k?j>=t&j<t+l[a]?p[a].charAt(j-t):" ":i==k+1?j%(m-1)==0?"@":"-":i>=k+2?j%(m-1)==0?"|":j==m/2?i==k+2?"@":"|":" ":" ";}s+="\n";}return s;}

Сохранено 5 байт путем прямой итерации по порядку (a = 1,0,2 вместо q = 0,1,2; a = f (q))

static String r(String[]p){String s="";int l[]=new int[]{p[0].length(),p[1].length(),p[2].length()},m=Math.max(l[0],Math.max(l[1],l[2]))+2,i,j,a,k,t;if(m%2==0)m++;if(m==3)m=5;for(i=0;i<7;i++){for(a=1;a<4;a=a==1?0:a+2)for(j=0;j<m;j++){k=2*a;t=(m-l[a])/2;s+=i==k?j>=t&j<t+l[a]?p[a].charAt(j-t):" ":i==k+1?j%(m-1)==0?"@":"-":i>=k+2?j%(m-1)==0?"|":j==m/2?i==k+2?"@":"|":" ":" ";}s+="\n";}return s;}

Сохранено 21 байт благодаря @KevinCruijssen:

static String r(String[]p){String s="";int l[]=new int[3],m=0,i,j,a,k,t;for(String x:p)l[m++]=x.length();m=Math.max(l[0],Math.max(l[1],l[2]))+2;m+=m%2<1?1:m==3?2:0;for(i=0;i<7;i++,s+="\n")for(a=1;a<4;a=a==1?0:a+2)for(j=0,k=2*a,t=(m-l[a])/2;j<m;j++)s+=i==k?j>=t&j<t+l[a]?p[a].charAt(j-t):" ":i==k+1?j%~-m<1?"@":"-":i>=k+2?j%~-m<1?"|":j==m/2?i==k+2?"@":"|":" ":" ";return s;}

Как предложил @KevinCruijssen, можно было бы использовать varвместо StringJava 10+ и сохранить несколько дополнительных байтов. Я не делаю этого по той простой причине, что у меня еще нет Java 10: D также можно использовать лямбды. Но это только уменьшит количество байтов, если мы не будем присваивать его Function<String[],String>переменной.

В развернутом виде:

static String r(String[]p){
    String s=""; //The string that will be returned
    int l[]=new int[3], //An array containing the lengths of our three names
            m=0, //tmp variable for filling l
            i,j,a,k,t; //some declarations to save a few bytes lateron
    for(String x:p) l[m++]=x.length();
    m=Math.max(l[0],Math.max(l[1],l[2]))+2;
    m+=m%2<1? //ensure odd length of the podests
        1
        :m==3?2:0; //ensure the length is at least 3 (in my code, m is the length of the podests + 2)
    for(i=0;i<7;i++,s+="\n") //iterate by row
        for(a=1;a<4;a=a==1?0:a+2) //iterate by place: a=1,0,2
            for(j=0,k=2*a,t=(m-l[a])/2;j<m;j++) //iterate by column
                //k is the row number from top in which the a-th name goes
                //t is the column at which the name starts
                //now, append the right char:
                s+=i==k? //write the name
                    j>=t&j<t+l[a]?
                        p[a].charAt(j-t)
                        :" "
                    :i==k+1? //write the top of the podest ("@---@")
                        j%~-m<1?
                            "@"
                            :"-"
                    :i>=k+2? //write the bottom of the podest ("|  |@  |")
                        j%~-m<1? //the left and right edge of the podest
                            "|"
                            :j==m/2? //the center of the podest
                                i==k+2? //are we at the first row of the bottom?
                                    "@" //the case where we have to write "| @ |"
                                    :"|" //the case "| | |"
                                :" "
                        :" "
                ;
    return s;
}

Входные данные должны быть заданы как String-array длины 3. Пример выглядит так:

public static void main(String[] args){
    System.out.print(r(new String[]{"Anthony", "Bertram", "Carlos"}));
}

Выход:

          Anthony          
         @-------@         
 Bertram |   @   |         
@-------@|   |   |         
|   @   ||   |   | Carlos  
|   |   ||   |   |@-------@
|   |   ||   |   ||   @   |

C (GCC) 302 293 292 289 287 байт

-6 байт благодаря потолку

#define P(h,n)r=w+2-L[n];i/h?printf("%*s%*s%*s",-~r/2,D,L[n],i>h?D:N[n],r/2,D):printf(~i/h?"@%s@":"|%*s%c%*s|",~i/h?D+1:w/2,D,i>h-3?64:'|',w/2,D);
f(int**N){char L[3],w=3,i=3,r,D[99]={};for(;i--;)w=w<(L[i]=strlen(N[i]))?L[i]|1:w;memset(D+1,45,w);for(i=7;i--;puts(D)){P(4,1)P(6,0)P(2,2)}}

Запустите это здесь

Разоблачено и объяснено (технически у вас не может быть комментариев после обратной косой черты в макросах, так что это не запустится)

#define P(h,n)\
    r=w+2-L[n];\ //get leftover width
    i/h?\ //if i >= h
        printf("%*s%*s%*s",-~r/2,D,L[n],i>h?D:N[n],r/2,D):\//if too high print all spaces, otherwise center the name
        printf(~i/h?"@%s@":"|%*s%c%*s|",~i/h?D+1:w/2,D,i>h-3?64:'|',w/2,D);
//if (i == h - 1) print top row using D calculated if row right below top, else print '@'(64) in center, otherwise '|'
f(int**N){
    char
        L[3],//lengths of each string
        w=3,//width (init to minimum)
        i=3,//index, used in for loops
        l,//left padding
        r,//right padding
        D[99]={};//string of '-' of correct length (max 99) but first char is null for empty string
    for(;i--;)//i was set to 3 before, i will be {2,1,0}
        w=w<(L[i]=strlen(N[i]))?//set length to str len and compare to longest width so far
            L[i]|1://set it to length if longer, but make sure it is odd
            w;//do not replace
    memset(D+1,45,w); //set the first w bits of D to '-', leaves a null terminator
    for(i=7;i--;puts(D)){//i will be {6...0}
        P(4,1)//print second place, 4 high
        P(6,0)//print first place, 6 high
        P(2,2)//print thrid place, 2 high
    }
}

Вот код вызова

int main()
{
  char* N[3] = {"Tom", "Anne", "Sue"} ;
  f(N);
}

и вывод

         Tom         
       @-----@       
  Anne |  @  |       
@-----@|  |  |       
|  @  ||  |  |  Sue  
|  |  ||  |  |@-----@
|  |  ||  |  ||  @  |

PowerShell для Windows, 231 223 байта

param($a)$w=($a|% le*|sort)[-1]
if(3-gt$w){$w=3}$w+=1-$w%2
0..6|%{$r=$_
-join($a|%{$m=' -'[5-eq($o=$r+2*(++$i%3))]
$e='     @|||||'[$o]
$x=(,''*4+$_,'','@'+,'|'*4)[$o]
"$e$($x|% *ft(($x.Length+$w)/2-.1)$m|% *ht $w $m)$e"})}

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

Ввод массив @('second','first','third'). Развернутая версия:

param($arr)
$width=($arr|% length|sort)[-1]
if(3-gt$width){$width=3}
$width+=1-$width%2

0..6|%{ $row=$_                         # 7 rows
    -join($arr|%{                       # 3 joined columns. Each column array contains 11 lines.
        $offset = $row+2*(++$i%3)       # (2,4,0) -> offset in column array #   0:
        $middle = ' -'[5-eq$offset]                                         #   1:
        $edge   = '     @|||||'[$offset]                                    #   2:
        $center = ('','','','',$_,'','@','|','|','|','|')[$offset]          #   3:
                                                                            #   4:  name
        # pad $x to a center                                                #   5: @---@
        $center = $center|% PadLeft (($center.Length+$width)/2-.1) $middle  #   6: | @ |
        $center = $center|% PadRight $width $middle                         #   7: | | |
                                                                            #   8: | | |
        # add the $edge                                                     #   9: | | |
        "$edge$center$edge"                                                 #  10: | | |
    })
}

Stax , 43 байта

¿⌐cF◄àë+±√¼∙]╔5B\d☺↨m█ewτ─º╞═ó○♣zG-█K↨ÄV┐§x

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