给定任何字符串，以三角形的形式打印它，其中文本沿每个对角线上下移动。例如，输入的"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])

在线尝试！

Ruud保存了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("");}

在这里，puts（）仅将\ 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）相同，但更短。让我们将puts（）移到for循环增量表达式中。你猜怎么着？实际上，我们不需要围绕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++);

最后，您猜怎么着？我们不需要两个for循环。我们可以用ij代替丑陋的〜i + j。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]]

在线尝试！

盖亚 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感谢Officialaimm

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