Как можно меньше байтов, напишите программу или функцию, которая выводит следующее:

Abcdefghijklmnopqrstuvwxyz
aBcdefghijklmnopqrstuvwxyz
abCdefghijklmnopqrstuvwxyz
abcDefghijklmnopqrstuvwxyz
abcdEfghijklmnopqrstuvwxyz
abcdeFghijklmnopqrstuvwxyz
abcdefGhijklmnopqrstuvwxyz
abcdefgHijklmnopqrstuvwxyz
abcdefghIjklmnopqrstuvwxyz
abcdefghiJklmnopqrstuvwxyz
abcdefghijKlmnopqrstuvwxyz
abcdefghijkLmnopqrstuvwxyz
abcdefghijklMnopqrstuvwxyz
abcdefghijklmNopqrstuvwxyz
abcdefghijklmnOpqrstuvwxyz
abcdefghijklmnoPqrstuvwxyz
abcdefghijklmnopQrstuvwxyz
abcdefghijklmnopqRstuvwxyz
abcdefghijklmnopqrStuvwxyz
abcdefghijklmnopqrsTuvwxyz
abcdefghijklmnopqrstUvwxyz
abcdefghijklmnopqrstuVwxyz
abcdefghijklmnopqrstuvWxyz
abcdefghijklmnopqrstuvwXyz
abcdefghijklmnopqrstuvwxYz
abcdefghijklmnopqrstuvwxyZ
abcdefghijklmnopqrstuvwxYz
abcdefghijklmnopqrstuvwXyz
abcdefghijklmnopqrstuvWxyz
abcdefghijklmnopqrstuVwxyz
abcdefghijklmnopqrstUvwxyz
abcdefghijklmnopqrsTuvwxyz
abcdefghijklmnopqrStuvwxyz
abcdefghijklmnopqRstuvwxyz
abcdefghijklmnopQrstuvwxyz
abcdefghijklmnoPqrstuvwxyz
abcdefghijklmnOpqrstuvwxyz
abcdefghijklmNopqrstuvwxyz
abcdefghijklMnopqrstuvwxyz
abcdefghijkLmnopqrstuvwxyz
abcdefghijKlmnopqrstuvwxyz
abcdefghiJklmnopqrstuvwxyz
abcdefghIjklmnopqrstuvwxyz
abcdefgHijklmnopqrstuvwxyz
abcdefGhijklmnopqrstuvwxyz
abcdeFghijklmnopqrstuvwxyz
abcdEfghijklmnopqrstuvwxyz
abcDefghijklmnopqrstuvwxyz
abCdefghijklmnopqrstuvwxyz
aBcdefghijklmnopqrstuvwxyz
Abcdefghijklmnopqrstuvwxyz

Завершающий перевод строки разрешен. Вы можете найти справочную реализацию Python без гольфа здесь .

Pyth, 12 байт

V+Gt_GXGNrN1

Демонстрация.

В Pyth Gэто строчный алфавит. +Gt_Gэто abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba, символ , который должен быть в верхнем регистре в каждой строке.

Vустанавливает цикл for для этой строки, Nв качестве переменной цикла.

В теле, XGNrN1это функция перевода строки. Xпереводит G, алфавит, заменяя Nна rN1, заглавную версию N. r ... 1это заглавная функция. Это дает желаемый результат.

С, 73

Иногда самый простой подход лучше всего: печатать каждый символ один за другим. это бьет много языков, которые действительно не должны.

i;f(){for(i=1377;i--;)putchar(i%27?123-i%27-32*!(i/702?i%28-4:i%26):10);}

объяснение

i;f(){
   for(i=1377;i--;)
   putchar(i%27?                 //if I not divisible by 27
     123-i%27-                   //  print lowercase letter from ASCII 122 downards
       32*!(i/702?i%28-4:i%26)   //  subtract 32 to make it uppercase where necessary: above i=702, use i%28-4, below it use i%26
     :10);                       //if I divisible by 27 print a newline (10)
}

Python 2, 69 байт

i=25
exec"L=range(97,123);L[~abs(i)]^=32;i-=1;print bytearray(L);"*51

Красиво и просто, я думаю.

Brainfuck (8 бит), 231 байт

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

