Для любой строки выведите ее в форме треугольника, где текст проходит вверх и вниз по каждой диагонали. Например, вход "Hello World"должен вывести:

                    d
                  l  
                r   d
              o   l  
            W   r   d
              o   l  
        o   W   r   d
      l       o   l  
    l   o   W   r   d
  e   l       o   l  
H   l   o   W   r   d
  e   l       o   l  
    l   o   W   r   d
      l       o   l  
        o   W   r   d
              o   l  
            W   r   d
              o   l  
                r   d
                  l  
                    d

Пробел между каждым символом в строке должен быть не менее 1, чтобы поддерживать правильный формат.

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

↗ＥＬθ✂θιＵＥ¹

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

    ↗       Print up and to the right
     ＥＬθ✂θι All suffixes of the input, as a list down and to the right
    ＵＥ¹     Insert blank columns

Впервые я использовал ＵＥкоманду.

05AB1E , 10 8 7 байт

Спасибо Emigna за сохранение 2 байта!

ðâƶ.cðζ

Использует кодировку 05AB1E . Попробуйте онлайн!

Python 2 , 75 байт

s=input()
k=l=len(s)
while k>1-l:k-=1;m=abs(k);print' '*m+' '.join(s[m::2])

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

Рууд сэкономил 3 байта.

C 86 78 73 70 символов

for(int i=1,j=1-n;i=putchar(j*j<i*i&i-j?s[i-1]?:13:32)^13?i+1:++j<n;);

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

объяснение

Наивная реализация: два цикла, заполнение сверху вниз, слева направо (99 байт):

for(int j=1;j<n*2;j++){for(int i=0;i<n;i++)printf("%c ",(i+j)%2&&i+1>=abs(j-n)?s[i]:' ');puts("");}

Здесь put () просто печатает \ n на выходе. Давайте объединим объявления переменных и совместим j ++ с чем-либо (94 байта):

for(int i,j=0;++j<n*2;){for(i=0;i<n;i++)printf("%c ",(i+j)%2&&i>=abs(j-n)?s[i]:' ');puts("");}

Хорошо. Переменная j имеет диапазон 0 ... 2n; пусть это будет в пределах -n ... n, это упрощает математику. Обратите внимание, что логическое выражение справа от && всегда имеет значение 0 или 1. Это означает, что мы можем заменить && на &. 91 байт:

for(int i,j=-n;++j<n;){for(i=0;i<n;i++)printf("%c ",~(i+j)%2&i>=abs(j)?s[i]:' ');puts("");}

И теперь мы поняли, что печатаем лишнее пространство. И да, нам не нужно printf () для печати только одного символа. 86 байт:

for(int i,j=-n;++j<n;){for(i=0;i<n;i++)putchar(~(i+j)%2&i>=abs(j)?s[i]:' ');puts("");}

Даже лучше. Обратите внимание, что условие i * i> = j * j такое же, как i> = abs (j), но короче. Давайте переместим put () в выражение для приращения цикла. И угадайте, что? На самом деле, нам не нужны скобки вокруг i + j. 78 байт:

for(int i,j=-n;++j<n;puts(""))for(i=0;i<n;i++)putchar(i*i>=j*j&~i+j?s[i]:' '); 

Знаете ли вы, что putchar () возвращает напечатанный символ? Давайте использовать XOR для проверки чисел на эквивалентность. Давайте заменим пробел кодом ASCII, 32. Помните, что символ конца строки равен 13. И, наконец: знаете ли вы, что GCC / Clang поддерживает https://en.wikipedia.org/wiki/Elvis_operator ? 73 байта:

for(int i,j=-n;++j<n;)for(i=0;putchar(i*i>=j*j&~i+j?s[i]?:13:32)^13;i++);

Наконец, угадайте что? Нам не нужны две петли. Мы можем заменить уродливый ~ i + j просто ij. 70 байтов:

for(int i=1,j=1-n;i=putchar(j*j<i*i&i-j?s[i-1]?:13:32)^13?i+1:++j<n;);

Будущая работа: изменить направление петли? Это может сэкономить несколько байтов, если все сделано правильно.

SOGL V0.12 , 13 10 9 байтов

ēI*@∑}¹╚H

Это использует функцию, которую я только что добавил , но был задокументирован некоторое время назад.

Попробуй это здесь!
В эту ссылку ,добавляется, потому что это ожидает ввода в стек и {добавляется, потому что в противном случае ,будет выполняться каждый раз в цикле

implicitly start loop over POP
ē            increase the variable E, on first push which will be 0
 I           increase by 1
  *          multiply the current character that many times
   @∑        join with spaces
     }     end loop
      ¹    wrap everything on stack in an array
       ╚   center vertically
        H  rotate counter-clockwise

