Ви повинні надрукувати цей точний текст:

A
ABA
ABCBA
ABCDCBA
ABCDEDCBA
ABCDEFEDCBA
ABCDEFGFEDCBA
ABCDEFGHGFEDCBA
ABCDEFGHIHGFEDCBA
ABCDEFGHIJIHGFEDCBA
ABCDEFGHIJKJIHGFEDCBA
ABCDEFGHIJKLKJIHGFEDCBA
ABCDEFGHIJKLMLKJIHGFEDCBA
ABCDEFGHIJKLMNMLKJIHGFEDCBA
ABCDEFGHIJKLMNONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNONMLKJIHGFEDCBA
ABCDEFGHIJKLMNMLKJIHGFEDCBA
ABCDEFGHIJKLMLKJIHGFEDCBA
ABCDEFGHIJKLKJIHGFEDCBA
ABCDEFGHIJKJIHGFEDCBA
ABCDEFGHIJIHGFEDCBA
ABCDEFGHIHGFEDCBA
ABCDEFGHGFEDCBA
ABCDEFGFEDCBA
ABCDEFEDCBA
ABCDEDCBA
ABCDCBA
ABCBA
ABA
A

Технічні характеристики

• В кінці виводу дозволені додаткові кінцеві рядки.
• Додаткові пробіли (U + 0020) допускаються в кінці кожного рядка, включаючи додаткові кінцеві рядки.
• Ви можете використовувати всі малі регістри замість усіх великих регістрів, але ви не можете надрукувати частково малі, частково великі регістри.
• Ви можете повернути текст як вихідну функцію, а не друкувати її в повній програмі.

Оцінка балів

Оскільки це трикутник, а трикутник має 3 сторони, а 3 - це невелика кількість, ваш код повинен бути малим за кількістю байтів.

Vim, 37 байт

:h<_↵↵↵YZZPP$xqqxYpGP√2G$A♥-€k$q24@qJ

Легенда

↵ = Return
√ = Ctrl+V
♥ = Ctrl+R
€ = Escape

Логотип, 232 207 196 190 байт

Хтось сказав трикутники?

Дістаньте свій компас і транспортир, і давайте зробимо це графічним способом. Геометрія використовує рівносторонній трикутник для вирівнювання результатів. Я раніше мав рівнобедрений трикутник, але в ньому було забагато десяткових знаків. Ця зміна також ущільнила вихід, зменшивши кількість підготовки екрана та зміну шрифту, що мені довелося зробити.

Я використовував онлайн-перекладача Калормена, щоб розібрати це. Якщо у вас не вистачає нерухомості на екрані, вона збирається завершити, але ви також можете поспілкуватися з деякими номерами, щоб подбати про це. Я використовував повноекранний режим "F11" у своєму браузері.

ht
pu
to r:n:b:l repeat:n[rt:b label char 90-:n lt:b fd:l] end
to t:s
fd 12 rt 120 bk 6
repeat 2[r:s 90 12]
repeat 2[rt 120 r:s 90-heading 24]
end
rt 90 label "Z lt 210
repeat 25[t repcount]

rПроцедура малює лінію nсимволів. Символ визначається автоматично залежно від того, скільки сегментів йому сказано використовувати. bПараметр розповідає , скільки тимчасово повернути так, щоб букви вказують в правильному напрямку. lПараметр визначає лінійне відстань між буквами.

У tКроки процедури на наступну позицію і викликає rфункцію в чотири рази , щоб створити трикутник, що обертається в разі потреби. Я закликав це двічі для вертикальної сторони, тому що це займало менше байтів, ніж один раз за допомогою спеціального керування. Кінець процедури розміщує черепаху для початку наступного трикутника, на крок вище.

Zце окремий випадок, тому ми просто друкуємо його безпосередньо та обертаємо так, ніби щойно закінчили трикутник. Нарешті, tназивається 25 разів.

Хаскелл, 58 байт

f x=init x++reverse x
t=unlines$f[f['A'..c]|c<-['A'..'Z']]

Визначає функцію, tяка повертає результат у вигляді рядка.

