Diberi huruf alfabet Inggris, tugas Anda adalah membuat alfabet semi-diagonal sebagai input.

Bagaimana cara membangun alfabet Semi-Diagonal?

Deskripsi Singkat : Pertama, Anda mengambil posisi huruf dalam alfabet, P( Pdiindeks 1 di sini). Kemudian, Anda mencetak setiap huruf hingga input (inklusif) pada suatu garis, didahului oleh P-1dan ulangi huruf tersebut P, bersinggungan dengan spasi.

Contoh :

• Mengingat F, program Anda harus menampilkan:

  SEBUAH 
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
  

• Mengingat K, program Anda harus menampilkan:

  SEBUAH
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
        GGGGGGG 
         HHHHHHHH 
          IIIIIIIII 
           JJJJJJJJJJJ 
            KKKKKKKKKKKK 
  

• Mengingat A, program Anda harus menampilkan:

  A
  

Aturan

• Anda dapat memilih huruf kecil atau huruf besar, tetapi itu harus konsisten.

• Anda mungkin memiliki ruang asing sebagai berikut:

  • Satu ruang terdepan yang konsisten (di setiap baris).
  • Baris baru yang membuntuti atau memimpin.
  • Ruang tertinggal.

• Input dan output dapat diambil dengan cara standar apa pun, dan celah default berlaku.

• Anda diizinkan untuk mengeluarkan daftar baris saja, asalkan Anda juga menyediakan versi ascii-art .

• Ini adalah kode-golf , jadi kode terpendek dalam byte menang!

^{Terinspirasi oleh tantangan ini .}

Python 3 , 59 byte

lambda l:[' '*i+'%c '%(i+65)*-~i for i in range(ord(l)-64)]

Cobalah online!

Python 3 , 61 byte

lambda l:[' '*i+-~i*(chr(i+65)+' ')for i in range(ord(l)-64)]

Cobalah online! (tautan ke versi cantik-cetak)

Python 2 , 63 61 59 byte

-2 byte terima kasih kepada Rod. -2 byte terima kasih kepada Felipe Nardi Batista.

i=1
exec"print' '*i+'%c '%(i+64)*i;i+=1;"*(ord(input())-64)

Cobalah online!

C, 89 byte

i,j;f(l){for(i=64;i++<l&&printf("%*c ",i-64,i);puts(""))for(j=i-65;j--;)printf("%c ",i);}

Cobalah online!

PowerShell , 45 42 byte

65..$args[0]|%{" "*$i+++"$([char]$_) "*$i}

Cobalah online!

Mengambil input sebagai karakter literal, kemudian memutar melalui ibukota ke titik itu, setiap iterasi menambahkan jumlah ruang yang sesuai dan kemudian karakter hybrid.

Disimpan 3 byte berkat TessellatingHeckler.

JavaScript (ES6), 85 byte

Bekerja dalam huruf kecil untuk input dan output. Menghasilkan ruang terdepan dan ruang tambahan di setiap baris.

f=(c,k=10,C=k.toString(36),r=s=>`${s} `.repeat(k-9))=>r``+r(C)+(C==c?'':`
`+f(c,k+1))

Demo

f=(c,k=10,C=k.toString(36),r=s=>`${s} `.repeat(k-9))=>r``+r(C)+(C==c?'':`
`+f(c,k+1))

O.innerText = f('m')

<pre id=O>

APL (Dyalog) , 26 byte

Anjuran untuk karakter skalar. Mencetak daftar garis.

(∊⍴∘'',' ',¨⍨⊢⍴⊃∘⎕A)¨⍳⎕A⍳⎕

Cobalah online! (memiliki versi seni ASCII pada satu byte tambahan)

⎕ meminta input

⎕A⍳ temukan ɩ ndex dalam A lphabet

⍳ pertama yang banyak eg ntegers

(... )¨ terapkan fungsi tersembunyi berikut untuk masing-masing:

 ⊃∘⎕A memilih surat surat argument'th dari A lphabet

 ⊢⍴ cyclically membentuk kembali ke panjang argumen

 ' ',¨⍨ menambahkan ruang untuk masing-masing

 ⍴∘'', tambahkan string dengan panjang argumen (diisi dengan spasi)

 ∊ ϵ daftar (ratakan)

