เมื่อไม่มีอินพุตให้เอาท์พุตรูปแบบตัวอักษรที่น่าสนใจในทั้งสองกรณี (เคสต้องสอดคล้องกัน) ผ่านวิธีเอาต์พุตที่ยอมรับได้ :

A
AB
ACBC
ADBDCD
AEBECEDE
AFBFCFDFEF
AGBGCGDGEGFG
AHBHCHDHEHFHGH
AIBICIDIEIFIGIHI
AJBJCJDJEJFJGJHJIJ
AKBKCKDKEKFKGKHKIKJK
ALBLCLDLELFLGLHLILJLKL
AMBMCMDMEMFMGMHMIMJMKMLM
ANBNCNDNENFNGNHNINJNKNLNMN
AOBOCODOEOFOGOHOIOJOKOLOMONO
APBPCPDPEPFPGPHPIPJPKPLPMPNPOP
AQBQCQDQEQFQGQHQIQJQKQLQMQNQOQPQ
ARBRCRDRERFRGRHRIRJRKRLRMRNRORPRQR
ASBSCSDSESFSGSHSISJSKSLSMSNSOSPSQSRS
ATBTCTDTETFTGTHTITJTKTLTMTNTOTPTQTRTST
AUBUCUDUEUFUGUHUIUJUKULUMUNUOUPUQURUSUTU
AVBVCVDVEVFVGVHVIVJVKVLVMVNVOVPVQVRVSVTVUV
AWBWCWDWEWFWGWHWIWJWKWLWMWNWOWPWQWRWSWTWUWVW
AXBXCXDXEXFXGXHXIXJXKXLXMXNXOXPXQXRXSXTXUXVXWX
AYBYCYDYEYFYGYHYIYJYKYLYMYNYOYPYQYRYSYTYUYVYWYXY
AZBZCZDZEZFZGZHZIZJZKZLZMZNZOZPZQZRZSZTZUZVZWZXZYZ

ช่องว่างต่อท้ายและการขึ้นบรรทัดใหม่เป็นที่ยอมรับช่องโหว่มาตรฐานไม่ได้รับอนุญาตและสิ่งนี้เกิดขึ้นเป็นโค้ดกอล์ฟดังนั้นคำตอบที่สั้นที่สุดในการชนะไบต์!

Canvas ขนาด 7 ไบต์

Ｚ［Ｋ＊¹＋］

ลองที่นี่!

คำอธิบาย:

Ｚ［     ］ for each prefix of the uppercase alphabet
    Ｋ        pop off the last letter
     ＊       and join the rest of the string with that character
      ¹＋     and append the current iterated character to it

เยลลี่ขนาด 9 ไบต์

ØAjṪ$Ƥż¹Y

ลองออนไลน์!

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

ØAjṪ$Ƥż¹Y  Main link. No arguments.

ØA         Yield "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
     Ƥ     Map the link to the left over all prefixes, i.e., ["A", "AB", ...].
    $        Combine the two links to the left into a chain.
   Ṫ           Tail; yield and remove the last letter of each prefix.
  j            Join the remainder, using that letter as separator.
      ż¹   Zip the resulting strings and the letters of the alphabet.
        Y  Separate the results by linefeeds.

C, 82 ไบต์

f(i,j){for(i=!puts("A");++i<26;puts(""))for(j=0;j++<i*2;)putchar(65+(j&1?j/2:i));}

ลองออนไลน์!

R , 50 ไบต์

