แรงบันดาลใจจากโพสต์นี้ สำหรับผู้ที่ทำเครื่องหมายคำถามนี้ว่าเป็นคำซ้ำฉันขอให้คุณอ่านคำถามเพื่อดูว่าของฉันเป็นการดัดแปลงของลิงค์ที่เชื่อมโยง หนึ่งที่เชื่อมโยงไม่ได้ขอให้ป้อนข้อมูลและเป็นเพียงพิมพ์ตัวอักษรแนวทแยงมุม

ความท้าทาย

กำหนดอินพุตระหว่าง 1-26 โดยรวมให้พิมพ์ตัวอักษรแนวทแยงมุม แต่เริ่มพิมพ์ในแนวตั้งที่ดัชนีของอินพุตที่กำหนด

ตัวอย่าง

รับอินพุต:

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

การป้อนข้อมูล:

4

เอาท์พุท:

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

การป้อนข้อมูล:

1

เอาท์พุท:

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

การป้อนข้อมูล:

26

เอาท์พุท:

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

เกณฑ์การให้คะแนน

นี่คือรหัสกอล์ฟดังนั้นคำตอบที่สั้นที่สุดในแต่ละภาษาจะเป็นผู้ชนะ

โชคดี!

ถ่าน 9 ไบต์

↘✂β⁰Ｎ↓✂βη

ลองออนไลน์!

มันทำงานอย่างไร

↘✂β⁰Ｎ↓✂βη
 ✂β⁰Ｎ         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

การแก้ปัญหานี้ไม่ได้ทำงานในรุ่นปัจจุบันของถ่าน (ส่วนใหญ่น่าจะเกิดจากการแก้ไขข้อผิดพลาด) แต่ปัญหาได้รับการแก้ไขเป็นเวลา 10 ↘✂β⁰Ｎ↓✂βＩθไบต์ด้วย

05AB1E , 11 ไบต์

AvNI<‚Wysú,

ครั้งแรกที่ลองใช้ 05AB1E ฉันจึงเปิดรับเคล็ดลับ

ลองออนไลน์!

หากมีการป้อนข้อมูลศูนย์การจัดทำดัชนีจาก0การ25ที่ได้รับอนุญาตนี้อาจเป็น 10 <ไบต์โดยถนัด

JavaScript (ES2017), 73 72 71 66 ไบต์

บันทึกบางไบต์ด้วย @JustinMariner

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

Python 2, 61 58 57 ไบต์

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

-3 ไบต์ต้องขอบคุณ Rod

-1 ไบต์เพิ่มเติมขอบคุณ Mr. Xcoder

Ruby, 51 46 43 ไบต์

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

ส่งคืนรายการของสตริง

ดูเหมือนว่าพวกหลามจะมีบางสิ่งที่มีตัวห้อย -5 ไบต์โดยรับแรงบันดาลใจจากการปรับปรุงของ Mr. Xcoder ในการแก้ปัญหาของ ppperry

โซลูชันก่อนหน้าด้วยrjust(51 ไบต์):

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

Python 2 , 62 50 57 ไบต์

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

ลองออนไลน์!

ขโมยอย่างหนักจากคำตอบนี้โดย Dennis

R, 99 89 ไบต์

@MickeyT บันทึก 10 ไบต์

ฟังก์ชัน

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

การสาธิต

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)

เรติน่า , 72 68 ไบต์

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

ลองออนไลน์! เอาท์พุทรวมถึงช่องว่างต่อท้าย บันทึก 1 ไบต์ด้วยการลบพื้นที่ก่อน$ถ้าอนุญาตให้ทำดัชนีเป็นศูนย์ แก้ไข: บันทึกแล้ว 4 ไบต์โดยใช้เครื่องสร้างตัวอักษรของ @ MartinEnder คำอธิบาย:

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

ใส่ตัวอักษร