f x=               define a helper function
init x             take the argument minus its last element
++                 and concatenate it with
reverse x          the argument reversed, producing ex. [a,b,c,b,a] from [a,b,c]

t=                                    define the main function
           [         |c<-['A'..'Z']]  for every char c from 'A' to 'Z'...
             ['A'..c]                 generate the range from 'A' to c
            f                         call the helper function to "reflect" it
          f                           call the helper function on the entire list
  unlines$                            join on newlines

Желе , 16 13 байт

Ṗ;Ṛ
ØAḣJÇ€Çj⁷

Дякуємо @LeakyNun за те, що виграли 3 байти!

Спробуйте в Інтернеті!

Як це працює

Ṗ;Ṛ        Helper link. Argument: A (array)

Ṗ          Pop; yield A without its last element.
  Ṛ        Reversed; yield A with inverted order.
 ;         Concatenate the results to both sides.


ØAḣJÇ€Çj⁷  Main link. No arguments.

ØA         Alphabet; set link argument and return value to "A...Z".
   J       Indices; yield [1, ..., 26].
  ḣ        Head; take the first, the first two, etc. elements of the alphabet.
           This yields ["A", AB", ..., "A...Z"].
    ǀ     Apply the helper link to each string.
      Ç    Apply the helper link to the array itself.
       j⁷  Join, separating by linefeeds.

Пітон, 74 байти

def f(x=66,s='A'):
 t=s+s[-2::-1];print t
 if x<91:f(x+1,s+chr(x));print t

Функція Python 2, яка друкує та не бере аргументів. Ключова ідея - генерувати трикутний візерунок туди і назад з рекурсією. Спочатку розглянемо цю простішу функцію, яка друкує літери "A" до "Z" і вниз назад до "A":

def f(x=65):
 t=chr(x);print t
 if x<90:f(x+1);print t 

Функція спочатку друкує "A" (char-код 65), потім повторюється для друку "B" (66) і так далі до "Z" (90). Звідти він перестає повторюватися. Під час відскакування рекурсивного стеку він друкує будь-який символ, який tвін надрукував на тому ж шарі, від "Y" назад до "A".

Основний код робить те саме, за винятком того, що він накопичується у sрядку літер поки що, і друкує рядок вгору та вниз s+s[-2::-1].

Завдяки xsot на 2 байти.

У Python 3 те ж саме - байт коротший (73 байти), помістивши все в один рядок.

def f(x=66,s='A'):t=s+s[-2::-1];print(t);x>90or[f(x+1,s+chr(x)),print(t)]

мозковий ебать, 1733 121 119 байт

----[---->+<]>++.<++++++++++.<+++++[<+++++>-]<+>>>.<[>>[>.]<[>+>+<<-]>+.>[<<+> >-]<[<.]<-]>>[>[>]<[-]<[<]>>[.>]<<[.<]>]

Трохи більш читабельна версія:

----[---->+<]>++.<
++++++++++.<
+++++[<+++++>-]<+
>>
>.<
[
  >>[>.]<
  [>+>+<<-]
  >+.>
  [<<+>>-]
  <[<.]<
  -
]
>>
[
  >[>]<
  [-]
  <[<]>
  >[.>]<<[.<]>
]

Пояснення можливо.

05AB1E , 20 13 12 6 байт

Збережено 2 байти завдяки Аднану.
Збережено 6 байт завдяки Magic Octopus Urn та деякій новій мовній функції.

Aη€ûû»

Спробуйте в Інтернеті!

Пояснення

Aη       # push prefixes of alphabet
  €û     # palendromize each prefix
    û    # palendromize the whole list
     »   # join on newlines

J, 26 23 22 байт

f(f=:,1}.|.)\u:65+i.26

Пояснення

,1}.|.  Monad f: Input: A
    |.  Reverse the items in A
 1}.    Drop the first item in the reversed A
,       Join A and the previous

f(f=:,1}.|.)\u:65+i.26
                  i.26  Create the range [0, 1, ..., 25]
               65+      Add 65 to each
             u:         Convert to characters to get 'A..Z'
  f=:,1}.|.             Define a verb f
 (         )\           Call f monadically on each prefix of 'A..Z'