Haskell , 73 байта

f s|l<-length s-1=[zipWith min s$(' '<$[1..abs x])++cycle"~ "|x<-[-l..l]]

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

Gaia , 16 байт

$:ċ⟪×$§×⟫†€|$¦tụ

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

объяснение

$                 Split into list of chars
 :ċ               Push [1 .. len(input)]
   ⟪×$§×⟫†        Apply this block to corresponding elements of the two lists:
    ×              Repetition
     $             Split into chars
      §×           Join with spaces
          €|      Centre align the rows
            $¦    Split each line into chars
              t   Transpose
               ụ  Join each row with spaces, then join the rows together with newlines

Python 2 , 86 83 байта

-3 спасибо официалам

lambda s,j=' '.join:map(j,zip(*(j(c*-~i).center(len(s)*2)for i,c in enumerate(s))))

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

Желе , 15 байт

;€⁶ṁ"JUz⁶ZUŒBZG

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

Октава, 59 63 58 57 байт

@(s,a=@strjust)a([kron(+a(hankel(s)),[1 0;0 0]) '']',99)'

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

Java, 292 байта (извините)

public class D{
public static void main(String[]r){
String s=r[0];int L=s.length(),n=L*2-1,x=L-1,d=-1,i,j;boolean a=false,o=L%2==1;
for(i=0;i<n;i++){
for(j=0;j<L;j++)System.out.print(j<x||a&&j%2==(o?0:1)||!a&&j%2==(o?1:0)?' ':s.charAt(j));
System.out.println();
x+=d;if(x<0){x=0;d=1;}a=!a;}}}

Haskell , 81 байт

f s|l<-length s=[[last$' ':[s!!i|i>=n,mod(n+i)2<1]|i<-[0..l-1]]|n<-abs<$>[-l..l]]

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

Java (OpenJDK 8) , 116 байт

s->{for(int l=s.length(),i=-l;++i<l;)System.out.printf("%"+l+"s%n",s.substring(i<0?-i:i).replaceAll("(.).","$1 "));}

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

объяснение

s->{                                // Consumer<String> lambda
 for(int l=s.length(),i=-l;++i<l;)  // For each length between l and 1 and back to l, 
  System.out.printf("%"+l+"s%n",    // Print with align to right
    s.substring(i<0?-i:i)           // skip the first |i| characters
     .replaceAll("(.).","$1 ")      // replace every even-positioned character with a space.
   );
}

C ++, 135 байт

Хорошо, вот мой снимок с C ++:

auto f=[&](auto f,int y)->void{
  for(int i{};i<n;i++) putchar(y<0?f(f,y+1?i+1:n-1-i),'\n':i<y||i+y&1?' ':s[i]);
}; f(f,-1); f(f,-2);

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

Haskell , 140 137 байт

(m#n)s=(\(i,x)->' ':(last$"  ":[x:" "|rem i 2==m&&i>n]))=<<zip[0..]s
g s=((++)=<<reverse.tail)$id=<<[[(0#n)s,(1#n)s]|n<-[-1,1..length s]]

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

Сохранено 3 байта спасибо Challenger5

Я не думаю, что это оптимально ...

fпроизводит одну из строк ( m= 0 или 1 по модулю номера строки,n это номер строки)

g интеркалирует «нечетные» и «четные» строки и добавляет к результату зеркало самого себя.

Pyth , 25 байт

j+_Km++*d;@Qdtj;%2>QdUQtK

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

Желе , 18 байт

JrLm€2Ṭ;€0a⁸o⁶ṚŒḄG

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

Mathematica 105 байт

(c=Characters@#;l=Length@c;StringRiffle@Table[If[Abs[j-l]<i&&EvenQ[j+i],c[[i]]," "],{j,1,2l+1},{i,1,l}])&

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

J 54 байта

[:|:|.@i.@#(>@],~' '#~[)"_1[:(,' '&,)/&.>>:@i.@#<@#"0]

Попробуйте онлайн!(обратите внимание, что вывод на TIO имеет новую строку и три пробела, но это не из вызова функции - это, вероятно, то, что интерпретатор J делает автоматически).

Я думаю, что общая идея для решения этой проблемы верна, но есть небольшие вещи, которые я, вероятно, делаю неоптимально, которые добавляют к счету байтов.

Предыдущие варианты

55 байт

<:@+:@#{.[:|:|.@i.@#(],~' '#~[)"_1>:@i.@#(,' '&,)/@#"0]

56 байт

<:@+:@#{.[:|:|.@i.@#(],~' '#~[)"_1#{.[:(,' '&,)//.[:]\.]

объяснение

Это будет разделено на несколько функций. Кроме того, я не был настолько внимателен с последними частями объяснения, поэтому дайте мне знать, если вы хотите более подробное объяснение определенной части, и я могу отредактировать это в.

dup   =. >:@i.@# <@#"0 ]
space =. (,' '&,)/&.>
pad   =. |.@i.@# (>@],~' '#~[)"_1 ]
trans =. |:

• dup дублирует каждый символ столько раз, сколько его индекс (плюс один) в строке
• space вставляет пробелы между каждым символом
• pad дополняет символы нужным количеством пробелов
• trans транспонирует полученную матрицу

Образец звонка:

   trans pad space dup 'abc'
  c
 b 
a c
 b 
  c

дубликат

>:@i.@# <@#"0 ]
>:@i.@#         Indices of each character plus one
      #          Length of the string
   i.            Range [0,length)
>:               Add one
        <@#"0 ] Duplicate each character as many times as it index (plus one)
           "0   For each
          #   ]  Copy the character
>:@i.@#           as many times as it index
        <        Box the result

Результаты помещены в рамку, чтобы предотвратить заполнение J пробелами (поскольку они имеют неравную длину).

Образец звонка:

   dup 'abc'
┌─┬──┬───┐
│a│bb│ccc│
└─┴──┴───┘

Космос

(,' '&,)/&.>
         &.>  For each boxed element
(,' '&,)/      Insert spaces between each

Образец звонка:

   space dup 'abc'
┌─┬───┬─────┐
│a│b b│c c c│
└─┴───┴─────┘

подушечка

|.@i.@# (>@],~' '#~[)"_1 ]
        (>@],~' '#~[)      Pad the right arg with spaces given by the left arg
|.@i.@#                    Indices in reverse order
   i. #                     Range [0,length)
|.                          Reverse

В основном, отступ первого элемента с длиной - 1 пробел, второго с длиной - 2 и т. Д. Также удаляется бокс.

Образец звонка:

   pad space dup 'abc'
  a  
 b b 
c c c

Транспонирование

Это просто встроенная функция, |:которая выполняет транспонирование матрицы.

JavaScript (ECMAScript 6), 161 байт

(s,n=console.log)=>s.split("").map((q,i,a,p)=>n(p=" ".repeat(q=a.length-++i)+a.map((v,j)=>j>=q&&j%2==q%2?a[j]+' ':'').join(''))||p).reverse().map((v,i)=>i&&n(v))

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

Perl 5 , 86 + 2 (-F) = 88 байт

Использовал предложения @ Dom и несколько моих собственных настроек, чтобы уменьшить количество байтов.

for$k(0..$#F){$i=1;$a[$#F+$k]=$a[$#F-$k]=[map$i++<$k|($i+$k)%2?$":$_,@F]}say"@$_"for@a

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

q / kdb +, 55 байт

Решение:

-1(+){{1_a,((2*y)#" ",z),a:x#" "}'[(|)c;1+c:(!)(#)x]x};

Пример:

q)-1(+){{1_a,((2*y)#" ",z),a:x#" "}'[(|)c;1+c:(!)(#)x]x}"Hello World";
          d
         l
        r d
       o l
      W r d
       o l
    o W r d
   l   o l
  l o W r d
 e l   o l
H l o W r d
 e l   o l
  l o W r d
   l   o l
    o W r d
       o l
      W r d
       o l
        r d
         l
          d

Объяснение:

СДЕЛАТЬ. Развернутая версия - 66 байт:

-1 flip{{1_a,((2*y)#" ",z),a:x#" "}'[reverse c;1+c:til count x]x};

Бонус:

Чтобы получить тот же вывод, что и в примере (74 байта):

q)-1(+){1_'raze{(a,((2*y)#" ",z),a:x#" ";(2*y+x)#" ")}'[(|)c;1+c:(!)(#)x]x}"Hello World";
                    d
                  l
                r   d
              o   l
            W   r   d
              o   l
        o   W   r   d
      l       o   l
    l   o   W   r   d
  e   l       o   l
H   l   o   W   r   d
  e   l       o   l
    l   o   W   r   d
      l       o   l
        o   W   r   d
              o   l
            W   r   d
              o   l
                r   d
                  l
                    d