请注意，这与四次打印字母不同。

此任务是编写一个程序以在标准输出上生成英文字母的每个字母的四个副本，每行一个字母：

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）块中。

等等

杀伤人员地雷（5）

⍪4/⎕A

字母（）⍪的4个复制（4/）的矩阵格式（⎕A）。

Python-37

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

i从0到104；将其除以四，然后添加到的ascii值中A，并打印结果字符。

电话，30 28 27

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

30字节的旧版本：

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

C，59

我提交这个答案很漫长，只是因为我还没有看到C提交。这让我很难过。：-/

稍后：向@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是AZ的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+,

如果我可以打印更多字符（即全部打印四次）（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);}

感谢@ 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

脑F *，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}

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

画布，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时打印。

Kotlin，66 59字节

保存7个字节，删除循环。

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

在线尝试！

疯子，48个字节

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

在线尝试！

以小写字母打印，并用回车分隔。使用包装的8位单元格以及原点左侧的单元格，但您可以在前面加上a >来抵消后者。

重击：24个字符

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

直流电：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])