Diberikan string apa pun, cetak dalam bentuk segitiga di mana teks berjalan naik dan turun di sepanjang setiap diagonal. Misalnya, input dari "Hello World"output harus:

                    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

Ruang antara setiap karakter dalam satu baris harus minimal 1, untuk mempertahankan format yang tepat.

Arang , 10 7 byte

↗ＥＬθ✂θιＵＥ¹

Cobalah online! Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan:

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

Pertama kali saya menggunakan ＵＥperintah.

05AB1E , 10 8 7 byte

Terima kasih kepada Emigna untuk menghemat 2 byte!

ðâƶ.cðζ

Menggunakan penyandian 05AB1E . Cobalah online!

Python 2 , 75 byte

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

Cobalah online!

Ruud menyimpan 3 byte.

C, 86 78 73 70 karakter

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

Cobalah online!

Penjelasan

Implementasi naif: dua siklus, isi dari atas ke bawah, kiri ke kanan (99 byte):

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

Di sini, menempatkan () hanya mencetak \ n ke output. Mari kita gabungkan deklarasi variabel dan gabungkan j ++ dengan sesuatu (94 byte):

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

Baik. Variabel j memiliki kisaran 0 ... 2n; biarkan di dalam -n ... n, ini membuat matematika lebih sederhana. Perhatikan bahwa ekspresi boolean di sebelah kanan && selalu bernilai 0 atau 1. Ini berarti kita dapat mengganti && dengan &. 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("");}

Dan sekarang kami menyadari bahwa kami mencetak ruang ekstra. Dan ya, kita tidak perlu printf () untuk mencetak hanya satu simbol. 86 byte:

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

Bahkan lebih baik. Perhatikan bahwa kondisi i * i> = j * j sama dengan i> = abs (j), tetapi lebih pendek. Mari kita memindahkan put () ke dalam untuk ekspresi kenaikan loop. Dan coba tebak? Sebenarnya, kita tidak perlu kawat gigi di sekitar i + j. 78 byte:

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

Tahukah Anda bahwa putchar () mengembalikan karakter yang telah dicetak? Mari kita gunakan XOR untuk menguji angka untuk kesetaraan. Mari ganti ruang dengan kode ASCII-nya, 32. Ingat kode karakter end-of-line adalah 13. Dan akhirnya: tahukah Anda bahwa GCC / Dentang memang mendukung https://en.wikipedia.org/wiki/Elvis_operator ? 73 byte:

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

Akhirnya, coba tebak? Kami tidak membutuhkan dua untuk loop. Kita bisa mengganti yang jelek ~ i + j hanya dengan ij. 70 byte:

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

Pekerjaan masa depan: mengubah arah loop? Ini mungkin menghemat beberapa byte, jika dilakukan dengan benar.

SOGL V0.12 , 13 10 9 byte

ēI*@∑}¹╚H

Ini menggunakan fitur yang baru saja saya tambahkan , tetapi sudah didokumentasikan beberapa waktu lalu.

Coba di sini!
Dalam tautan ,itu ditambahkan karena ini mengharapkan input pada stack dan {ditambahkan karena jika tidak ,akan dieksekusi setiap kali dalam loop

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 byte

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

Cobalah online!

Gaia , 16 byte

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

Cobalah online!

Penjelasan

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

-3 Terima kasih kepada officialaimm

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

Cobalah online!

Jelly , 15 byte

;€⁶ṁ"JUz⁶ZUŒBZG

Cobalah online!

Oktaf, 59 63 58 57 byte

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

Cobalah online!

Java, 292 byte (maaf)

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 byte

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

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

Cobalah online!

Penjelasan

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 byte

Oke, ini foto saya dengan 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);

Cobalah Online (ideone)!

Haskell , 140 137 byte

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

Cobalah online!

Disimpan 3 byte byte ke Challenger5

Saya tidak berpikir itu optimal ...

fmenghasilkan salah satu garis ( m= 0 atau 1 adalah modulo dari nomor baris,n adalah jumlah baris)

g interkalasi baris "ganjil" dan "genap", dan tambahkan ke cermin hasil itu sendiri.

Pyth , 25 byte

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

Coba di sini.

Jelly , 18 byte

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

Cobalah 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}])&

Mungkin saya bisa mengurangi satu atau dua byte lagi, tetapi jumlah karakter di atas berurusan dengan string di Mathematica membuat tantangan sederhana seperti ini tidak kompetitif.

J, 54 byte

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

Cobalah online!(perhatikan bahwa output pada TIO memiliki baris baru dan tiga spasi, tapi itu bukan dari pemanggilan fungsi - itu mungkin hanya apa yang dilakukan penerjemah J secara otomatis).

Saya pikir ide umum untuk menyelesaikan ini benar, tetapi ada hal-hal kecil yang mungkin saya lakukan secara kurang optimal yang menambah bytecount.

Varian sebelumnya

55 byte

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

56 byte

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

Penjelasan

Ini akan dibagi menjadi beberapa fungsi. Juga, saya tidak teliti dengan bagian terakhir dari penjelasan, jadi beri tahu saya jika Anda ingin penjelasan yang lebih baik untuk bagian tertentu dan saya dapat mengeditnya.

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

• dup menduplikasi setiap karakter sebanyak indeksnya (ditambah satu) dalam string
• space menyisipkan spasi antara masing-masing karakter
• pad mengisi karakter dengan jumlah ruang yang tepat
• trans transposes matriks yang dihasilkan

Contoh panggilan:

   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

Hasilnya dikotak untuk mencegah J dari mengisi ujungnya dengan spasi (karena panjangnya tidak merata).

Contoh panggilan:

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

Ruang

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

Contoh panggilan:

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

Bantalan

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

Pada dasarnya, pad elemen pertama dengan panjang - 1 spasi, yang kedua dengan panjang - 2, dll. Ini juga menghilangkan tinju.

Contoh panggilan:

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

Mengubah urutan

Ini hanya fungsi built-in |:yang mengambil transpose dari sebuah matriks.

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

Cobalah online!

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

Menggunakan saran @ Dom dan beberapa tweak saya sendiri untuk menurunkan jumlah byte.

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

Cobalah online!

q / kdb +, 55 byte

Larutan:

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

Contoh:

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

Penjelasan:

MELAKUKAN. versi takung adalah 66 byte:

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

Bonus:

Untuk mendapatkan hasil yang sama dengan contoh (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