f                       Call f again on that result

Python 3, 97 байт

s="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
a=[s[:x]+s[x::-1]for x in range(26)]
print('\n'.join(a+a[24::-1]))

Ідей це!

Рубін, 71 байт

Спробуйте це на repl.it

s=*?A..?Y
s+=[?Z]+s.reverse
puts s.map{|e|k=[*?A...e]*'';k+e+k.reverse}

> <> , 60 байт

1"AA"1[v
?v:1-:}>:5d*=
o>l  ?!v
{$-}:1[\ao]{:}+::"@Z"@=?;=2*

Спробуйте в Інтернеті!

C, 272 247 234 230 144 137 байт:

( Збережено багато байтів ( 272 -> 230) у моєму попередньому методі завдяки чудовим підказкам з гольфу та хитрощів від сигалору ! )

( Збережено майже 100 байт ( 230 -> 144), перейшовши на кращий метод. )

main(q,i,e,x){for(q=0;q<51;q++){i=q>25 ? 25-(q-25):q;for(e=65;e<66+i;e++)printf("%c",e);for(x=64+i;x>64;x--)printf("%c",x);printf("\n");}}

Моя перша відповідь будь-коли C. Я нещодавно почав самостійно його вивчати, тож давайте подивимось, як це відбувається.

C це в дії! (Ідеон)

JavaScript (ES6), 81 байт

[...'ZYXWVUTSRQPONMLKJIHGFEDCBA'].reduce((p,c)=>c+`
`+p.replace(/^|$/gm,c)+`
`+c)

Mathematica 59 байт

