Зауважте, що це не те саме, що друкувати алфавіт чотири рази .

Це завдання - написати програму для створення чотирьох копій кожної літери англійського алфавіту, по одній букві на рядок, на стандартному виході:

A
A
A
A
B
B
B
B

тощо.

Вихідні дані повинні включати нові рядки після кожної літери.

Великі літери не мають додаткового виводу; однак, малі літери та / або додаткові пробіли є прийнятними, якщо написання великої літери / зачистки подовжить ваше рішення.

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

Вищезазначене питання повноти постало в контексті рішення С. Напевно, на кодовому майданчику для гольфу повинні бути правила чи конвенція щодо цього? Якщо це так, я з радістю поступлюся до рекомендацій громади. Але це моя думка:

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).

Пітон - 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*

Перл 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));

редагувати: змінено з 'друкувати' на 'println'

По-четверте, 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}

За пропозицією манатурки ми можемо позбутися 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

Перл 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 >для протидії останнім.

Bash: 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])