Versi seni ASCII hanya memiliki ↑di sebelah kiri; mencampur daftar string ke dalam tabel karakter.

Perl 5 , 31 byte

30 byte kode +1 untuk -l.

print$"x$-,"$_ "x++$-for A..<>

Cobalah online!

Dyalog APL, 38 byte

{↑{(y/' '),(2×y←⎕A⍳⍵)⍴⍵,' '}¨⎕A↑⍨⎕A⍳⍵}

Cobalah online!

Bagaimana?

⎕A↑⍨ - ambil alfabet hingga

⎕A⍳⍵ - karakter input

¨ - untuk masing-masing char

    ⍵,' ' - ambil char dan spasi

    (...)⍴ - membentuk kembali ke

    2×y←⎕A⍳⍵ - Dua kali indeks char di alfabet

    (y/' ') - dan menambahkan ruang indeks-of-char

↑ - lalu ratakan

APL (Dyalog Classic) , 26 byte

{↑{(≠\⍵<⍳3×⍵)\⍵⊃⎕A}¨⍳⎕A⍳⍵}

Cobalah online!

Penjelasan

                      ⍳⎕A⍳⍵  generate indexes up to position of right arg ⍵
{                   }¨       on each index apply function
   (≠\⍵<⍳3×⍵)                generate boolean mask for expansion (each line has a length 3 times its index ⍵, starting with ⍵ blanks and then alternating letter blank)
             \⍵⊃⎕A          expand character in position ⍵
 ↑                            mix result into text matrix

V , 28, 26, 25 , 23 byte ( Bersaing )

