Lưu ý rằng điều này không giống như In bảng chữ cái bốn lần .

Nhiệm vụ này là viết một chương trình để tạo ra bốn bản sao của mỗi chữ cái trong bảng chữ cái tiếng Anh, một chữ cái trên mỗi dòng, trên đầu ra tiêu chuẩn:

A
A
A
A
B
B
B
B

v.v.

Đầu ra nên bao gồm các dòng mới sau mỗi chữ cái.

Chữ in hoa không có đầu ra thêm được ưu tiên; tuy nhiên, chữ thường và / hoặc khoảng trắng thừa được chấp nhận nếu viết hoa / tước sẽ kéo dài giải pháp của bạn.

EDITED TO ADD: Giải pháp phải đầy đủ để thực thi. Tôi sẽ có thể gọi việc thực hiện ngôn ngữ, dán mã từ câu trả lời và nhận kết quả mà không cần nhập bất kỳ mã bổ sung nào.

Câu hỏi trên về sự hoàn thiện đã đưa ra trong bối cảnh của một giải pháp C. Chắc chắn phải có một quy tắc thường trực hoặc quy ước về điều này trên một trang web chơi golf mã? Nếu vậy, tôi sẽ sẵn lòng tuân thủ các nguyên tắc cộng đồng. Nhưng đây là của tôi:

1. Liên quan đến C cụ thể, bạn cần bao gồm (và đếm) main(){... }xung quanh mã, vì nó sẽ không biên dịch theo cách khác. Cảnh báo vì không có gì #include <stdio.h>tốt miễn là mã vẫn biên dịch. Nói chung, một ngôn ngữ được biên dịch đòi hỏi một đơn vị có thể biên dịch được.

2. Một biểu thức trần mang lại kết quả mong muốn có thể được chấp nhận nếu có cách thực hiện trực tiếp biểu thức; ví dụ, nếu ngôn ngữ có REPL. Vì vậy, bạn có thể gửi Haskell không có main=miễn là nó thực sự hoạt động như viết tại ví dụ như các ghcidấu nhắc. Nhưng vì điều đó có nghĩa là đưa letvào các tuyên bố của bạn, nó có thể là một chiến thắng ròng để gắn bó với runhaskellđịnh dạng.

3. Tương tự, awkcác tập lệnh nên nằm trong BEGIN(hoặc END, với giả định rằng stdin được gắn vào /dev/null) vì chúng tôi không xử lý bất kỳ đầu vào nào.

v.v.

APL (5)

⍪4/⎕A

Định dạng ma trận ( ⍪) của 4 bản sao ( 4/) của bảng chữ cái ( ⎕A).

Con trăn - 37

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

iđi từ 0 đến 104; nó được chia cho bốn và được thêm vào giá trị ascii Avà ký tự kết quả được in.

R, 30 28 27

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

Phiên bản cũ với 30 byte:

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

C, 59

Tôi gửi bài này, một câu trả lời dài không khoan nhượng, đơn giản vì tôi chưa thấy bài nộp C. Và điều đó làm cho tôi buồn. : - /

LATER: Đạo cụ cho @moala để thực hiện phiên bản int "/ 4" này, tiết kiệm 13 ký tự!

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

J: 18 13

4#u:65+i.26 1

^{Tôi vẫn còn khá run với J, vì vậy điều này có thể được cải thiện}

Ruby, 23

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

Tất cả tín dụng cho @manatwork - nâng cao nhận xét của anh ấy, không phải điều này. :)

PowerShell: 32 23

Mã đánh gôn:

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

Hướng dẫn:

[char[]](... )Lấy một mảng các đối tượng và chuyển đổi chúng thành các ký tự ASCII.
65..90là các mã ASCII cho AZ.
*4lặp lại bộ 4 lần.
|Sortsắp xếp đầu ra.

Chú thích:

Nếu bạn muốn điều này được ghi vào một tệp, chỉ cần ném >, theo sau là tên tệp, ở cuối.

Haskell, 46

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

Befunge 98 - 18

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

Hoạt động bằng cách lưu trữ một số và kết thúc khi nó đạt 104. In ra ký tự tương ứng của bảng chữ cái cho số chia cho 4, theo sau là một dòng mới. Nhưng nếu tôi không cần thêm một dòng mới sau mỗi chữ cái, thì đó là 16 ký tự:

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

Có thể giảm nếu tôi có thể in nhiều ký tự hơn (tức là tất cả bốn lần) ( 7 6 ký tự, thậm chí hoạt động trong Befunge 93):

1+:4/,

Với dòng mới:

1+:4/,a,

GolfScript: 17 15 ký tự

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 cũng vậy:

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

Cảm ơn @marinus, 43:

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

Tôi có nên thêm một tiền thưởng để nhận được 42? :)

Java: 56

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

chỉnh sửa: đã thay đổi từ 'print' thành 'println'

Viết tắt, 37

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

Trên thực tế, 6 byte

4ú*SÖi

Hãy thử nó ở đây!

Giải trình

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 byte có chữ thường và không có dòng mới:

4ú*S

Mã máy 16 bit x86 MS-DOS COM, 25 byte

Trong hex:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

Đây là một chương trình MS-DOS .COM hoàn chỉnh. Sao chép chuỗi byte vào tệp có phần mở rộng .com và chạy nó từ DOSBox

Tháo gỡ:

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

Hãy thử với AWK ...

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

Theo đề xuất của manatwork, chúng ta có thể thoát khỏi 2 ký tự

AWK, 46 (Chỉnh sửa)

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

AWK, 40 (chỉnh sửa mã của MarkReed )

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

PowerShell, 21

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

Một cách tiếp cận hơi khác với Iszi. Và ngắn hơn :-)

C # LINQ 115 Byte 110 byte

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

05AB1E, 6 byte

A4×{S»

Giải trình:

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

Không có dòng mới, 4 byte

A4×{

Hãy thử trực tuyến!

Jelly , 5 byte (không cạnh tranh?)

ØAx4Y

Hãy thử trực tuyến!

Giải trình:

Ø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 byte

Ｚ４１＊⟳

Hãy thử nó ở đây!

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

Với ¶thay thế bằng \nkhi in ấn.

Kotlin , 66 59 byte

Lưu 7 byte loại bỏ cho vòng lặp.

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

Hãy thử trực tuyến!

Brainfuck , 48 byte

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

Hãy thử trực tuyến!

In bằng chữ thường, ngăn cách bởi trả lại vận chuyển. Sử dụng gói các ô 8 bit cũng như các ô còn lại của điểm gốc, mặc dù bạn có thể thêm một ô >để truy cập vào ô sau.

Bash: 24 ký tự

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

Đc: 35 ký tự

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

Scala, 42

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

Julia, 39 , 36

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