Хорошо, так что это никогда не будет самым коротким, но важна роль ... правильно ?!

Попробуйте здесь (не забудьте отметить «Динамическая память»)

MS-DOS Binary, 61

Этот код не нужно компилировать, он будет работать в MS-DOS, если вы запишите его в файл с именем wave.com. Код в шестнадцатеричном виде:

ba3d0189d7b91a00b061aa404975fbb00aaab00daab024aa31f6e8130046
83fe1a75f7be1800e807004e75fae80100c389d3802820b409cd21800020
c3

Или, если вы предпочитаете что-то более читаемое, вот как это сделать, используя debug.exe (важна пустая строка после кода):

debug.exe wave.com
a
mov dx,13d
mov di,dx
mov cx,1a
mov al,61
stosb
inc ax
dec cx
jnz 10a
mov al,a
stosb
mov al,d
stosb
mov al,24
stosb
xor si,si
call 130
inc si
cmp si,1a
jnz 11a
mov si,18
call 130
dec si
jnz 126
call 130
ret
mov bx,dx
sub byte ptr [si+bx],20
mov ah,9
int 21
add byte ptr [si+bx],20
ret

rcx
3e
w
q

Рубин: 71 68 65 63 персонажа

puts f=(e=*?a..?z).map{|c|(e*"").tr c,c.upcase},f[0,25].reverse

Образец прогона:

bash-4.3$ ruby -e 'puts f=(e=*?a..?z).map{|c|(e*"").tr c,c.upcase},f[0,25].reverse' | head
Abcdefghijklmnopqrstuvwxyz
aBcdefghijklmnopqrstuvwxyz
abCdefghijklmnopqrstuvwxyz
abcDefghijklmnopqrstuvwxyz
abcdEfghijklmnopqrstuvwxyz
abcdeFghijklmnopqrstuvwxyz
abcdefGhijklmnopqrstuvwxyz
abcdefgHijklmnopqrstuvwxyz
abcdefghIjklmnopqrstuvwxyz
abcdefghiJklmnopqrstuvwxyz

Matlab, 60 58 54 байта

I=32*eye(26);[ones(51,1)*(97:122) '']-[I;I(25:-1:1,:)])

Спасибо Деннису Джарудудину за то, что он спас мне 4 байта.

SWI-Пролог, 136 байт

a:-(R=0;R=1),between(1,26,I),(I=1,R=0;I\=1,nl),between(1,26,J),(R=0,L=I;R=1,L is 27-I),(J=L,K is J+64,put(K);J\=L,K is J+96,put(K)),\+!.

Злоупотребление возвратом к циклу ...

Haskell 100 89 88 байт

putStr$map toEnum.(\(h,c:t)->h++c-32:t++[10]).(`splitAt`[97..122]).(25-).abs=<<[-25..25]

Вспомогательная лямбда-функция \(h,c:t)принимает пару списков значений ascii и объединяет оба, но с первым заглавным значением второго списка. Основная функция разбивает строчный алфавит (заданный в ascii, 97..122) на каждую позицию 0,..,24,25,24,..,0и вызывает лямбду на каждом шаге. Перед печатью каждое значение превращается в соответствующий символ.

Scala 110 109 символов

val a=('a'to'z').map(c⇒('a'to'z').map(v⇒if(v==c)c.toUpper else v).mkString)
a++a.init.reverse foreach println

SQL (postgreSQL), 107 101

Генерировать серии от -25 до 25 и использовать абсолютное значение для замены символов их заглавной версией. Спасибо manatwork за совет об операторе @.

select replace('abcdefghijklmnopqrstuvwxyz',chr(122- @i),chr(90- @i))from generate_series(-25,25)a(i)

Haskell, 81 байт

Подсчет байтов, как это сделал @nimi; fявляется действием ввода-вывода, которое печатает желаемый результат

x!y|x==min(50-y)y=65|0<1=97
f=mapM putStrLn[[toEnum$x+x!y|x<-[0..25]]|y<-[0..50]]

Pyth - 18 17 байт

Первый проход, вероятно, можно сделать намного короче. Использует Xзаменить и использовать r1для своей выгоды.

V+KU26t_KXGNr@GN1

