Đưa ra một chữ cái của bảng chữ cái tiếng Anh, nhiệm vụ của bạn là xây dựng một bảng chữ cái bán chéo cho đầu vào.

Làm thế nào để xây dựng một bảng chữ cái bán chéo?

Mô tả ngắn gọn : Đầu tiên, bạn lấy vị trí của chữ cái trong bảng chữ cái, P( Pđược lập chỉ mục 1 ở đây). Sau đó, bạn in từng chữ cái cho đến khi đầu vào (bao gồm) trên một dòng, trước P-1và lặp lại Pthời gian chữ cái đó , xen kẽ với khoảng trắng.

Ví dụ :

• Cho F, chương trình của bạn sẽ xuất ra:

  Một 
   BB 
    CCC 
     DDDĐ 
      EEE 
       FFFFFF 
  

• Cho K, chương trình của bạn sẽ xuất ra:

  Một
   BB 
    CCC 
     DDDĐ 
      EEE 
       FFFFFF 
        GGGGGGG 
         HHHHHHHH 
          IIIIIIIII 
           JJJJJJJJJJJ 
            KKKKKKKKKKK 
  

• Cho A, chương trình của bạn sẽ xuất ra:

  A
  

Quy tắc

• Bạn có thể chọn ký tự chữ thường hoặc chữ hoa, nhưng điều đó phải nhất quán.

• Bạn có thể có không gian bên ngoài như sau:

  • Một không gian hàng đầu nhất quán (trên mỗi dòng).
  • Một dòng mới hoặc hàng đầu (s).
  • Không gian lưu trữ.

• Đầu vào và đầu ra có thể được lấy bởi bất kỳ giá trị trung bình tiêu chuẩn nào, và các lỗ hổng mặc định được áp dụng.

• Thay vào đó, bạn được phép xuất một danh sách các dòng, miễn là bạn cũng cung cấp phiên bản nghệ thuật .

• Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte sẽ thắng!

^{Lấy cảm hứng từ thử thách này .}

Python 3 , 59 byte

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

Hãy thử trực tuyến!

Python 3 , 61 byte

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

Hãy thử trực tuyến! (liên kết đến phiên bản in đẹp)

Python 2 , 63 61 59 byte

-2 byte nhờ Rod. -2 byte nhờ Felipe Nardi Batista.

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

Hãy thử trực tuyến!

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

Hãy thử trực tuyến!

PowerShell , 45 42 byte

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

Hãy thử trực tuyến!

Đưa đầu vào dưới dạng char theo nghĩa đen, sau đó lặp lại thông qua các chữ viết hoa đến điểm đó, mỗi lần lặp lại chuẩn bị số lượng không gian thích hợp và sau đó là char \ space hybrid.

Đã lưu 3 byte nhờ TessellatingHeckler.

JavaScript (ES6), 85 byte

Hoạt động trong trường hợp thấp hơn cho cả đầu vào và đầu ra. Xuất ra một không gian hàng đầu và một không gian kéo dài trên mỗi dòng.

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

Bản giới thiệu

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

Nhắc nhở cho nhân vật vô hướng. In danh sách các dòng.

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

Hãy thử trực tuyến! (có phiên bản nghệ thuật ASCII ở một byte bổ sung)

⎕ nhắc nhở cho đầu vào

⎕A⍳ tìm ɩ ndex trong A lph.us

⍳ đầu tiên mà nhiều ɩ ntegers

(... )¨ áp dụng các chức năng ngầm sau đây để mỗi:

 ⊃∘⎕A chọn thư thư argument'th từ Một lphabet

 ⊢⍴ định kỳ định hình lại nó theo chiều dài đối số

 ' ',¨⍨ nối thêm một khoảng trống cho mỗi

 ⍴∘'', thêm vào một chuỗi độ dài đối số (được đệm bằng khoảng trắng)

 ∊ ε nlist (flatten)

Phiên bản nghệ thuật ASCII chỉ có một ↑bên trái; trộn danh sách các chuỗi vào bảng ký tự.

Perl 5 , 31 byte

Mã 30 byte + 1 cho -l.

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

Hãy thử trực tuyến!

APL Dyalog, 38 byte

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

Hãy thử trực tuyến!

Làm sao?

⎕A↑⍨ - lấy bảng chữ cái cho đến khi

⎕A⍳⍵ - ký tự đầu vào

¨ - cho mỗi char

    ⍵,' ' - lấy char và một khoảng trống

    (...)⍴ - định hình lại

    2×y←⎕A⍳⍵ - hai lần chỉ số của char trong bảng chữ cái

    (y/' ') - và thêm vào các chỉ mục của không gian char

↑ - sau đó làm phẳng

APL (Dyalog Classic) , 26 byte

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

Hãy thử trực tuyến!

Giải trình

                      ⍳⎕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 ( Cạnh tranh )

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

Hãy thử trực tuyến!

Lưu ý rằng mặc dù tôi đã có kế hoạch thêm một số tính năng nhất định trong một thời gian dài, thử thách này là điều đã thuyết phục tôi cuối cùng thực hiện nó.

Đầu ra chứa một không gian hàng đầu trên mỗi dòng và một dòng mới.

