Обратите внимание, что это не то же самое, что Печать алфавита четыре раза .

Эта задача состоит в том, чтобы написать программу для генерации четырех копий каждой буквы английского алфавита, по одной букве в строке, на стандартном выводе:

A
A
A
A
B
B
B
B

и т.п.

Вывод должен включать переводы строк после каждой буквы.

Прописные буквы без дополнительного вывода являются предпочтительными; однако строчные буквы и / или лишние пробелы допустимы, если использование заглавных букв / зачисток удлинит ваше решение.

Отредактировано ДОБАВИТЬ: решение должно быть достаточно полным, чтобы выполнить. Я должен иметь возможность вызывать реализацию языка, вставлять код из ответа и получать результаты, не вводя никакого дополнительного кода.

Вышеупомянутый вопрос о полноте возник в контексте решения C. Конечно, должно быть постоянное правило или соглашение об этом на сайте игры в гольф кода? Если это так, я с радостью уступлю руководящим принципам сообщества. Но это мое мнение:

1. Что касается C, вам нужно включить (и сосчитать) main(){... }код, так как иначе он не скомпилируется. Предупреждения, потому что нет #include <stdio.h>, хороши, пока код все еще компилируется. В общем случае для компилируемого языка требуется компилируемый модуль.

2. Голое выражение, которое дает желаемые результаты, приемлемо, если есть способ выполнить выражение напрямую; например, если у языка есть REPL. Таким образом, вы можете отправить Haskell без, main=пока он действительно работает, как написано, например, в ghciприглашении. Но так как это означает, что letвы должны ставить свои декларации, это может быть чистой победой, придерживаясь runhaskellформата.

3. Точно так же awkсценарии должны быть в BEGIN(или END, с предположением, что stdin присоединен /dev/null) блоках, так как мы не обрабатываем какой-либо ввод.

и т.п.

APL (5)

⍪4/⎕A

Матричный формат ( ⍪) 4-ти репликации ( 4/) алфавита ( ⎕A).

Python - 37

for i in range(104):print chr(i/4+65)

iидет от 0 до 104; оно делится на четыре и добавляется к значению ascii для A, и полученный символ печатается.

R, 30 28 27

write(rep(LETTERS,e=4),1,1)

Предыдущая версия с 30 байтами:

cat(rep(LETTERS,e=4),sep="\n")

С, 59

Я представляю это, неконкурентно длинный ответ, просто потому, что пока не вижу заявки на Си. И это меня огорчает. : - /

ПОЗЖЕ: перейдите к @moala для выполнения этой версии "/ 4", сэкономив 13 символов!

float i;main(){while(i<26)printf("%c\n",65+(int)i),i+=.25;}

J: 18 13

4#u:65+i.26 1

^{Я все еще довольно шаткий с J, так что, возможно, это можно улучшить}

Руби, 23

puts ([*?A..?Z]*4).sort

Вся заслуга @manatwork - поддержите его комментарий, а не этот. :)

PowerShell: 32 23

Гольф-код:

[char[]](65..90*4)|Sort

Прохождение:

[char[]](... )берет массив объектов и преобразует их в символы ASCII.
65..90являются кодами ASCII для AZ.
*4повторяет серию 4 раза.
|Sortсортирует вывод.

Заметка:

Если вы хотите, чтобы это было записано в файл, просто бросьте >, а затем имя файла, в конце.

Хаскелл, 46

x a=a++a
main=putStr$['A'..'Z']>>=x.x.(:"\n")

Befunge 98 - 18

1+::'g`#@_4/'A+,a,

Работает, сохраняя число и заканчивая его, когда оно достигает 104. Распечатывает соответствующий символ алфавита для числа, разделенного на 4, за которым следует новая строка. Но если мне не нужно добавлять новую строку после каждой буквы, то это 16 символов:

1+::'g`#@_4/'A+,

Может быть уменьшено, если я смогу напечатать больше символов (т.е. все четыре раза) ( 7 6 символов, даже работает в Befunge 93):

1+:4/,

С новой строки:

1+:4/,a,

GolfScript: 17 15 символов

26,{65+...}%+n*

Perl 5, 21

map{print"$_
"x4}A..Z

С 46 44 43

46 :

i;main(){while(i<104)printf("%c\n",65+i++/4);}

44 :

i=260;main(j){for(;(j=i++>>2)<91;puts(&j));}

44 тоже:

i=260;main(j){while(j=i++>>2,j<91)puts(&j);}

Благодаря @marinus, 43:

i=260;main(j){while(j=i++/4,j<91)puts(&j);}

Должен ли я добавить награду за получение 42? :)