Попробуйте это онлайн здесь .

MATLAB - 58 байт

char(bsxfun(@minus,97:122,32*[eye(25,26);rot90(eye(26))]))

Подобно решению Луиса Мендо , но с использованием возможностей вещания bsxfun.

Воспользовавшись тем, что в ASCII разница между заглавными и строчными буквами составляет ровно 32 значения друг от друга, мы сначала генерируем строчные буквы из кодов ASCII от 97 до 122, которые представляют собой коды ASCII от строчных букв a до строчных букв z, а затем создайте матрицу из 51 строки, которая содержит 26 кодов ASCII от 97 до 122. Поэтому каждая строка этой матрицы содержит числовую последовательность значений от 97 до 122. Затем мы создадим другую матрицу, в которой каждая i- ^я строка этой матрицы содержит 32 в i- ^м столбце. Первые 26 строк этой матрицы имеют этот шаблон, который по сути является единичной матрицей, умноженной на 32. Функцияeyeсоздает для вас матрицу идентичности. Последние 25 строк этой матрицы - это масштабированная единичная матрица, повернутая на 90 градусов.

Взяв эту пользовательскую взвешенную матрицу идентификаторов и вычтя ее из первой матрицы, а затем преобразовав получившиеся коды ASCII в символы, можно получить желаемую последовательность «мексиканская шляпа».

Пример выполнения

>> char(bsxfun(@minus,97:122,32*[eye(25,26);rot90(eye(26))]))

ans =

Abcdefghijklmnopqrstuvwxyz
aBcdefghijklmnopqrstuvwxyz
abCdefghijklmnopqrstuvwxyz
abcDefghijklmnopqrstuvwxyz
abcdEfghijklmnopqrstuvwxyz
abcdeFghijklmnopqrstuvwxyz
abcdefGhijklmnopqrstuvwxyz
abcdefgHijklmnopqrstuvwxyz
abcdefghIjklmnopqrstuvwxyz
abcdefghiJklmnopqrstuvwxyz
abcdefghijKlmnopqrstuvwxyz
abcdefghijkLmnopqrstuvwxyz
abcdefghijklMnopqrstuvwxyz
abcdefghijklmNopqrstuvwxyz
abcdefghijklmnOpqrstuvwxyz
abcdefghijklmnoPqrstuvwxyz
abcdefghijklmnopQrstuvwxyz
abcdefghijklmnopqRstuvwxyz
abcdefghijklmnopqrStuvwxyz
abcdefghijklmnopqrsTuvwxyz
abcdefghijklmnopqrstUvwxyz
abcdefghijklmnopqrstuVwxyz
abcdefghijklmnopqrstuvWxyz
abcdefghijklmnopqrstuvwXyz
abcdefghijklmnopqrstuvwxYz
abcdefghijklmnopqrstuvwxyZ
abcdefghijklmnopqrstuvwxYz
abcdefghijklmnopqrstuvwXyz
abcdefghijklmnopqrstuvWxyz
abcdefghijklmnopqrstuVwxyz
abcdefghijklmnopqrstUvwxyz
abcdefghijklmnopqrsTuvwxyz
abcdefghijklmnopqrStuvwxyz
abcdefghijklmnopqRstuvwxyz
abcdefghijklmnopQrstuvwxyz
abcdefghijklmnoPqrstuvwxyz
abcdefghijklmnOpqrstuvwxyz
abcdefghijklmNopqrstuvwxyz
abcdefghijklMnopqrstuvwxyz
abcdefghijkLmnopqrstuvwxyz
abcdefghijKlmnopqrstuvwxyz
abcdefghiJklmnopqrstuvwxyz
abcdefghIjklmnopqrstuvwxyz
abcdefgHijklmnopqrstuvwxyz
abcdefGhijklmnopqrstuvwxyz
abcdeFghijklmnopqrstuvwxyz
abcdEfghijklmnopqrstuvwxyz
abcDefghijklmnopqrstuvwxyz
abCdefghijklmnopqrstuvwxyz
aBcdefghijklmnopqrstuvwxyz
Abcdefghijklmnopqrstuvwxyz

