Drucken Sie eine beliebige Zeichenfolge in Form eines Dreiecks aus, in dem der Text entlang jeder Diagonale nach oben und unten verläuft. Zum Beispiel sollte eine Eingabe von "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

Der Abstand zwischen den einzelnen Zeichen in einer Zeile muss mindestens 1 betragen, um das richtige Format beizubehalten.

Kohle , 10 7 Bytes

↗ＥＬθ✂θιＵＥ¹

Probieren Sie es online! Probieren Sie es online! Links führen zur ausführlichen Version des Codes. Erläuterung:

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

Zum ersten Mal musste ich den ＵＥBefehl verwenden.

05AB1E , 10 8 7 Bytes

Vielen Dank an Emigna für das Speichern von 2 Bytes!

ðâƶ.cðζ

Verwendet die 05AB1E- Codierung. Probieren Sie es online!

Python 2 , 75 Bytes

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

Probieren Sie es online!

Ruud sparte 3 Bytes.

C 86 78 73 70 Zeichen

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

Probieren Sie es online!

Erläuterung

Naive Implementierung: Zwei Zyklen, füllen von oben nach unten, von links nach rechts (99 Bytes):

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("");}

Hier druckt puts () nur \ n in die Ausgabe. Lassen Sie uns Variablendeklarationen kombinieren und j ++ mit etwas (94 Bytes) kombinieren:

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("");}

Gut. Die Variable j hat einen Bereich von 0 ... 2n; Lass es in -n ... n sein, das macht die Mathematik einfacher. Beachten Sie, dass der boolesche Ausdruck rechts von && immer den Wert 0 oder 1 hat. Dies bedeutet, dass wir && durch & ersetzen können. 91 Byte:

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

Und jetzt haben wir festgestellt, dass wir einen zusätzlichen Raum drucken. Und ja, wir brauchen printf () nicht, um nur ein einziges Symbol zu drucken. 86 Bytes:

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

Noch besser. Beachten Sie, dass die Bedingung i * i> = j * j dieselbe ist wie i> = abs (j), jedoch kürzer. Lassen Sie uns Puts () in den Inkrement-Ausdruck der Schleife verschieben. Und rate was? Eigentlich brauchen wir die Klammern um i + j nicht. 78 Bytes:

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

Wussten Sie, dass putchar () das gedruckte Zeichen zurückgibt? Verwenden wir XOR, um Zahlen auf Äquivalenz zu testen. Ersetzen wir das Leerzeichen durch den ASCII-Code 32. Denken Sie daran, dass der Code für das Zeilenende 13 ist. Und schließlich: Wussten Sie, dass GCC / Clang https://en.wikipedia.org/wiki/Elvis_operator unterstützt ? 73 Bytes:

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

Raten sie mal was Wir brauchen keine zwei für Schleifen. Wir können hässliches ~ i + j durch nur ij ersetzen. 70 Bytes:

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

Zukünftige Arbeit: Schleifenrichtung ändern? Dies kann bei richtiger Ausführung einige Bytes einsparen.

SOGL V0.12 , 13 10 9 Bytes

ēI*@∑}¹╚H

Dies verwendet eine Funktion, die ich gerade hinzugefügt , aber vor einiger Zeit dokumentiert wurde.

Probieren Sie es hier aus!
In diesem Link ,wird hinzugefügt, weil dies die Eingabe auf dem Stapel erwartet und {hinzugefügt, weil sonst ,jedes Mal in der Schleife ausgeführt würde

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 Bytes

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

Probieren Sie es online!

Gaia , 16 Bytes

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

Probieren Sie es online!

Erläuterung

$                 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 Bytes

-3 danke an officialaimm

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

Probieren Sie es online!

Gelee , 15 Bytes

;€⁶ṁ"JUz⁶ZUŒBZG

Probieren Sie es online!

Oktave, 59 63 58 57 Bytes

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

Probieren Sie es online!

Java, 292 Bytes (Entschuldigung)

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 Bytes

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

Probieren Sie es online!

Java (OpenJDK 8) , 116 Byte

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

Probieren Sie es online!

Erläuterung

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 Bytes

Okay, hier ist meine Aufnahme mit 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);

Probieren Sie es online aus (ideone)!

Haskell , 140 137 Bytes

(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]]

Probieren Sie es online!

Gespeicherte 3 Bytes an Challenger5

Ich finde das nicht optimal ...

ferzeugt eine der Zeilen ( m= 0 oder 1 ist das Modulo der Zeilennummer, nist die Nummer der Zeile)

g interkaliert "ungerade" und "gerade" Linien und fügt dem Ergebnis einen Spiegel seiner selbst hinzu.

Pyth , 25 Bytes

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

Probieren Sie es hier aus.

Jelly , 18 Bytes

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

Probieren Sie es online!

Mathematica 105 Bytes

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

Vielleicht könnte ich noch ein oder zwei Bytes abschneiden, aber der zusätzliche Aufwand für die Zeichenanzahl beim Umgang mit Zeichenfolgen in Mathematica macht einfache Herausforderungen wie diese nicht wettbewerbsfähig.

J, 54 Bytes

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

Probieren Sie es online! (Beachten Sie, dass die Ausgabe auf TIO eine neue Zeile und drei Leerzeichen hat, aber nicht vom Funktionsaufruf stammt - es ist wahrscheinlich genau das, was der J-Interpreter automatisch macht).

Ich denke, die allgemeine Idee, dies zu lösen, ist richtig, aber es gibt kleine Dinge, die ich wahrscheinlich suboptimal mache und die das bytecount erweitern.

Vorherige Varianten

55 Bytes

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

56 Bytes

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

Erläuterung

Dies wird in einige Funktionen aufgeteilt. Außerdem war ich mit den letzten Teilen der Erklärung nicht so gründlich. Lassen Sie mich wissen, ob Sie eine bessere Erklärung für einen bestimmten Teil wünschen, und ich kann diese in bearbeiten.

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

• dup dupliziert jedes Zeichen so oft wie sein Index (plus eins) in der Zeichenfolge
• space Fügt Leerzeichen zwischen die einzelnen Zeichen ein
• pad füllt die Zeichen mit der richtigen Anzahl von Leerzeichen auf
• trans transponiert die resultierende Matrix

Beispielanruf:

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

Dup

>:@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

Die Ergebnisse sind mit einem Kästchen versehen, um zu verhindern, dass J die Enden mit Leerzeichen auffüllt (da sie ungleich lang sind).

Beispielanruf:

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

Platz

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

Beispielanruf:

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

Pad

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

Grundsätzlich füllen Sie das erste Element mit der Länge 1, das zweite mit der Länge 2 usw. auf. Dadurch wird auch der Rahmen entfernt.

Beispielanruf:

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

Transponieren

Dies ist nur die eingebaute Funktion, |:die die Transponierung einer Matrix übernimmt.

JavaScript (ECMAScript 6), 161 Byte

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

Probieren Sie es online!

Perl 5 , 86 + 2 (-F) = 88 Bytes

Benutzte @ Doms Vorschläge und ein paar meiner eigenen Optimierungen, um die Byteanzahl zu senken.

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

Probieren Sie es online!

q / kdb + 55 Bytes

Lösung:

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

Beispiel:

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

Erläuterung:

MACHEN. ungolfed version ist 66 bytes:

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

Bonus:

So erhalten Sie die gleiche Ausgabe wie im Beispiel (74 Byte):

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