Column@FromCharacterCode[#@#@26+64]&[#-Abs@Range[1-#,#-1]&]

Діалог APL, 18 байт

↑(⊣,⌽)(⊣,1↓⌽)¨,\⎕a

R, 63 61 59 байт

for(i in c(1:26,25:1))cat(LETTERS[c(1:i,i:1-1)],"
",sep="")

Корисно LETTTERS[0]не повертає жодних символів.

Редагувати: втратив одне завдяки @leakynun

Редагувати: ще дві подяки @plannapus

TSQL, 159 байт

DECLARE @ varchar(52)='ABCDEFGHIJKLMNOPQRSTUVWXY',@o varchar(max)SELECT @+='Z'+REVERSE(@)+'
',@o=@
WHILE''<@
SELECT @=STUFF(@,LEN(@)/2,2,''),@o=@+@o+@
PRINT @o

Скрипка

Javascript (використовуючи зовнішню бібліотеку - безліч), 135 байт

_.Range(1,51).WriteLine(x=>(g=_.Range(65,x>25?52-x:x)).Write("",y=>(w=String.fromCharCode)(y))+(g.Reverse().Skip(1).Write("",y=>w(y))))

Посилання на бібліотеку: https://github.com/mvegh1/Шілька

Пояснення коду: Створіть діапазон вводів, починаючи з 1, на число 51. Для кожного напишіть рядок відповідно до складного передбачення. Зробіть кілька майстрів JS із глобальними змінними та кешування ... та вуаля. Для кожного int в WriteLine ми створюємо лівий діапазон int і зберігаємо в глобальний "g", а String Joining (Write) з ""роздільником і відображаємо кожен int до відображення String на int char код. Потім ми стискаємо праву частину, роблячи перевернення цієї послідовності (і пропускаючи перший елемент, тому що це буде відповідати останньому елементу початкового порядку ...), пишемо з тією ж логікою. EDIT: оновлено внутрішні записи програми Write в бібліотеці. Порожня послідовність запише порожній рядок замість нуля. Це також поголив 15 байт від відповіді

Powershell, 61 52 байт

Дякуємо TimmyD за збереження 9 байт!

65..90+89..65|%{-join[char[]]((65..$_-ne$_)+$_..65)}

Проведіть циклічні значення ASCII для великих літер вперед, потім назад. Для кожного числа це створює масив перших X чисел, видаляє X-1-е число, потім додає зворотний бік перших X чисел, який все потім передається на символи та об'єднується в рядок.

Чеддар , 102 96 79 69 67 байт

17 байт завдяки Downgoat та натхнення ще для 10.

"A"+(2@"27+@"(25|>1)).bytes.map(i->65@"(64+i)+@"((64+i)|>65)).vfuse

Той факт, що рядки можуть об'єднувати, але не масиви, означає, що мені доведеться перетворити два діапазони в рядки, об'єднати і потім перетворити назад у масиви.

Крім того, той факт, що vfuseвиробляє провідний молодик, означає, що мені потрібно буде генерувати перший рядок вручну, а потім присвоїти решта.

@" як діада (функція з двома аргументами) може перетворитись у рядок безпосередньо, але не працює для зворотного діапазону (якщо перший аргумент більший за другий).

Діапазон був напіввключений Після виправлення помилок вона стала всеосяжною.

Використання

cheddar> "A"+(2@"27+@"(25|>1)).bytes.map(i->(65@"(64+i)+@"((64+i)|>65))).vfuse
"A
ABA
ABCBA
ABCDCBA
ABCDEDCBA
ABCDEFEDCBA
ABCDEFGFEDCBA
ABCDEFGHGFEDCBA
ABCDEFGHIHGFEDCBA
ABCDEFGHIJIHGFEDCBA
ABCDEFGHIJKJIHGFEDCBA
ABCDEFGHIJKLKJIHGFEDCBA
ABCDEFGHIJKLMLKJIHGFEDCBA
ABCDEFGHIJKLMNMLKJIHGFEDCBA
ABCDEFGHIJKLMNONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNONMLKJIHGFEDCBA
ABCDEFGHIJKLMNMLKJIHGFEDCBA
ABCDEFGHIJKLMLKJIHGFEDCBA
ABCDEFGHIJKLKJIHGFEDCBA
ABCDEFGHIJKJIHGFEDCBA
ABCDEFGHIJIHGFEDCBA
ABCDEFGHIHGFEDCBA
ABCDEFGHGFEDCBA
ABCDEFGFEDCBA
ABCDEFEDCBA
ABCDEDCBA
ABCDCBA
ABCBA
ABA
A"

Чеддар, 55 байт (неконкурентоспроможний)

В останній версії з усіма виправленнями відповідь:

(|>25+24|>0).map(i->65@"(65+i)+(i?(64+i)@"65:"")).vfuse

але це було зроблено після виклику.

C, 93 байти

Телефонуйте f()без аргументів.

g(l,n){putchar(l);n?g(l+1,--n),putchar(l):0;}f(n){for(n=-26;++n<26;puts(""))g(65,25-abs(n));}

Спробуйте це на ideone .

VBA, 94 байти

Function T:For j=-25To 25:k=25-Abs(j):For i=-k To k:T=T &Chr(65+k-Abs(i)):Next:T=T &vbLf:Next

Зателефонувати у вікно негайного натискання?

Просто для пояснення того, що відбувається: я двічі використовую функцію Abs, щоб відображати як проходження алфавіту, так і довжину рядка. Це добре підходить до завдання через єдине екстремальне значення в обох випадках, яке відповідає нульовому перетину змінної pre Abs.

Як простий набір команд у вікні негайного VBA, а не програма чи функція, для наступного потрібно 72 байти:

For j=-25To 25:k=25-Abs(j):For i=-k To k:?Chr(65+k-Abs(i));:Next:?:Next

(завдяки спасибі @GuitarPicker)

Пітон, 73 71 байт

Дякуємо @xnor за рекурсію

f=lambda x=66,s='A',t='':x/92*t or t+f(x+1,s+chr(x),s+s[-2::-1]+"\n")+t

Пояснення

• Параметри :
  • x - значення ассії наступної літери в алфавіті
  • s є акумулятором для алфавіту
  • t- це лінія в трикутнику (тобто s+ s backwards)
• Повернення : tякщо алфавіт виконано (тобто ми в центрі)
• Інше : t+f(...)+tз:
  • x приріст
  • s додається до наступного листа
  • tскинути до s+ s backwards+\n

Оновлення

• -2 [16-08-05] Видаліть провідні \n(+1) та скорочуйте умовні (-3) все завдяки @xnor

HTML + CSS, 884 символи

(763 символи HTML + 121 символ CSS)

Просто розширення Дірявий Nun «s коментар про MonkeyZeus » s відповідь . (Хоча я міг би неправильно прочитати коментар ...)

p{margin:0}p:before{content:"ABCDEFGH"}p:after{content:"HGFEDCBA"}a:before{content:"IJKLMNOP"}a:after{content:"PONMLKJI"}

<pre>A
ABA
ABCBA
ABCDCBA
ABCDEDCBA
ABCDEFEDCBA
ABCDEFGFEDCBA
ABCDEFGHGFEDCBA
<p>I</p><p>IJI</p><p>IJKJI</p><p>IJKLKJI</p><p>IJKLMLKJI</p><p>IJKLMNMLKJI</p><p>IJKLMNONMLKJI</p><p>IJKLMNOPONMLKJI</p><p><a>Q</p><p><a>QRQ</p><p><a>QRSRQ</p><p><a>QRSTSRQ</p><p><a>QRSTUTSRQ</p><p><a>QRSTUVUTSRQ</p><p><a>QRSTUVWVUTSRQ</p><p><a>QRSTUVWXWVUTSRQ</p><p><a>QRSTUVWXYXWVUTSRQ</p><p><a>QRSTUVWXYZYXWVUTSRQ</p><p><a>QRSTUVWXYXWVUTSRQ</p><p><a>QRSTUVWXWVUTSRQ</p><p><a>QRSTUVWVUTSRQ</p><p><a>QRSTUVUTSRQ</p><p><a>QRSTUTSRQ</p><p><a>QRSTSRQ</p><p><a>QRSRQ</p><p><a>QRQ</p><p><a>Q</a></p><p>IJKLMNOPONMLKJI</p><p>IJKLMNONMLKJI</p><p>IJKLMNMLKJI</p><p>IJKLMLKJI</p><p>IJKLKJI</p><p>IJKJI</p><p>IJI</p><p>I</p>ABCDEFGHGFEDCBA
ABCDEFGFEDCBA
ABCDEFEDCBA
ABCDEDCBA
ABCDCBA
ABCBA
ABA
A

Брахілог , 37 29 байт

Кредити Fatalize за його допомогу протягом усього часу.

4 байти завдяки Fatalize, а натхнення - ще 4 байти.

@A:1&e:"a"yr:1&cw@Nw\
:Lc.r.!

Спробуйте в Інтернеті!

Предикат 0 (головний присудок)

@A:1&e:"a"yr:1&cw@Nw\
@A:1&                  Apply predicate 1 to @A, which is
                       basically "abcdefghijklmnopqrstuvwxyz"
     e                 Choose one element from the result (choice point)
      :"a"yr               generate substring from element to "a"
            :1&            apply predicate 1
               c           concatenate
                w          write to STDOUT
                 @Nw       write "\n" to STDOUT
                    \  Backtrack to last choice point to choose
                       another element until there is no more
                       choice left, then halt.

Предикат 1 (допоміжний присудок)

Це, в основному, будує паліндром з даного рядка.

:Lc.r.!
:Lc.     output is [input:L]
   .r.   output reversed is still output
      !  stop searching after the first output

R, 127 125 байт

k=cat;L=LETTERS;for(i in 1:26)k(c(L[1:i],L[(i-1):0],"\n"));for(i in 1:26)k(c(L[0:(26-i)],L[ifelse((25-i)>=0,25-i,0):0],"\n"))

Не повністю задоволений цим рішенням, особливо двома forпетлями, але не міг прийти з чимось кращим!
LETTERSмістить великі літери.

Безголівки:

for(i in 1:26){
  cat(c(LETTERS[1:i],LETTERS[(i-1):0],"\n"))
               }

for(i in 1:26){
  cat(c(LETTERS[0:(26-i)],LETTERS[ifelse((25-i)>=0,25-i,0):0],"\n"))
               }

ifelseє більш коротким способом розкручування if... else...і працює таким чином:ifelse(condition,action if TRUE, action if FALSE)

Інше 125 байт рішення:

for(i in 1:26)(k=cat)(c((L=LETTERS)[1:i],L[(i-1):0],"\n"));for(i in 1:26)k(c(L[0:(26-i)],L[ifelse((25-i)>=0,25-i,0):0],"\n"))

Java 131 байт

Без використання рядка (131 байт)

public static void main(String[] args) {
    for(int i = 0 ,k=1; i>-1; i+=k){
        for(int c= 65, d = 1; c>64;){
            d = d>-1 & c < 65+i?1:-1;
            System.out.print((char)c+((c+=d)<65?"\n":""));
        }
        k = k>-1 & i < 25?1:-1;
    }
}

Кодегольф

for(int i=0,k=1;i>-1;k=k>-1&i<25?1:-1,i+=k)for(int c=65,d=1;c>64;d=d>-1&c<65+i?1:-1,System.out.print((char)c+((c+=d)<65?"\n":"")));

З рядком (173 байти)

String a="abcdefghijklmnopqrstuvwxyz";
for(int i = 1 ,k=1; i>0; i+=k==1?1:-1){
    System.out.println(a.substring(0,i)+new StringBuilder(a).reverse().substring(27-i));
    k = k>-1 & i < 26?1:-1;
}

Кодегольф

String a="abcdefghijklmnopqrstuvwxyz";for(int i=1,k=1;i>0;k=k>-1&i<26?1:-1,System.out.println(a.substring(0,i)+new StringBuilder(a).reverse().substring(27-i)),i+=k==1?1:-1);

Завдяки маневреності та Кевіну Кройссену

мозковий ебать, 79 байт

+<++<<--------[>+++++>>[+++<+<]>]<+[[>+>+.<<-]>-[<+>>-.<-]>->.>[->]<<<[<<++>]<]

Відформатовано:

+<++<<
--------[>+++++>>[+++<+<]>]
<+
[
  [>+>+.<<-]
  >-[<+> >-.<-]
  >->.>[->]
  <<<[<<++>]
  <
]

Спробуйте в Інтернеті

Сесос , 27 байт

0000000: a85ab9 ac5daa f8b1c7 785f9b b961f7 665c1b 73ccfc  .Z..]....x_..a.f\.s..
0000015: c01ecb 987303                                     ....s.