Вы также можете запустить этот пример, используя онлайновую среду IDEone Octave. Octave по сути является MATLAB, но бесплатен: http://ideone.com/PknMe0

J, 31 23 байта

u:|:(97+i.26)-32*=|i:25

8 байтов сохранено благодаря @Mauris.

Попробуйте это онлайн здесь.

Perl, 51 байт

50-байтовый код + 1 байтный параметр командной строки

@a=a..z,@a[-1-abs]=uc@a[-1-abs],print@a for-25..25

Может использоваться следующим образом:

perl -le '@a=a..z,@a[-1-abs]=uc@a[-1-abs],print@a for-25..25'

Или онлайн здесь (обратите внимание, я должен был добавить ,"\n"к этому, поскольку я не мог добавить -l arg).

Гораздо более продолжительный метод До укороченной версии, описанной выше, я попробовал другой метод, который оказался довольно коротким. Я все равно оставил его для справки.

86-байтовый код + 1-байтовая командная строка

$_=join"",0,a..z,1;print s/1//r while s/(([A-Z])|0)(\D)|(.)((?2))(1)/\L\2\U\3\4\6\L\5/

Первый Perl Я когда-либо играл в гольф должным образом, поэтому я думаю, что с этим можно многое сделать - пожалуйста, предложите улучшения!

Можно использовать следующим образом:

perl -le '$_=join"",0,a..z,1;print s/1//r while s/(([A-Z])|0)(\D)|(.)((?2))(1)/\L\2\U\3\4\6\L\5/'

Или онлайн здесь (обратите внимание, я должен был добавить. "\ N" к этому, поскольку я не мог добавить -l arg).

объяснение

Общий подход заключается в использовании подстановки регулярных выражений для выполнения всей тяжелой работы. Мы начинаем с:

0abcdefghijklmnopqrstuvwxyz1

Это соответствует (([A-Z])|0)(\D)и заменяется на \U\3(\ U изменяется на верхний регистр), чтобы дать:

Abcdefghijklmnopqrstuvwxyz1

Начиная с этого момента, мы продолжаем соответствовать тому же регулярному выражению и заменяем на \L\2\U\3:

aBcdefghijklmnopqrstuvwxyz1
abCdefghijklmnopqrstuvwxyz1
...
abcdefghijklmnopqrstuvwxyZ1

Теперь второе чередование регулярных выражений совпадает (.)((?2))(1)(что так же, как (.)([A-Z])(1)). Мы заменим, \U\4\6\L\5чтобы дать:

abcdefghijklmnopqrstuvwxY1z

Это продолжает соответствовать и заменять, пока мы не достигнем:

A1bcdefghijklmnopqrstuvwxyz

и больше нет регулярных выражений.

В каждой точке цикла мы удаляем 1 и печатаем.

PHP, 87 71 69 байт

Не самый короткий, но работает как задумано.
Спасибо @manatwork за несколько советов, чтобы значительно уменьшить его размер.
А благодаря @Blackhole размер был уменьшен на 2 байта.

for(;$L=range(a,z),$L[25-abs($i++-25)]^=' ',$i<52;)echo join($L).'
';

Не совсем красиво, но работает.

PowerShell 3.0, 82 байта

$(0..25)+$(24..0)|%{$i=$_;[string](@(97..122)|%{[char]@($_,($_-32))[$_-eq$i+97]})}

Архитектура узла TIS Тип T21 - 216 215 байт

Смотрите это в действии здесь! В DOWNэтом видео есть кое-что, к чему я позже присоединился ANY, но оно функционально идентично.

Этот язык не имеет понятия о строках или символах, поэтому я должен отметить, что я использую значения ASCII, т.е. вывод начинается 97, 66, 67... 88, 89, 90, 10, 65, 98...

Вот код в формате сохраненных данных TIS-100 для целей оценки:

@5
ADD 25
L:MOV 27 ANY
SUB 1
JGZ L
MOV 25 ANY
JRO -1
@6
JRO 2
S:MOV 10 ANY
ADD 65
MOV ACC ANY
SUB 90
JEZ S
ADD 26
@9
MOV 32 ANY
ADD UP
L:MOV 0 ANY
SUB 1
JGZ L
@10
MOV UP ACC
ADD ANY
SUB 42
D:JEZ D
ADD 42
MOV ACC ANY

