任意の文字列を指定して、テキストが各対角線に沿って上下に移動する三角形の形式で印刷します。たとえば、の入力は次"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バイト

2バイトを節約してくれたEmignaに感謝します！

ðâƶ.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;);

オンラインでお試しください！

説明

単純な実装：2サイクル、上から下、左から右（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("");}

そして今、私たちは余分なスペースを印刷していることに気付きました。そして、1つのシンボルを印刷するために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++);

最後に、何を推測しますか？2つのforループは必要ありません。い〜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]]

オンラインでお試しください！

ガイア、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

パイソン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]]

オンラインでお試しください！

Challenger5に3バイトのthanlsを保存しました

私はそれが最適だとは思わない...

f行の1つを生成します（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}])&

別のバイトを1つまたは2つ削ることもできるかもしれませんが、Mathematicaで文字列を処理する際の文字数のオーバーヘッドにより、このような非競争的な単純な課題が生じます。

J、54バイト

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

オンラインでお試しください！（TIOの出力には改行と3つのスペースがありますが、これは関数呼び出しからではなく、Jインタープリターが自動的に実行するものであることに注意してください）。

これを解決するための一般的なアイデアは正しいと思いますが、バイトカウントに追加している、おそらく次善の方法で行っている小さなこともあります。

以前の亜種

55バイト

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

56バイト

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

説明

これはいくつかの機能に分割されます。また、説明の後半部分については徹底的ではなかったので、特定の部分についてより良い説明が必要な場合はお知らせください。編集することができます。

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

• dup 文字列内のインデックス（プラス1）と同じ回数だけ各文字を複製します
• 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番目に長さ-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

説明：

TODO。改変されていないバージョンは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