Спробуйте в Інтернеті! Поставте прапорець Налагодження, щоб побачити сформований код SBIN.

Збірка Sesos

Бінарний файл, описаний вище, був сформований шляхом складання наступного коду SASM.

add 65, rwd 1, add 10, rwd 2, add 25
jmp
    fwd 3
    jmp
        put, fwd 1
    jnz
    rwd 1
    jmp
        fwd 1, add 1, fwd 1, add 1, rwd 2, sub 1
    jnz
    fwd 2
    jmp
        rwd 2, add 1, fwd 2, sub 1
    jnz
    rwd 1, add 1, rwd 2
    jmp
        put, rwd 1
    jnz
    rwd 1, sub 1
jnz
fwd 3
jmp
    jmp
        put, fwd 1
    jnz
    rwd 1, get, rwd 1
    jmp
        put, rwd 1
    jnz
    fwd 2
; jnz (implicit)

/// , 208 байт

/'/\/\///+/BA
AB'-/DC+CD'&/FE-EF')/HG&GH'=/JI)IJ'|/LK=KL'7/NM|MN'1/PO7OP'q/RQ1QR'p/TSqST'6/VUpUV'[/XW6WX/A
A+C+C-E-E&G&G)I)I=K=K|M|M7O7O1Q1QqSqSpUpU6W6W[Y[YZY[Y[W6W6UpUpSqSqQ1Q1O7O7M|M|K=K=I)I)G&G&E-E-C+C+A
A

Не виграючи звичайно, але ось це, передчуваючи Мартіна Ендера ...