Lấy cảm hứng từ bài viết này . Đối với những người đánh dấu câu hỏi này là một bản sao, tôi khuyên bạn nên đọc câu hỏi để thấy rằng câu hỏi của tôi là một sửa đổi của câu hỏi được liên kết. Một liên kết không yêu cầu đầu vào và chỉ in bảng chữ cái theo đường chéo.

Các thách thức

Đưa ra một đầu vào giữa 1-26, in bảng chữ cái theo đường chéo, nhưng bắt đầu in theo chiều dọc ở chỉ mục của đầu vào đã cho.

Ví dụ

Đưa ra đầu vào:

16

Chương trình của bạn sẽ xuất ra:

a
 b
  c
   d
    e
     f
      g
       h
        i
         j
          k
           l
            m
             n
              o
               p
               q
               r
               s
               t
               u
               v
               w
               x
               y
               z

Đầu vào:

4

Đầu ra:

a
 b
  c
   d
   e
   f
   g
   h
   i
   j
   k
   l
   m
   n
   o
   p
   q
   r
   s
   t
   v
   w
   x
   y
   z

Đầu vào:

1

Đầu ra:

a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z

Đầu vào:

26

Đầu ra:

a
 b
  c
   d
    e
     f
      g
       h
        i
         j
          k
           l
            m
             n
              o
               p
                q
                 r
                  s
                   t
                    u
                     v
                      w
                       x
                        y
                         z

Chấm điểm

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất trong mỗi ngôn ngữ sẽ thắng.

Chúc may mắn!

Than , 9 byte

↘✂β⁰Ｎ↓✂βη

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

Làm thế nào nó hoạt động

↘✂β⁰Ｎ↓✂βη
 ✂β⁰Ｎ         the alphabet from position 0 to the input
↘               print diagonally, down and to the right
        ✂βη    the alphabet starting from the position of the input
       ↓        print downwards

Giải pháp này không còn hoạt động trong phiên bản Char than hiện tại (rất có thể là do sửa lỗi), nhưng vấn đề được giải quyết trong 10 byte với ↘✂β⁰Ｎ↓✂βＩθ.

05AB1E , 11 byte

AvNI<‚Wysú,

Lần đầu tiên thử 05AB1E, vì vậy tôi mở các mẹo.

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

Nếu một đầu vào không có chỉ mục từ 0đến 25được cho phép, thì đây có thể là 10 byte bằng cách bỏ qua <.

JavaScript (ES2017), 73 72 71 66 byte

Đã lưu một số byte nhờ @JustinMariner

f=(n,x=26)=>x?f(n,x-1)+(x+9).toString(36).padStart(x<n?x:n)+`
`:''

Python 2, 61 58 57 byte

n=input()-1
for i in range(26):print(' '*i)[:n]+chr(i+97)

-3 byte nhờ Rod

-1 byte hơn nhờ có ông Xcoder

Ruby, 51 46 43 byte

->n{(0..25).map{|x|(' '*x)[0,n-1]<<(x+97)}}

Trả về một danh sách các chuỗi.

Có vẻ như những người Python đã làm điều gì đó với các mục con của họ. -5 byte bằng cách lấy cảm hứng từ cải tiến giải pháp ppperry của ông Xcoder.

Giải pháp trước đó với rjust(51 byte):

->n{i=0;(?a..?z).map{|c|c.rjust i+=n>c.ord-97?1:0}}

Python 2 , 62 50 57 byte

x=input();n=m=1
exec"print'%*c'%(m,n+96);n+=1;m+=x>m;"*26

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

Đánh cắp rất nhiều từ câu trả lời này của Dennis.

R, 99 89 byte

@MickeyT đã lưu 10 byte

chức năng

function(x)for(i in 1:26)cat(paste(c(rep(" ",min(x,i)),letters[i]),collapse=""),sep="\n")

bản giới thiệu

f <- function(x)for(i in 1:26)cat(paste(c(rep(" ",min(x,i)),letters[i]),collapse=""),sep="\n")
f(1)
f(10)
f(15)
f(26)

Võng mạc , 72 68 byte

^
z
{2=`
$`
}T`l`_l`^.
\D
$.`$* $&¶
\d+
$* 
s`( *)( +)(?=.*¶\1 $)
$1

Hãy thử trực tuyến! Đầu ra bao gồm khoảng trắng theo sau. Lưu 1 byte bằng cách xóa khoảng trắng trước khi $cho phép lập chỉ mục zero. Chỉnh sửa: Đã lưu 4 byte bằng cách sử dụng trình tạo bảng chữ cái của @ MartinEnder. Giải trình:

^
z
{2=`
$`
}T`l`_l`^.

Chèn bảng chữ cái.

