Perhatikan bahwa ini tidak sama dengan Cetak alfabet empat kali .

Tugas ini adalah untuk menulis program untuk menghasilkan empat salinan dari setiap huruf alfabet Inggris, satu huruf per baris, pada output standar:

A
A
A
A
B
B
B
B

dll.

Output harus menyertakan baris baru setelah setiap huruf.

Huruf besar tanpa hasil tambahan lebih disukai; Namun, huruf kecil dan / atau spasi putih dapat diterima jika menggunakan huruf besar / strip akan memperpanjang solusi Anda.

DIedit UNTUK MENAMBAH: Solusi harus cukup lengkap untuk dieksekusi. Saya harus dapat menjalankan implementasi bahasa, menempelkan kode dari jawaban, dan mendapatkan hasil, tanpa mengetikkan kode tambahan apa pun.

Pertanyaan kelengkapan di atas muncul dalam konteks solusi C. Tentunya harus ada aturan atau konvensi tentang hal ini di situs golf kode? Jika demikian, saya akan dengan senang hati memberikan panduan komunitas. Tapi ini yang saya ambil:

1. Berkenaan dengan C secara khusus, Anda perlu memasukkan (dan menghitung) main(){... di }sekitar kode, karena tidak akan mengkompilasi sebaliknya. Peringatan karena tidak ada #include <stdio.h>apa-apa asalkan kode masih dikompilasi. Secara umum, bahasa yang dikompilasi membutuhkan unit yang dapat dikompilasi.

2. Ekspresi kosong yang menghasilkan hasil yang diinginkan dapat diterima jika ada cara untuk mengeksekusi ekspresi secara langsung; misalnya, jika bahasa tersebut memiliki REPL. Jadi Anda bisa mengirimkan Haskell tanpa main=asalkan benar-benar bekerja seperti yang tertulis di misalnya yang ghcicepat. Tetapi karena itu berarti meletakkan letdeklarasi Anda, mungkin merupakan kemenangan bersih untuk tetap menggunakan runhaskellformat.

3. Demikian pula, awkskrip harus dalam BEGIN(atau END, dengan asumsi bahwa stdin dilampirkan /dev/null) blok karena kita tidak memproses input apa pun.

dll.

APL (5)

⍪4/⎕A

Format matriks ( ⍪) dari 4-replikasi ( 4/) dari alfabet ( ⎕A).

Python - 37

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

imulai dari 0 hingga 104; itu dibagi empat dan ditambahkan ke nilai ascii untuk A, dan karakter yang dihasilkan dicetak.

R, 30 28 27

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

Versi sebelumnya dengan 30 byte:

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

C, 59

Saya mengirimkan ini, jawaban yang sangat panjang dan tidak kompetitif, hanya karena saya belum melihat kiriman C. Dan itu membuatku sedih. : - /

LATER: Alat peraga ke @moala untuk melakukan versi int "/ 4" ini, menghemat 13 karakter!

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

J: 18 13

4#u:65+i.26 1

^{Saya masih agak gemetar dengan J, jadi ini mungkin bisa diperbaiki}

Ruby, 23

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

Semua kredit untuk @manatwork - komentarnya naik, bukan ini. :)

PowerShell: 32 23

Kode golf:

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

Panduan:

[char[]](... )mengambil larik objek dan mengonversinya menjadi karakter ASCII.
65..90adalah kode ASCII untuk AZ.
*4mengulangi seri 4 kali.
|Sortmacam output.

catatan:

Jika Anda ingin ini ditulis ke file, cukup lempar >, diikuti dengan nama file, di akhir.

Haskell, 46

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

Befunge 98 - 18

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

Bekerja dengan menyimpan nomor dan berakhir ketika mencapai 104. Mencetak karakter yang sesuai dari alfabet untuk angka dibagi dengan 4, diikuti oleh baris baru. Tetapi jika saya tidak perlu menambahkan baris baru setelah setiap huruf, maka itu adalah 16 karakter:

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

Dapat dikurangi jika saya dapat mencetak lebih banyak karakter (yaitu semuanya empat kali) ( 7 6 karakter, bahkan berfungsi di Befunge 93):

1+:4/,

Dengan baris baru:

1+:4/,a,

GolfScript: 17 15 karakter

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 juga:

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

Terima kasih kepada @marinus, 43:

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

Haruskah saya menambahkan hadiah untuk mendapatkan ke 42? :)

Jawa: 56

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

edit: diubah dari 'print' ke 'println'

Keempat, 37

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

Sebenarnya, 6 byte

4ú*SÖi

Coba di sini!

Penjelasan

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 Bytes dengan huruf kecil dan tanpa baris baru:

4ú*S

Kode mesin x86 16-bit MS-DOS COM, 25 byte

Dalam hex:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

Ini adalah program MS-DOS .COM yang lengkap. Salin urutan byte ke file dengan ekstensi .com dan jalankan dari DOSBox

Membongkar:

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

Mari kita coba dengan AWK ...

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

Seperti yang disarankan oleh manatwork kita bisa menyingkirkan 2 karakter

AWK, 46 (Edit)

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

AWK, 40 (mengedit kode MarkReed )

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

PowerShell, 21

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

Pendekatan yang sedikit berbeda dengan Iszi. Dan lebih pendek :-)

C # LINQ 115 Bytes 110 Bytes

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

05AB1E, 6 byte

A4×{S»

Penjelasan:

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

Tanpa baris baru, 4 byte

A4×{

Cobalah online!

Jelly, 5 bytes (non-competing?)

ØAx4Y

Try it online!

Explanation:

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

Ｚ４１＊⟳

Try it here!

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

With ¶ replaced with \n upon printing.

Kotlin, 66 59 bytes

Save 7 bytes removing for loop.

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

Try it online!

brainfuck, 48 bytes

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

Try it online!

Prints in lowercase, separated by carriage returns. Uses wrapping 8 bit cells as well as cells left of the origin, though you can prepend a > to counter the latter.

Bash: 24 characters

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

Dc: 35 characters

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