l=LETTERS
for(i in 0:25)cat(l[0:i],"
",sep=l[i+1])

ลองออนไลน์!

บางทีส่วนที่ฉลาดที่สุดในที่นี้ใช้letters[0]สำหรับสตริงว่างcat(character(0),'\n',sep="A")เพื่อพิมพ์บรรทัดแรก

ถ่าน 9 ไบต์

Ｅα⁺⪫…ακιι

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

 α          Predefined uppercase alphabet
Ｅ           Map over each character
    …ακ     Get current prefix of alphabet
   ⪫   ι    Join with current character
  ⁺     ι   Append current character
            Implicitly print on separate lines

Python 2 , 56 ไบต์

n=65;s='';exec'c=chr(n);print c.join(s)+c;s+=c;n+=1;'*26

ลองออนไลน์!

รหัสประจำเครื่อง 6502 (C64), 39 ไบต์

A9 41 20 D2 FF AA A8 84 FB E4 FB B0 0B 8A 20 D2 FF 98 20 D2 FF E8 D0 F1 A9 0D
20 D2 FF A2 41 C0 5A F0 03 C8 D0 E1 60

รูทีนย่อยรหัสเครื่องที่เป็นอิสระต่อตำแหน่ง Clobbers A, X และ Y

การสาธิตออนไลน์

โหลดการสาธิตที่$C000ดังนั้นใช้SYS49152เพื่อเรียกรูทีน

ความคิดเห็นถอดแยกชิ้นส่วน:

A9 41       LDA #$41            ; 'A'
20 D2 FF    JSR $FFD2           ; Kernal CHROUT (output character)
AA          TAX                 ; copy to X (current pos)
A8          TAY                 ; copy to Y (current endpos)
  .outerloop:
84 FB       STY $FB             ; endpos to temporary
  .innerloop:
E4 FB       CPX $FB             ; compare pos with endpos
B0 0B       BCS .eol            ; reached -> do end of line
8A          TXA                 ; current pos to accu
20 D2 FF    JSR $FFD2           ; and output
98          TYA                 ; endpos to accu
20 D2 FF    JSR $FFD2           ; and output
E8          INX                 ; next character
D0 F1       BNE .innerloop      ; (repeat)
  .eol:
A9 0D       LDA #$0D            ; load newline
20 D2 FF    JSR $FFD2           ; and output
A2 41       LDX #$41            ; re-init current pos to 'A'
C0 5A       CPY #$5A            ; test endpos to 'Z'
F0 03       BEQ .done           ; done when 'Z' reached
C8          INY                 ; next endpos
D0 E1       BNE .outerloop      ; (repeat)
  .done:
60          RTS

Java 8, 93 91 90 ไบต์

v->{String t="";for(char c=64;++c<91;t+=c)System.out.println(t.join(c+"",t.split(""))+c);}

-1 ไบต์ด้วย@ OlivierGrégoireโดยการพิมพ์โดยตรงแทนที่จะส่งคืน

คำอธิบาย:

ลองออนไลน์

v->{                     // Method with empty unused parameter and String return-type
  String t="";           //  Temp-String, starting empty
  for(char c=64;++c<91;  //  Loop over the letters of the alphabet:
      t+=c)              //    After every iteration: append the letter to the temp-String
    System.out.println(  //   Print with trailing new-line:
       r.join(c+"",t.split(""))
                         //    The temp-String with the current letter as delimiter
       +c);}             //    + the current letter as trailing character 

SNOBOL4 (CSNOBOL4) , 169 143 ไบต์

i &ucase len(x) . r len(1) . s
 o =
 i =
t r len(i) len(1) . k :f(o)
 o =o s k
 i =i + 1 :(t)
o o s =
 output =o s
 x =lt(x,25) x + 1 :s(i)
end

ลองออนไลน์!

i &ucase len(x) . r len(1) . s	;* set r to the first x characters and s to the x+1th.
 o =				;* set o,i to empty string
 i =
t r len(i) len(1) . k :f(o)	;* set k to the ith letter of r. on failure (no match), go to o.
 o =o s k			;* concatenate o,s,k
 i =i + 1 :(t)			;* increment i, goto t
o o s =				;* remove the first occurrence of s (the first character for x>1, and nothing otherwise)
 output =o s			;* output o concatenated with s
 x =lt(x,25) x + 1 :s(i)	;* increment x, goto i if x<25.
end

ปัญหานี่คือบรรทัดแรก

การใช้o s kจะเพิ่มsอักขระพิเศษในตอนต้นของแต่ละบรรทัดและไม่มีอักขระที่sท้าย นี่คือโอเคเพราะเส้นจะกระโดดข้ามสองบรรทัดต่อไปเมื่อt x=0ซึ่งหมายความว่าoจะยังคงว่างเปล่า ดังนั้นo s =จะลบครั้งแรกที่sตัวละครoแล้วเราก็สามารถพิมพ์จะมีสุดท้ายที่เหมาะสมo ss

JavaScript (ES6), 81 ไบต์

f=
_=>[..."ABCDEFGHIJKLMNOPQRSTUVWXYZ"].map((c,i,a)=>a.slice(0,i).join(c)+c).join`
`
;document.write('<pre>'+f());

บันทึก 9 ไบต์หากยอมรับค่าส่งคืนอาเรย์สตริง

Japt ( -Rแฟล็ก ), 14 12 ไบต์

-2 ไบต์ต้องขอบคุณ @Shaggy

;B¬
ËiU¯E qD

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

Haskell , 49 48 ไบต์

'A':unlines[init['A'..x]>>=(:[x])|x<-['A'..'Z']]

ลองออนไลน์!

แก้ไข: -1 ไบต์ขอบคุณโดยสิ้นเชิงมนุษย์!

PowerShellขนาด 56 ไบต์

"A";65..89|%{([char[]](65..$_)-join[char]++$_)+[char]$_}

ลองออนไลน์!

ลูป65ไปที่89การวนซ้ำแต่ละครั้งสร้างcharอาเรย์ของ65จำนวนปัจจุบัน$_จากนั้น-joinเข้าแถวนั้นเข้าด้วยกันเป็นสตริงที่มีอักขระตัวถัดไป

เปลี่ยนเป็น89หมายเลข ASCII อื่น ๆ เพื่อดูการทำงานที่ดีขึ้น

> <> , 44 34 ไบต์

"BA"oao"ZA"\=?;1+40.
o1+:{::o}=?\:

ลองออนไลน์!

> <> , 44 ไบต์

"A"o10ao\55*=?;1+40.
1+:{:}=?\:"A"+o{:}"A"+o

ลองออนไลน์!

ในขณะที่ฉันใช้เส้นทางที่แตกต่างเพื่อผลิตผลลัพธ์ฉันโพสต์ของตัวเอง> <> answer คำตอบอื่น ๆ > <> อยู่ที่นี่

ต้องขอบคุณ Jo king อย่างมากสำหรับการจำฉันไม่จำเป็นต้องวาง "A" ลงบนสแต็กถ้าฉันเปรียบเทียบกับ "Z" แทน 26 (-10 bytes)

คำอธิบาย

คำอธิบายจะเป็นไปตามขั้นตอนของรหัส

"BA"                 : Push "BA" onto the stack;
                       [] -> [66, 65]
    oao              : Print the stack top then print a new line;
                       [66, 65] -> [66]
       "ZA"\         : Push "ZA" onto the stack then move down to line 2;
                       [66, 90, 65]
o          \:        : Duplicate the stack top then print
 1+:                 : Add one to the stack top then duplicate;
                       [66, 90, 65, 65]
    {::              : Shift the stack right 1 place then duplicate the stack top twice;
                       [90, 65, 65, 66, 66]
       o}            : Print the stack top then shift the stack left 1 place;
                       [66, 90, 65, 65, 66]
         =?\         : Comparison for equality on the top 2 stack items then move to line 1 if equal otherwise continue on line 2;
                       [66, 90, 65]
           \=?;      : Comparison for equality on the top 2 stack items then quit if equal else continue on line 1;
                       [66]
               1+    : Add 1 to the stack top;
                       [67]
                 40. : Move the code pointer to column 4 row 0 of the code box and continue execution of code. 

เยลลี่ 12 ไบต์

ØA;\;€Ṫ$€YFḊ

ลองออนไลน์!

Bah เพิ่งได้รับØAjṪ$ƤżØAYซึ่งเป็นขั้นตอนระหว่างนี้และทางออกที่โพสต์แล้วของ Dennis: /

Pyth , 13 ไบต์

+\ajmPjedd._G

ลองที่นี่! , ทางเลือก

aแม้ว่าจะเป็นผู้นำ...

เยลลี่ขนาด 13 ไบต์

ØA¹Ƥ+"¹Ṗ€Yṭ”A

ลองออนไลน์!

คำอธิบาย

ØA¹Ƥ+"¹Ṗ€Yṭ”A  Main Link
ØA              Uppercase Alphabet
  ¹Ƥ            Prefixes
    +"¹         Doubly-vectorized addition to identity (uppercase alphabet) (gives lists of lists of strings)
       Ṗ€      a[:-1] of each (get rid of the double letters at the end)
         Y     Join on newlines
          ṭ”A  "A" + the result

การใช้ในทางที่ผิดสตริงและรายการตัวละครต่างกันใน Jelly

Python 2 , 92 86 79 75 64 ไบต์

s=map(chr,range(65,91))
for d in s:print d.join(s[:ord(d)-65])+d

ลองออนไลน์!

11 ไบต์ขอบคุณที่ร็อด

APL + WIN, 51 ไบต์

⍎∊'a←⎕av[65+⍳26]⋄a[n←1]',25⍴⊂'⋄,⊃a[⍳n-1],¨a[n←n+1]'

คำอธิบาย:

a←⎕av[65+⍳26] create a vector of upper case letters

a[n←1] first A

25⍴⊂'⋄,⊃a[⍳n-1],¨a[n←n+1]' create an implicit loop to concatenate subsequent letters

> <> , 47 ไบต์

d2*:1-v
-&$:?!\$:&$:1
1-:?!v\69*-$1-:
+*88~< 1o

ลองออนไลน์!

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

d2*:1-v Initialise the stack with 26 (outer loop counter) and 26-1 (inner loop counter)
....
....
....

....
-&$:?!\$:&$:1 Repeatedly make copies of both counters
....          And decrement the inner loop counter
....          Go to third line when inner loop counter is 0

....            Add -54 to the stack (for the newline) and decrement the outer loop counter
....            Initialise the inner loop counter as outer-1
1-:?!v\69*-$1-: If the inner counter is 0, go to the fourth line, else back to the second.
....

....
....      
....      Transform numbers and -54s into letters and newlines by adding 64
+*88~< 1o Output each character until it runs out of stack and errors

Acc !! , 84 ไบต์

นี่คือสิ่งที่เป็นแรงบันดาลใจให้กับความท้าทายนี้:

Write 65
Count i while i-26 {
Count b while b-i {
Write b+65
Write i+65
}
Write 10
}

ลองออนไลน์!

Canvas , 11 10 ไบต์

Ｚ｛Ｚ²╷ｍ¹＊×］

ลองที่นี่!

GNU M4, 119 ไบต์

ที่เลวร้ายที่สุดจนถึง ถึงเวลาแล้ว ...

define(f,`ifelse($1,$2,,`format(%c%c,$1,$2)`'f(incr($1),$2)')')define(g,`f(65,$1)ifelse($1,90,,`
g(incr($1))')')A
g(66)

Husk , 13 ไบต์

Γ·:mhSzJḣ…"AZ

ลองออนไลน์!

คำอธิบาย

สิ่งนี้นำไปสู่ความAยุ่งเหยิง - -

          "AZ  -- string literal: "AZ"
         …     -- fill gaps: "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
     S         -- with alphabet and
        ḣ      -- | alphabet rangified: ["A","AB","ABC",…,"AB……XYZ"]
      zJ       -- : zipWith join: ["A","ABB","ACBCC","ADBDCDD",…,"AZB……ZYZZ"]
Γ              -- pattern match (x:xs) with the following function (x is "A" and xs ["ABB","ACBCC",…,"A……ZYZZ"]
 · mh          -- | drop the last element of each element of xs: ["AB","ACBC",…,"A……ZYZ"]
  :            -- | cons (construct list): ["A","AB","ACBC",…,"A……ZYZ"]
               -- : strings are printed implicitly

C # (.NET Core)

พอร์ตจากคำตอบของ Kevin Cruijssen :

91 90 ไบต์

_=>{var t="";for(char c='@';++c<91;t+=c)Console.WriteLine(string.Join(c+"",t.Skip(0))+c);}

ลองออนไลน์!

132 122 110 109 104 103 ไบต์

_=>"ABCDEFGHIJKLMNOPQRSTUVWXYZ".Select((c,i)=>string.Join(""+c,"ABCDEFGHIJKLMNOPQRSTUVWXYZ".Take(i))+c)

ลองออนไลน์!

• แทนที่()ด้วย_เพื่อแสดงว่าเราประกาศตัวแปรที่ไม่ได้ใช้ ขอบคุณเควินครุยเซอร์

เยลลี่ , 22 ไบต์

ØAż€Ð€`F€µJ’Ḥ»1ż@¹ḣ/€Y

ลองออนไลน์!

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

                       take argument implicitly
ØA                     the uppercase alphabet
    Ѐ`                for C in the alphabet
  ż€                     appends C to every letter in the alphabet
       F€              flatten every sublist
          J            get indices
           ’           subtract 1
            Ḥ          and double
             »1        take max([n, 1])
         µ     ż@¹     interleave alphabet list and indices
                  ḣ/€  reduce on head() for each element
                     Y join on newline
                       implicitly output

uBASIC , 80 ไบต์

ฟังก์ชั่นไม่ระบุชื่อที่ไม่รับอินพุตและเอาต์พุตไปยังคอนโซล

0?"A":ForI=65To89:ForJ=65ToI:?Left$(Chr$(J),1)+Left$(Chr$(I+1),1);:NextJ:?:NextI

ลองออนไลน์!

Visual Basic .NET (Mono) , 134 ไบต์

ฟังก์ชันประกาศที่ไม่รับอินพุตและเอาต์พุตไปยังคอนโซล

Module M
Sub Main
Dim S,I,J
S="A"
For I=65To 90
Console.WriteLine(S)
S=""
For J=65To I
S+=Chr(J)+Chr(I+1)
Next
Next
End Sub
End Module

ลองออนไลน์!

Ruby , 44 34 ไบต์

?A.upto(?Z){|w|puts [*?A...w]*w+w}

ลองออนไลน์!

ขอบคุณ benj2240 ที่ทำให้มันลดลงเหลือ 37 ไบต์ และแน่นอนก็มี 44 blah blah

05AB1E , 29 ไบต์

'A,Au©.sRí¦®RSDgÝ×Rs)ø˜.Bíø»=

ลองออนไลน์!