\D
$.`$* $&¶

Chéo nó.

\d+
$* 

Chuyển đổi đầu vào thành unary dưới dạng khoảng trắng.

s`( *)( +)(?=.*¶\1 $)
$1

Cắt các dòng quá dài để không có dòng nào dài hơn dòng trống ở cuối.

Toán học, 103 byte

(T=Table;a=Alphabet[];c=Column)[c/@{T[""<>{T[" ",i],a[[i]]},{i,#}],T[""<>{T[" ",#],a[[i]]},{i,#,26}]}]&

Pyth , 21 17 15 byte

Thực hiện trên điện thoại với 3% pin.

VlG+*d?>QNNQ@GN

Giải trình:

VlG        For each character in the alphabet (G)
+          Concatenate...
 *d        Space (d) times...
   ?>QNNQ  Ternary; if Q (input) is less than N, return N, else Q
 @GN       The Nth character of the alphabet (G)

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

Thạch , 11 byte

26Ḷ«’⁶ẋżØaY

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

Lisp thường gặp, 84 byte

(lambda(x)(dotimes(i 26)(format t"~v,,,@a~%"(if(< i x)(1+ i)x)(code-char(+ i 97)))))

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

Python , 52 byte

Khá ngạc nhiên không ai nhận thấy cách tiếp cận rõ ràng cũng ngắn như những người khác.

lambda k:[(i*" ")[:k-1]+chr(i+97)for i in range(26)]

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

Python , 53 byte

lambda k:[min(k-1,i)*" "+chr(i+97)for i in range(26)]

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

Haskell, 58 54 byte

f n=do m<-[1..26];([2..min n m]>>" ")++['`'..]!!m:"\n"

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

Làm thế nào nó hoạt động

f n=                  -- input number is n
  do m<-[1..26]       -- for each m from [1..26], construct a string and concatenate
                      -- them into a single string. The string is:
   [2..min n m]>>" "  -- min(n,m)-1 spaces,
      ++              -- followed by
   ['`'..]!!m         -- the m-th char after `
      :               -- followed by
   "\n"               -- a newline 

Chỉnh sửa: @Lynn lưu 4 byte. Cảm ơn!

Java (OpenJDK 8) , 69 byte

n->{for(int a=0;a++<26;)System.out.printf("%"+(a<n?a:n)+"c%n",a+96);}

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

Gaia , 12 byte

…26⊃§×¦₵a+†ṣ

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

Giải trình

…             Range 0..input-1
 26⊃          Repeat the last number enough times to make it have length 26
    §×¦       Turn each number into a string of that many spaces
       ₵a+†   Add the corresponding letter to each
           ṣ  Join with newlines

JavaScript (Node.js) , 72 byte

n=>[..."abcdefghijklmnopqrstuvwxyz"].map((e,i)=>" ".repeat(i<n?i:n-1)+e)

Trả về một danh sách các chuỗi.

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

Toán học, 67 byte

SparseArray[x=#;{#,#~Min~x}->Alphabet[][[#]]&~Array~26,{26,#}," "]&

Trả về một SparseArraychuỗi. Để hình dung, chắp thêm Grid@trước mặt.

Dùng thử trên Wolfram Sandbox

Sử dụng

Grid@SparseArray[x=#;{#,#~Min~x}->Alphabet[][[#]]&~Array~26,{26,#}," "]&[5]

a
 b
  c
   d
    e
    f
    g

    ⋮

    z 

Python 2 , 52 byte

lambda n:['%*c'%(min(i+1,n),i+97)for i in range(26)]

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

Tôi giả sử một danh sách các chuỗi là tốt ...

Ngắn nhất tôi có thể nhận được với đệ quy:

f=lambda n,i=0:i<26and['%*c'%(min(i+1,n),i+97)]+f(n,i+1)or[]

SOGL V0.12 , 12 byte

z{ē.-.Hχ@*Ot

Hãy thử nó ở đây!

Python 3 , 52 byte

lambda n:[('%*c'%(i,i+96))[-n:]for i in range(1,27)]

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

C (gcc) , 50 byte

i;f(n){for(;i<26;printf("%*c\n",i++<n?i:n,i+97));}

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

Proton , 40 byte

Giả sử rằng một danh sách các Chuỗi là tốt.

k=>[(i*" ")[to~-k]+chr(i+97)for i:0..26]

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

Proton , 49 byte

Như ASCII-art thay thế:

k=>'\n'.join((i*" ")[to~-k]+chr(i+97)for i:0..26)

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

C # (.NET Core) , 66 + 18 byte

n=>new int[26].Select((x,i)=>$"{(char)(i+97)}".PadLeft(i<n?i+1:n))

Số lượng byte cũng bao gồm

using System.Linq;

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

Điều này trả về một tập hợp các chuỗi, một cho mỗi dòng. Nếu không được phép, câu trả lời sẽ phình ra 17 byte cho string.Concat()và \nbên trong chuỗi

Giải trình:

n =>
    new int[26]                      // Create a new collection of size 26
    .Select((x, i) =>                // Replace its members with:
        $"{(char)(i + 97)}"          // String of an alphabet character corresponding to the index
        .PadLeft(i < n ? i + 1 : n)  // Add spaces to the left
    )

MATL, 14 byte

26:tiXl2Y2oZ?c

Dùng thử tại MATL Online

Giải trình

26      % number literal
:       % range; vector of equally spaced values [1...26]
t       % duplicate
i       % explicitly grab the input
Xl      % clamp the array to have a maximum value of the input
2Y2     % predefined literal: ['a'...'z']
o       % convert to a numeric array
Z?      % create sparse matrix using the first two inputs as the rows/columns 
        % and the letters 'a'...'z' as the values
c       % convert back to character and implicitly display

Bình thường , 12 byte

j.e+<*kdtQbG

Hãy thử nó ở đây!

Nếu danh sách các Chuỗi được cho phép, điều này có thể được rút ngắn xuống còn 11 byte :

.e+<*kdtQbG

Bình thường , 12 byte

VG+<*dxGNtQN

Hãy thử nó ở đây!

Bình thường , 14 byte

jm+<*d;tQ@Gd26

Hãy thử nó ở đây.

Nếu danh sách các Chuỗi được cho phép, điều này có thể được rút ngắn xuống còn 13 byte :

m+<*d;tQ@Gd26

Làm thế nào để làm việc này?

Không giống như hầu hết các câu trả lời khác, bản đồ / vòng lặp này trên bảng chữ cái chữ thường trong cả 3 giải pháp.

Giải thích số 1

j.e+<*kdtQbG - Full program.

 .e        G - Enumerated map over "abcdefghijklmnopqrstuvwxyz", with indexes k and values b.
     *kd     - Repeat a space a number of times equal to the letter's index.
    <   tQ   - Crop the spaces after the input.
   +      b  - Concatenate with the letter.
j            - (Optional): Join by newlines.

Giải thích số 2

VG+<*dxGNtQN  - Full program.

VG            - For N in "abcdefghijklmnopqrstuvwxyz".
      xGN     - Index of the letter in the alphabet.
    *d        - Repeat the space a number of times equal to the index above.
   <     tQ   - But crop anything higher than the input.
  +        N  - Append the letter (at the end)

Giải thích số 3

jm+<*d;tQ@Gd26 - Full program.

 m          26 - Map over [0...26) with a variable d.
    *d;        - Space repeated d times.
   <   tQ      - Crop anything whose length is higher than the input.
  +      @Gd   - Concatenate with the letter at that index in the alphabet.
j              - (Optional): Join by newlines.

Haskell, 60 byte

f n=unlines$scanl(\p c->take(n-1)(p>>" ")++[c])"a"['b'..'z']

Đây là một hàm trả về đầu ra dưới dạng Chuỗi.

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

Japt , 16 13 byte

Đã lưu 3 byte nhờ @Oliver

;C£RiXiYmUÉ î

Kiểm tra nó trực tuyến!

q / kdb +, 33 31 byte

Dung dịch:

-1{(&[x-1;til 26]#'" "),'.Q.a};

Thí dụ:

q)-1{(&[x-1;til 26]#'" "),'.Q.a}16;
a
 b
  c
   d
    e
     f
      g
       h
        i
         j
          k
           l
            m
             n
              o
               p
               q
               r
               s
               t
               u
               v
               w
               x
               y
               z

Giải trình:

Tạo một danh sách các khoảng trắng (26) cho đến độ dài tối thiểu của đầu vào và phạm vi 0..25), nối với mỗi chữ cái của bảng chữ cái, in ra thiết bị xuất chuẩn.

-1{(&[x-1;til 26]#'" "),'.Q.a}; / solution
-1                            ; / print result to stdout and swallow return
  {                          }  / lambda function
                         .Q.a   / "abcd..xyz"
                       ,'       / concatenate (,) each
   (                  )         / do all this together
    &[   ;      ]               / minimum of each 
      x-1                       / implicit input (e.g. 10) minus 1 (e.g. 9)
          til 26                / 0 1 2 ... 23 24 25
                   '#" "        / take " " each number of times (0 1 2 )

Ghi chú:

• -2 byte bằng cách định lại dấu ngoặc

Java 1.8 (không có Lambda), 98 byte

void m(int i){int c=0,o=97;String s="";for(;c++<26;s+=c<i?" ":"")System.out.println(s+(char)o++);}

Logic rất đơn giản. Cung cấp không có xác nhận dữ liệu đầu vào, rất xấu!

• Cập nhật: Chỉ chức năng! Cảm ơn bạn @Olivier Grégoire