объяснение

JavaScript ES6, 121 байт

_=>Array(51).fill('abcdefghijklmnopqrstuvwxyz').map((e,i)=>e.replace(/./g,(f,j)=>j==i|i+j==50?f.toUpperCase():f)).join`
`

Это действительно долго, потому что имеет больше смысла жестко кодировать алфавит, чем использовать абсурдно долго String.fromCharCodeдля генерации символов. Проверьте это ниже с помощью фрагмента стека, который использует ES5 с лучшей поддержкой и ниже.

f=function(){
  return Array(51).fill('abcdefghijklmnopqrstuvwxyz').map(function(e,i){
    return e.replace(/./g,function(f,j){
      return j==i|i+j==50?f.toUpperCase():f
    })
  }).join('\n')
}

// Polyfill for ES6-only fill()
Array.prototype.fill = Array.prototype.fill || function(val){
  for(i=0;i<this.length;i++){
    this[i] = val
  }
  return this
}

document.getElementById('p').innerText=f()

<pre id="p"></pre>

CJam, 23 байта

51{25-z~'{,97>'[2$+tN}/

Попробуйте онлайн в интерпретаторе CJam .

Как это устроено

51{                  }/ e# For I from 0 to 50:
   25-                  e#   Compute J := I - 25.
                        e#   This maps [0 ... 50] to [-25 ... 25].
      z                 e#   Compute K := abs(J).
                        e#   This maps [-25 ... 25] to [25 ... 0 ... 25].
       ~                e#   Compute L := ~K = -(K + 1).
                        e#   This maps [25 ... 0 ... 25] to [-26 ... -1 ... -26].
        '{,             e#   Push ['\0' ... 'z'].
           97>          e#   Discard the first 97. Pushes ['a' ... 'z'].
              '[2$+     e#   Add L to '['. Pushes 'A' for -26, 'Z' for -1.
                   t    e#   Set ['a' ... 'z'][L] to '[' + L.
                    N   e#   Push a linefeed.

R, 78 70

M=replicate(26,c(letters,"\n"));diag(M)=LETTERS;cat(M,M[,25:1],sep="")

Улучшено @MickyT

Сборка Linux, 289

К сожалению, не конкурентоспособен с языками высокого уровня и, вероятно, далеко не оптимален, но довольно прост. Запустите его используя nasm -f elf64 -o a.o wave.S; ld -s -o a a.o; ./a(результирующий двоичный файл размером всего 568 байт):

section .data
s:db 'abcdefghijklmnopqrstuvwxyz',10
section .text
global _start
_start:
mov esi,0
a:call c
inc esi
cmp esi,26
jne a
mov esi,24
b:call c
dec esi
jnz b
call c
mov eax,1
call d
c:mov ecx,s
sub byte [ecx+esi],32
mov eax,4
mov edx,27
d:mov ebx,1
int 80h
add byte [ecx+esi],32
ret

сборка x86 для DOS, скомпилировано 41 байт

Binary:

00000000  b9 e6 ff b3 61 b8 61 02  50 38 d8 75 02 24 df 88
00000010  c2 cd 21 58 40 3c 7b 75  ef b2 0a cd 21 41 79 02
00000020  43 43 4b 80 f9 19 75 dd  c3

Исходный код, сохранить как «wave.asm», скомпилировать с «nasm -f bin -o wave.com wave.asm» и запустить с «dosbox wave.com»

org 100h 
section .text
start:
mov cx,-26
mov bl,'a'
next_line:
mov ax, 0261h
next_char:
push ax
cmp al,bl
jnz lower_case
and al,255-32
lower_case:
mov dl,al
int 21h
pop ax
inc ax
cmp al,'z'+1
jnz next_char
mov dl,0ah
int 21h
inc cx
jns move_left
inc bx
inc bx
move_left:
dec bx
cmp cl,25
jnz next_line
ret

C #, 140 139 135 132

void f(){int d=1,i=0;var s="abcdefghijklmnopqrstuvwxyz\n";for(;i>=0;i+=d=i==25?-1:d)Console.Write(s.Replace(s[i],(char)(s[i]-32)));}

расширенный

void f()
{
    int d = 1, i =0;
    var s = "abcdefghijklmnopqrstuvwxyz\n";
    for (; i >= 0; i += d = i == 25 ? -1 : d)
        Console.Write(s.Replace(s[i], (char)(s[i] - 32)));
}

Сохранено 1 байт благодаря @ Gunther34567, использующему троичный вместоif

Сохранены 4 байта, затем вложены эти троицы в цикл и перемещены алфавит за пределы цикла

Сохраненные 3 байта, объединяющие целочисленные объявления благодаря @eatonphil

Баш: 76 66 символов

printf -va %s {a..z}
for c in {a..z} {y..a};{ echo ${a/$c/${c^}};}

Образец прогона:

bash-4.3$ printf -va %s {a..z};for c in {a..z} {y..a};{ echo ${a/$c/${c^}};} | head
Abcdefghijklmnopqrstuvwxyz
aBcdefghijklmnopqrstuvwxyz
abCdefghijklmnopqrstuvwxyz
abcDefghijklmnopqrstuvwxyz
abcdEfghijklmnopqrstuvwxyz
abcdeFghijklmnopqrstuvwxyz
abcdefGhijklmnopqrstuvwxyz
abcdefgHijklmnopqrstuvwxyz
abcdefghIjklmnopqrstuvwxyz
abcdefghiJklmnopqrstuvwxyz

Sed: 135 119 116 111 символов

(109 символов кода + 1 символ опции командной строки + 1 ввод символов.)

s/.*/abcdefghijklmnopqrstuvwxyz/
h;H;G;H;G;H;g;G
s/.{,28}/\u&/gp
s/$/\t/
:;s/(\w+\n?)\t(.*)/\t\2\1/;t
s/.*Z//

Образец прогона:

bash-4.3$ sed -rf mexican.sed <<< '' | head
Abcdefghijklmnopqrstuvwxyz
aBcdefghijklmnopqrstuvwxyz
abCdefghijklmnopqrstuvwxyz
abcDefghijklmnopqrstuvwxyz
abcdEfghijklmnopqrstuvwxyz
abcdeFghijklmnopqrstuvwxyz
abcdefGhijklmnopqrstuvwxyz
abcdefgHijklmnopqrstuvwxyz
abcdefghIjklmnopqrstuvwxyz
abcdefghiJklmnopqrstuvwxyz

Javascript (ES6), 113 байт

c=-1;while(c++<50){console.log('abcdefghijklmnopqrstuvwxyz'.replace(/./g,(x,i)=>i==c|i+c==50?x.toUpperCase():x))}

110 байт

for(c=-1;c++<50;)console.log('abcdefghijklmnopqrstuvwxyz'.replace(/./g,(x,i)=>i==c|i+c==50?x.toUpperCase():x))

102 байта

Старая школа непобедима, если у нас не будет оператора дальности / функция / генератор / что-нибудь в JS

for(c=-1;c++<50;){for(s='',i=-1;i++<25;)s+=String.fromCharCode(i+(i==c|i+c==50?65:97));console.log(s)}

100 байт

К сожалению, Math.abs слишком длинный

for(c=51;c--;){for(s='',i=26;i--;)s+=String.fromCharCode(c+i==25|c-i==25?90-i:122-i);console.log(s)}

96 94 байта

Несмотря на то, что я голосую без объяснения причин, я продолжаю борьбу

for(c=-26;c++<25;){for(s='',i=26;i--;)s+=String.fromCharCode(c*c-i*i?122-i:90-i);console.log(s)}

Мы можем сбрить пару байтов, переставив инструкции цикла:

for(c=-26;c++<25;console.log(s))for(s='',i=26;i--;s+=String.fromCharCode(c*c-i*i?122-i:90-i));

Perl - 95 64 байта

Воспользовавшись тем, \uчто следующий символ печатается заглавными буквами в Perl.

for$c(0..50){$n=1;print map{++$n==27-abs$c-25?"\u$_":$_}a..z,$/}

Спасибо Manatwork за сохранение 31 байта и исправление его (мой предыдущий код не работал.)

q (37 символов)

Первый разрез

@[.Q.a;;upper]'[(raze(|:\)til 26)_26]