\D
$.`$* $&¶

เส้นทแยงมุมมัน

\d+
$* 

แปลงอินพุตให้พร้อมกันเป็นช่องว่าง

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

ตัดแต่งเส้นที่ยาวเกินไปเพื่อไม่ให้มีเส้นใดยาวเกินกว่าบรรทัดว่างที่ท้าย

Mathematica, 103 ไบต์

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

Pyth , 21 17 15 ไบต์

ทำบนโทรศัพท์ด้วยแบตเตอรี่ 3%

VlG+*d?>QNNQ@GN

คำอธิบาย:

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)

ลองออนไลน์!

เยลลี่ 11 ไบต์

26Ḷ«’⁶ẋżØaY

ลองออนไลน์!

Lisp ทั่วไป, 84 ไบต์

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

ลองออนไลน์!

Pythonขนาด 52 ไบต์

ค่อนข้างแปลกใจที่ไม่มีใครสังเกตเห็นวิธีการที่ชัดเจนก็สั้นเหมือนคนอื่น ๆ

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

ลองออนไลน์!

Pythonขนาด 53 ไบต์

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

ลองออนไลน์!

Haskell, 58 54 ไบต์

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

ลองออนไลน์!

มันทำงานอย่างไร

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 

แก้ไข: @Lynn บันทึก 4 ไบต์ ขอบคุณ!

Java (OpenJDK 8) , 69 ไบต์

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

ลองออนไลน์!

Gaiaขนาด 12 ไบต์

…26⊃§×¦₵a+†ṣ

ลองออนไลน์!

คำอธิบาย

…             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 ไบต์

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

ส่งคืนรายการของสตริง

ลองออนไลน์!

Mathematica, 67 ไบต์

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

ส่งคืนSparseArrayสตริง หากต้องการเห็นภาพให้ผนวกที่Grid@ด้านหน้า

ลองใช้กับ Wolfram Sandbox

การใช้

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

a
 b
  c
   d
    e
    f
    g

    ⋮

    z 

Python 2 , 52 ไบต์

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

ลองออนไลน์!

ฉันสมมติว่ารายการสตริงเป็นเรื่องปกติ ...

สั้นที่สุดที่ฉันจะได้รับเมื่อเรียกซ้ำ:

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

SOGL V0.12 , 12 ไบต์

z{ē.-.Hχ@*Ot

ลองที่นี่!

Python 3 , 52 ไบต์

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

ลองออนไลน์!

C (gcc) , 50 ไบต์

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

ลองออนไลน์!

โปรตอน 40 ไบต์

สมมติว่ารายการ Strings ดี

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

ลองออนไลน์!

โปรตอนขนาด 49 ไบต์

ในฐานะ ASCII-art แทน:

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

ลองออนไลน์!

C # (.NET Core) , 66 + 18 ไบต์

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

จำนวนไบต์ยังรวมถึง

using System.Linq;

ลองออนไลน์!

สิ่งนี้จะส่งคืนชุดของสตริงหนึ่งรายการสำหรับแต่ละบรรทัด หากไม่ได้รับอนุญาตคำตอบจะเพิ่มขึ้น 17 ไบต์string.Concat()\nสตริงและภายในสตริง

คำอธิบาย:

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 ไบต์

26:tiXl2Y2oZ?c

ลองใช้ที่MATL Online

คำอธิบาย

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

Pyth , 12 ไบต์

j.e+<*kdtQbG

ลองที่นี่!

หากอนุญาตให้ใช้รายการของ Strings สามารถทำให้สั้นลงได้11 ไบต์ :

.e+<*kdtQbG

Pyth , 12 ไบต์

VG+<*dxGNtQN

ลองที่นี่!

Pyth , 14 ไบต์

jm+<*d;tQ@Gd26

ลองที่นี่

หากรายชื่อของสายจะได้รับอนุญาตนี้สามารถลงไป13 ไบต์ :

m+<*d;tQ@Gd26

ทำงานเหล่านี้ได้อย่างไร

ไม่เหมือนคำตอบอื่น ๆ ส่วนใหญ่แผนที่นี้ / วนซ้ำตามตัวอักษรตัวเล็กในทั้ง 3 โซลูชัน

คำอธิบาย # 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.

คำอธิบาย # 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)

คำอธิบาย # 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 ไบต์

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

นี่คือฟังก์ชันที่ส่งคืนเอาต์พุตเป็นสตริง

ลองออนไลน์

Japt , 16 13 ไบต์

บันทึกแล้ว 3 ไบต์ขอบคุณ @Oliver

;C£RiXiYmUÉ î

ทดสอบออนไลน์!

q / kdb +, 33 31 ไบต์

วิธีการแก้:

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

ตัวอย่าง:

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

คำอธิบาย:

สร้างรายการของช่องว่าง (26) จนถึงความยาวต่ำสุดของอินพุตและช่วง0..25) เข้าร่วมกับตัวอักษรแต่ละตัวแล้วพิมพ์ไปยัง stdout

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

หมายเหตุ:

• -2 ไบต์โดยการใส่วงเล็บอีกครั้ง

Java 1.8 (ไม่มีแลมบ์ดา), 98 ไบต์

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

ตรรกะตรงไปตรงมา ไม่มีการตรวจสอบความถูกต้องของข้อมูลอินพุตแย่มาก!

• อัปเดต: ฟังก์ชั่นเท่านั้น! ขอบคุณ @Olivier Grégoire