Ява: 56

for(int i=0;i<104;)System.out.println((char)(i++/4+65));

редактировать: изменено с «печать» на «печать»

Далее 37

'h 0 [do] [i] 4 / 'A + emit cr [loop]

На самом деле, 6 байтов

4ú*SÖi

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

объяснение

4ú*SÖi

4 *         Do 4 times
 ú          Create string of alphabet in lowercase
   S        Sort it
    Ö       Switch Case
     i      Push each character of string

4 байта со строчными буквами и без перевода строки:

4ú*S

16-битный машинный код x86 MS-DOS COM, 25 байт

В шестнадцатеричном виде:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

Это полная программа MS-DOS .COM. Скопируйте последовательность байтов в файл с расширением .com и запустите его из DOSBox.

Разборка:

00: B4 09        mov    ah,0x09         ;INT 21h "Write string to STDOUT" function
02: BA 16 01     mov    dx,0x116        ;Address of the string s ('$'-terminated)
05: 89 D7        mov    di,dx           ;Because there's no way to dereference address in DX
07: B9 68 00     mov    cx,104          ;CX=26*4
_0000000A:
0A: F6 C1 03     test   cl,0x03         ;When lower two bits are zero...
0D: 75 02        jne    _00000011       ;...do not skip the next instruction
0F: FE 05        inc    b,[di]          ;*s++
_00000011:
11: CD 21        int    21              ;Print the string
13: E2 F5        loop   _0000000A       ;Until --CX==0
15: C3           retn
16: 40           db     0x40            ;s[0], starts with 'A'-1
17: 0A           db     0x0A            ;'\n'
18: 24           db     '$'             ;Terminator required by the print function

BrainF * , 79 60

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

AWK, 48

Давайте попробуем это с AWK ...

END{s=65;for(i=104;i--;s+=0==i%4)printf"%c\n",s}

Как подсказывает manatwork, мы можем избавиться от 2 символов

AWK, 46 (Изменить)

END{for(i=104;i--;s+=0==i%4)printf"%c\n",s+65}

AWK, 40 (редактирование кода MarkReed )

END{for(;i<104;){printf"%c\n",i++/4+65}}

PowerShell, 21

65..90|%{,[char]$_*4}

Немного другой подход к Иззи. И короче :-)

C # LINQ 115 байт 110 байт

Enumerable.Range(65, 26).SelectMany(i => Enumerable.Repeat(i,4))
.ToList().ForEach(i=> Console.WriteLine((char)i));

05AB1E, 6 байтов

A4×{S»

Объяснение:

A       # Push 'abcdefghijklmnopqrstuvwxyz'
 4×     # Repeat four times
   {    # Sort
    S   # Split into list
     »  # Join by newlines
        # Implicit print

Без перевода строки, 4 байта

A4×{

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

Желе , 5 байт (не конкурирует?)

ØAx4Y

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

Объяснение:

ØAx4Y Main link
ØA    “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
   4  4
  x   Repeat each element of x y times
    Y Join x with newlines

Perl 6, 32

.say for (('A'..'Z') »xx»4)[*;*]

Холст , 5 байт

Ｚ４１＊⟳

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

Code        | Explanation                                  | Stack
------------+----------------------------------------------+------------------------------
Ｚ          | The uppercase alphabet                       | "ABC..."
  ４１＊     | Stretched by 4 horizontally and 1 vertically | "AAAABBBBCCCC..."
        ⟳  | Rotated clockwise                            | "A¶A¶A¶A¶B¶B¶B¶B¶C¶C¶C¶C¶..."
            | Print ToS (implicit)                         |

С ¶заменой на \nпосле печати.

Котлин , 66 59 байт

Сохраните 7 байтов, удаляя для цикла.

fun main(a:Array<String>){repeat(104){println('A'+(it/4))}}

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

брейкфук , 48 байт

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

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

Печать в нижнем регистре, разделенная переводом каретки. Использует обтекание 8-битных ячеек, а также ячеек слева от источника, хотя вы можете добавить a, >чтобы противостоять последним.

Баш: 24 персонажа

printf %s\\n {A..Z}{,,,}

Dc: 35 символов

[rdP10Pr1-d1<p]sp65[5lpx+d91>l]dslx

Скала, 42

('A'to'Z')map(x=>List.fill(4)(println(x)))

Юлия, 39 , 36

println([char(i/4+64.5)for i=0:103])