Hexdump:

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

Giải trình:

¬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¹¡н«ðâƶāú

Hãy thử trực tuyến!

-2 cảm ơn Ad Nam .

Nối »để làm cho nó in trong các dòng riêng biệt.

R, 94 88 byte

-6 byte nhờ Giuseppe

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

Ung dung:

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

Trả về một danh sách các dòng.

Hãy thử trực tuyến!

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

Chỉnh sửa: @jferard: đã lưu ba byte. Cảm ơn!

JavaScript (ES8), 92 byte

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

Sử dụng chữ thường. Dòng có một không gian hàng đầu và một dấu. Trả về một mảng các dòng.

Kiểm tra đoạn trích

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>

Husk , 13 byte

z+ḣ∞øzRNC1…'A

Lấy một ký tự trong dấu ngoặc đơn làm đối số dòng lệnh, in kết quả thành STDOUT. Hãy thử trực tuyến!

Giải trình

Tôi đang khai thác cách Husk in danh sách các danh sách các chuỗi: tham gia các danh sách bên trong với các khoảng trắng và danh sách bên ngoài với các dòng mới.

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

Đã lưu 1 byte nhờ Adnan

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

Hãy thử trực tuyến! hoặc phiên bản nghệ thuật Ascii

Giải trình

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⍳⍞

Hãy thử trực tuyến!

Công dụng ⎕io←1. In một không gian hàng đầu, được phép.

QBasic, 79 74 72 byte

Cảm ơn Taylor Scott vì tiết kiệm byte (hai lần!)

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

Sử dụng chữ hoa. Đầu vào là bằng phím nhấn và không được lặp lại màn hình.

Giải trình

Chúng tôi lặp itừ 1vị trí của chữ cái giới hạn trong bảng chữ cái (dựa trên 1). Đối với mỗi i, chúng tôi di chuyển đến cột icủa màn hình bằng cách sử dụng TAB; Sau đó, ilần, chúng tôi in chữ ithứ của bảng chữ cái theo sau là khoảng trắng.

Japt -R , 24 23 17 15 byte

Xuất ra một mảng, bao gồm một dòng mới hàng đầu và một không gian hàng đầu & dấu trên mỗi dòng.

IòUc ÏçSiXd¹iYç

Kiểm tra nó

• 1 byte được lưu với sự giúp đỡ từ Oliver và thêm 6 byte nhờ anh ta chỉ ra một cách tốt hơn để tạo ra mảng ban đầu.

Than , 18 byte

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

Hãy thử trực tuyến!

Braingolf , 65 byte

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

Hãy thử trực tuyến!

Chữ thường.

Chứa 1 dấu cách trên mỗi dòng và một dòng mới ở cuối đầu ra.

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

Hãy thử trực tuyến!

JavaScript, 102 94 byte

Lưu 2 byte nhờ 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`)

Võng mạc , 51 byte

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

Hãy thử trực tuyến! Giải trình:

^.
$&$&

Nhân đôi chữ cái (đầu tiên).

}T`L`_L`^.

Xoay nó trở lại 1 trong bảng chữ cái hoặc xóa nó nếu nó là một bản sao A. Tiếp tục sao chép và xoay cho đến khi chúng tôi nhân đôi A, tại thời điểm đó, việc xóa sẽ hoàn tác sao chép và vòng lặp hoàn tất.

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

Thay thế mỗi chữ cái bằng một dòng bằng chữ đệm ở cả hai bên.

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

Chèn các chữ cái trùng lặp giữa tất cả các cặp khoảng trắng ở bên phải của các chữ cái hiện có.

Haskell , 57 byte

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

Hãy thử trực tuyến!

Than , 15 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

 …·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.

Nếu phần đệm thêm là hợp pháp, điều này sẽ hoạt động trong 14 byte:

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã.

Toán học, 70 byte

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

chữ thường

đưa ra một danh sách

thanx @ngenisis để sửa chữa

Đối với phiên bản nghệ thuật asciiColumn@ ở đầu

VBA Excel, 72 byte

Hàm cửa sổ tức thời VBE ẩn danh lấy đầu vào từ ô A1và xuất ra cửa sổ ngay lập tức VBE

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

Bình thường , 17 byte

.e+*kd*+bdhk<GhxG

Hãy thử nó ở đây (phiên bản in đẹp).

Cái này hoạt động ra sao?

• hxG - Lấy chỉ số của đầu vào trong bảng chữ cái viết thường.

• <G - Cắt mọi ký tự sau khi nhập từ bảng chữ cái.

• .e- Bản đồ liệt kê. Bản đồ trên bảng chữ cái được cắt xén với các chỉ mục là kvà các chữ cái như b.

• *kd- Nối các kkhoảng trắng.

• +bd- b+ một khoảng trắng (chữ cái hiện tại + dấu cách).

• *...hk- Lặp lại k+1nhiều lần.

• +(...)(...) - Liên kết.

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';}}

Nỗ lực đầu tiên của tôi sau một thời gian dài rình rập!

Mã Ungolfed dưới đây:

#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;
  }
}

Hãy thử trực tuyến!