¬A[/a
lDÓ./& ò
ò-Ûä$Û>

Cobalah online!

Perhatikan bahwa meskipun saya telah berencana untuk menambahkan fitur-fitur tertentu untuk waktu yang lama, tantangan ini yang meyakinkan saya untuk akhirnya melakukannya.

Output berisi satu ruang terdepan di setiap baris dan satu baris tambahan.

Hexdump:

00000000: ac41 5b2f 1261 0a6c 44d3 2e2f 2620 f20a  .A[/.a.lD../& ..
00000010: f22d dbe4 24db 3e                        .-..$.>

Penjelasan:

¬A[         " Insert 'ABCDEFGHIJKLMNOPQRSTUVWXYZ['
   /        " Search for...
    <C-r>a  "   The input
l           " Move one character to the right
 D          " And delete every character after the cursor
  Ó         " Search for...
   .        "   Any character
    /       " And replace it with...
     & ò    "   That character followed by a space and a newline
ò           " Recursively...
 -          "   Move to the beginning of the next line up
  Ûä$       "   Make *line number* copies of the current line
     Û>     "   And indent this line by *line number* spaces

05AB1E , 10 byte

A¹¡н«ðâƶāú

Cobalah online!

Terima kasih kepada Adnan .

Tambahkan »untuk membuatnya dicetak dalam garis yang terpisah.

R, 94 88 byte

-6 byte terima kasih kepada Giuseppe

function(x,l=LETTERS)for(i in 1:match(x,l))cat(rep(' ',i-1),rep(paste(l[i],' '),i),'\n')}

Tidak Disatukan:

f=function(x,l=letters){
  for(i in 1:which(l==x)){
    A=paste(l[i],' ')
    cat(rep(' ',i-1),rep(A,i),'\n')
  }
}

Haskell, 52 44 byte

f k=[[" ",s:" "]>>=(['A'..s]>>)|s<-['A'..k]]

Mengembalikan daftar garis.

Cobalah online!

f k=                  -- main function is f, input parameter k
  [   |s<-['A'..k]]   -- for each s from ['A'..k]
     >>=              -- map (and collect the results in a single string) the function: 
         (['A'..s]>>) --  replace each element in ['A'..s] with
    [  ,  ]           --  over the list, containing
     " "              --   a single space to get the indent
        s:" "         --   s followed by space to get the letter sequence

Sunting: @ jferard: disimpan tiga byte. Terima kasih!

JavaScript (ES8), 92 byte

c=>(g=n=>n>9?[...g(n-1),`${n.toString(36)} `.repeat(n-=9).padStart(n*3)]:[])(parseInt(c,36))

Menggunakan huruf kecil. Garis memiliki satu ruang utama dan satu tambahan. Mengembalikan array garis.

Cuplikan Tes

let f=

c=>(g=n=>n>9?[...g(n-1),`${n.toString(36)} `.repeat(n-=9).padStart(n*3)]:[])(parseInt(c,36))

;O.innerText=f("k").join`\n`

<pre id=O></pre>

Sekam , 13 byte

z+ḣ∞øzRNC1…'A

Mengambil karakter dalam tanda kutip tunggal sebagai argumen baris perintah, mencetak hasilnya ke STDOUT. Cobalah online!

Penjelasan

Saya mengeksploitasi cara Husk mencetak daftar daftar string: gabungkan daftar dalam dengan spasi dan daftar luar dengan baris baru.

z+ḣ∞øzRNC1…'A  Implicit input, say 'C'
          …'A  Range from A: "ABC"
        C1     Cut into strings of length 1: ["A","B","C"]
     z N       Zip with positive integers
      R        using repetition: x = [["A"],["B","B"],["C","C","C"]]
   ∞ø          The empty string repeated infinitely: ["","","",...
  ḣ            Prefixes: [[],[""],["",""],["","",""],...
z+             Zip with x using concatenation: [["A"],["","B","B"],["","","C","C","C"]]
               Implicitly join each inner list with spaces, join the resulting strings with newlines and print.

05AB1E , 15 14 13 byte

Disimpan 1 byte berkat Adnan

A¹¡н«ƶ€S»¶¡āú»

Cobalah online! atau versi seni Ascii

Penjelasan

A                # push lowercase alphabet
 ¹¡              # split at input
   н             # get the first part
    «            # append the input
     ƶ           # repeat each a number of times corresponding to its 1-based index
      €S         # split each to a list of chars
        »        # join on spaces and newlines
         ¶¡      # split on newlines
           āú    # prepend spaces to each corresponding to its 1-based index
             »   # join on newlines

APL (Dyalog Unicode) , 22 byte ^SBCS

⍕⍪⊢∘⊂\2,.↑⍉⍴⍨⌸⎕a↑⍨⎕a⍳⍞

Cobalah online!

Penggunaan ⎕io←1. Mencetak ruang terkemuka, yang diizinkan.

QBasic, 79 74 72 byte

Terima kasih kepada Taylor Scott untuk penghematan byte (dua kali!)

FOR i=1TO ASC(INPUT$(1))-64
?TAB(i)
FOR j=1TO i
?CHR$(64+i)" ";
NEXT j,i

Gunakan huruf besar. Input dengan penekanan tombol dan tidak bergema ke layar.

Penjelasan

Kami mengulang idari 1posisi huruf pembatas di alfabet (berbasis 1). Untuk masing-masing i, kami pindah ke kolom ilayar menggunakan TAB; kemudian, ikali, kita mencetak ihuruf alfabet diikuti oleh spasi.

Japt -R , 24 23 17 15 byte

Keluaran array, termasuk baris baru terkemuka dan ruang terkemuka & tertinggal di setiap baris.

IòUc ÏçSiXd¹iYç

Menguji

• 1 byte disimpan dengan bantuan dari Oliver dan 6 terima kasih lagi untuknya menunjukkan cara yang lebih baik untuk menghasilkan array awal.

Arang , 18 byte

Ｆ⁺⌕αθ¹«Ｐ×⁺§αι ⁺ι¹↘

Cobalah online!

Braingolf , 65 byte

a#a-# 7-,-~vc<!?>[$_]:$_|&,(.#a-!?.>[# M]1+>[.M# M]:$_!@|v#
&@R);

Cobalah online!

Huruf kecil.

Berisi 1 trailing space di setiap baris, dan trailing newline di akhir output.

C # (.NET Core) , 103 byte

n=>{var i='`';var l="";for(;i<n;l+='\n'){l+="".PadLeft(i++-96);for(int s=96;s++<i;)l+=i+" ";}return l;}

Cobalah online!

JavaScript, 102 94 byte

2 byte disimpan berkat Neil

f=
a=>[...Array(parseInt(a,36)-9)].map((a,b)=>''.padEnd(b).padEnd(b*3+1,(b+10).toString(36)+' '))

console.log(f('k').join`\n`)

Retina , 51 byte

^.
$&$&
}T`L`_L`^.
.
$.`$* $&$.`$* ¶
+`(\w) \B
$&$1

Cobalah online! Penjelasan:

^.
$&$&

Gandakan huruf (pertama).

}T`L`_L`^.

Putar kembali 1 dalam alfabet, atau hapus jika itu duplikat A. Terus menduplikasi dan memutar sampai kita menduplikasi A, pada saat itu penghapusan membatalkan duplikasi dan loop selesai.

.
$.`$* $&$.`$* ¶

Ganti setiap huruf dengan garis dengan huruf yang empuk di kedua sisi.

+`(\w) \B
$&$1

Masukkan duplikat huruf di antara semua pasangan ruang padding di sebelah kanan huruf yang ada.

Haskell , 57 byte

x!'@'=x
x!e=([e]:[' ':r++' ':[last r]|r<-x])!pred e
([]!)

Cobalah online!

Arang , 15 byte

Ｆ…·AＳ«Ｐ⪫Ｅ…@ιι ↘

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

 …·AＳ           Inclusive character range from A to the input
Ｆ    «          Loop over each character
         …@ι    Exclusive range from @ to the current character
        Ｅ   ι   Replace each element with the current character
       ⪫        Join with spaces
      Ｐ         Print without moving the cursor.
              ↘ Move the cursor down and right.

Jika bantalan tambahan legal, ini akan bekerja selama 14 byte:

Ｅ…·?θ⁺× κ⪫× κι

Cobalah online! Tautan adalah untuk mengucapkan versi kode.

Mathematica, 70 byte

(T=Table)[""<>{" "~T~i,T[Alphabet[][[i]]<>" ",i]},{i,LetterNumber@#}]&

huruf kecil

menampilkan daftar

thanx @ngenisis untuk koreksi

Untuk tempat versi ascii-artColumn@ di awal

Excel VBA, 72 Bytes

Fungsi jendela langsung VBE anonim yang mengambil input dari sel A1dan output ke jendela langsung VBE

For i=1To Asc([A1])-64:[B1]=i:?Space(i-1)[REPT(CHAR(B1+64)&" ",B1)]:Next

Pyth , 17 byte

.e+*kd*+bdhk<GhxG

Coba di sini (versi cetak cantik).

Bagaimana cara kerjanya?

• hxG - Mengambil indeks input dalam alfabet huruf kecil.

• <G - Memangkas setiap karakter setelah input dari alfabet.

• .e- Peta yang dihitung. Peta di atas alfabet yang dipangkas dengan indeks sebagai kdan huruf sebagai b.

• *kd- Tambahkan kspasi.

• +bd- b+ a spasi (huruf + spasi saat ini).

• *...hk- Ulangi k+1kali.

• +(...)(...) - Gabungan.

C ++ (gcc) , 164 byte

#include<iostream>
#define f for(int i=0;i<o-'`';i++)
using namespace std;int main(){char c;cin>>c;for(char o='a';o<=c;o++){f cout<<' ';f cout<<o<<' ';cout<<'\n';}}

Usaha pertamaku setelah sekian lama mengintai!

Kode tidak dikumpulkan di bawah:

#include <iostream>

using namespace std;
#define f for (auto i = 0; i < output - '`'; i++)

int main()
{
  char input;

  cin >> input;

  for (char output = 'a'; output <= input; output++)
  {
    f cout << ' ';

    f cout << output << ' ';

    cout << endl;
  }
}

Cobalah online!