これは、アルファベットを4回印刷するのと同じではないことに注意してください。

このタスクは、標準出力に英語のアルファベットの各文字の4つのコピーを1行に1つずつ生成するプログラムを作成することです。

A
A
A
A
B
B
B
B

等

出力には、各文字の後に改行が含まれている必要があります。

余分な出力のない大文字が推奨されます。ただし、大文字化/削除によってソリューションが長くなる場合は、小文字や余分な空白を使用できます。

追加するために編集：ソリューションは実行するために十分に完成している必要があります。追加のコードを入力することなく、言語の実装を呼び出し、回答からコードを貼り付け、結果を取得できるはずです。

上記の完全性の問題は、Cソリューションのコンテキストで発生しました。確かに、コードゴルフサイトにはこれに関する常識的な規則または慣習が必要ですか？もしそうなら、私は喜んでコミュニティのガイドラインに従います。しかし、これは私の意見です：

1. 特にCに関しては、コードの周りにmain(){... を含める（そしてカウントする）必要}があります。そうしないとコンパイルされないからです。#include <stdio.h>コードがまだコンパイルされている限り問題ないので、警告。一般に、コンパイル言語にはコンパイル可能なユニットが必要です。

2. 式を直接実行する方法がある場合、目的の結果が得られる裸の式は受け入れられます。たとえば、言語にREPLがある場合。なしハスケルを提出することができますので、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)

i0から104になります。それは4で除算され、のASCII値に追加されA、結果の文字が出力されます。

R、30 28 27

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

30バイトの以前のバージョン：

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

C、59

私はこれを、競争力のない長い回答として提出しました。単にCの提出がまだ見られないからです。そしてそれは私を悲しくさせます。：-/

後：@moalaに「/ 4」intバージョンを実行して、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..90AZのASCIIコードです。
*4シリーズを4回繰り返します。
|Sort出力をソートします。

注意：

これをファイルに書き込む場合>は、最後にthrowを実行し、その後にファイル名を続けます。

ハスケル、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+,

より多くの文字を印刷できる場合（つまり、それらすべてを4回）削減できます（7 6文字、Befunge 93でも動作します）：

1+:4/,

改行あり：

1+:4/,a,

GolfScript：17 15文字

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

Perl 5、21

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

C、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);}

43 @marinusに感謝します。

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

42に到達するための賞金を追加すべきですか？:)

Java：56

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

編集：「print」から「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バイト

16進数で：

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}

Isziに対する少し異なるアプローチ。そしてより短い:-)

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)[*;*]

Canvas、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バイト

forループを削除して7バイトを節約します。

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

オンラインでお試しください！

brainfuck、48バイト

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

オンラインでお試しください！

キャリッジリターンで区切られた小文字で印刷します。折り返しの8ビットセルと起点の左側のセルを使用しますが>、後者に対抗するためにa を先頭に追加できます。

Bash：24文字

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

Dc：35文字

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

Scala、42

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

ジュリア、39、36

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