При отсутствии ввода выведите этот интересный алфавитный шаблон в любом случае (случай должен быть согласованным) с помощью принятого метода вывода :

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

Допускаются пробелы и символы новой строки, стандартные лазейки запрещены, и это, как правило, код-гольф , поэтому выигрывает самый короткий ответ в байтах!

Холст , 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

Позиционно-независимая подпрограмма машинного кода, клоберы 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 sчтобы иметь соответствующий последний s.

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

Попробуйте онлайн!

Поскольку я использую другой путь для создания вывода, я разместил свой собственный ответ> <>; Другой ответ> <> можно найти здесь.

Большое спасибо Джо Кингу за то, что он заметил, что мне не нужно было добавлять «А» в стек, если я просто сравнил с «Z» вместо 26. (-10 байт)

объяснение

Объяснение будет следовать за потоком кода.

"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Ḋ

Попробуйте онлайн!

Бах только что получил, ØAjṪ$ƤżØAYчто является шагом между этим и уже опубликованным решением Денниса: /

Pyth , 13 байт

+\ajmPjedd._G

Попробуй это здесь! , Alternative

Это ведущий, 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

Точность !!, 84 байта

Это на самом деле то, что вдохновило этот вызов:

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

Попробуйте онлайн!

Холст , 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)

Шелуха , 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)

Порт от ответа Кевина Круйссена :

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

Попробуйте онлайн!

Рубин , 44 34 байта

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

Попробуйте онлайн!

Спасибо benj2240 за сокращение до 37 байт. И конечно зачеркнуто 44 бла бла.

05AB1E , 29 байт

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

Попробуйте онлайн!