Beachten Sie, dass dies nicht dasselbe ist wie das viermalige Drucken des Alphabets .

Diese Aufgabe besteht darin, ein Programm zu schreiben, mit dem vier Exemplare jedes Buchstabens des englischen Alphabets (ein Buchstabe pro Zeile) in der Standardausgabe generiert werden:

A
A
A
A
B
B
B
B

etc.

Die Ausgabe sollte nach jedem Buchstaben neue Zeilen enthalten.

Großbuchstaben ohne zusätzliche Ausgabe werden bevorzugt. Kleinbuchstaben und / oder zusätzliche Leerzeichen sind jedoch zulässig, wenn die Lösung durch Groß- / Kleinschreibung verlängert wird.

EDITIERT ZUM HINZUFÜGEN: Die Lösung muss vollständig genug sein, um ausgeführt zu werden. Ich sollte in der Lage sein, eine Implementierung der Sprache aufzurufen, den Code aus der Antwort einzufügen und Ergebnisse zu erhalten, ohne zusätzlichen Code eingeben zu müssen.

Die obige Frage nach der Vollständigkeit wurde im Zusammenhang mit einer C-Lösung gestellt. Sicherlich muss es eine ständige Regel oder Konvention darüber auf einer Code-Golf-Site geben? Wenn ja, gebe ich mich gerne den Community-Richtlinien hin. Aber das ist meine Einstellung:

1. Im Hinblick auf die C speziell, müssen Sie umfassen (und zählen) , um die main(){... }um den Code, da es sonst nicht kompilieren. Warnungen, weil es keine gibt, #include <stdio.h>sind in Ordnung, solange der Code noch kompiliert wird. Im Allgemeinen erfordert eine kompilierte Sprache eine kompilierbare Einheit.

2. Ein nackter Ausdruck, der die gewünschten Ergebnisse liefert, ist akzeptabel, wenn es eine Möglichkeit gibt, den Ausdruck direkt auszuführen. Zum Beispiel, wenn die Sprache eine REPL hat. So können Sie Haskell ohne einreichen, main=solange es tatsächlich so funktioniert, wie es zB an der ghciEingabeaufforderung geschrieben steht. Aber da dies bedeutet, dass Sie letIhre Erklärungen abgeben müssen, kann es ein Gewinn sein, sich an das runhaskellFormat zu halten.

3. Ebenso sollten awkSkripte in Blöcken BEGIN(oder ENDmit der Annahme, dass stdin an /dev/nullBlöcke angehängt ist ) sein, da wir keine Eingaben verarbeiten.

etc.

APL (5)

⍪4/⎕A

Matrixformat ( ⍪) von 4-Replikation ( 4/) des Alphabets ( ⎕A).

Python - 37

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

igeht von 0 auf 104; Es wird durch vier geteilt und zum ASCII-Wert für addiert A, und das resultierende Zeichen wird gedruckt.

R 30 28 27

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

Frühere Version mit 30 Bytes:

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

C 59

Ich übermittle dies, eine nicht wettbewerbsfähige lange Antwort, einfach weil ich noch keine C-Übermittlung sehe. Und das macht mich traurig. : - /

SPÄTER: Wenden Sie sich an @moala, um eine int-Version von "/ 4" zu erstellen und 13 Zeichen zu sparen!

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

J: 18 13

4#u:65+i.26 1

^{Ich bin immer noch ziemlich wackelig mit J, also könnte dies wahrscheinlich verbessert werden}

Rubin, 23

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

Alles Lob an @manatwork - stimme seinem Kommentar zu, nicht diesem. :)

PowerShell: 32 23

Golf Code:

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

Exemplarische Vorgehensweise:

[char[]](... )nimmt ein Array von Objekten und konvertiert sie in ASCII-Zeichen.
65..90sind die ASCII-Codes für AZ.
*4Wiederholt die Serie 4 mal.
|Sortsortiert die Ausgabe.

Hinweis:

Wenn Sie möchten, dass dies in eine Datei geschrieben wird >, geben Sie am Ende einfach einen Dateinamen ein.

Haskell, 46

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

Befunge 98 - 18

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

Speichert eine Zahl und endet bei 104. Gibt das entsprechende Zeichen des Alphabets für die durch 4 geteilte Zahl aus, gefolgt von einer neuen Zeile. Aber wenn ich nicht nach jedem Buchstaben eine neue Zeile einfügen muss, dann sind es 16 Zeichen:

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

Kann reduziert werden, wenn ich mehr Zeichen drucken kann (dh alle vier Mal) ( 7 6 Zeichen, funktioniert sogar in Befunge 93):

1+:4/,

Mit newline:

1+:4/,a,

GolfScript: 17 15 Zeichen

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

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

Dank an @marinus, 43:

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

Sollte ich ein Kopfgeld für die Erreichung von 42 hinzufügen? :)

Java: 56

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

edit: geändert von 'print' zu 'println'

Viertens, 37

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

Eigentlich 6 Bytes

4ú*SÖi

Probieren Sie es hier aus!

Erläuterung

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 mit Kleinbuchstaben und ohne Zeilenumbruch:

4ú*S

16-Bit-x86-Computercode MS-DOS COM, 25 Byte

In hex:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

Dies ist ein vollständiges MS-DOS-COM-Programm. Kopieren Sie die Bytesequenz in die Datei mit der Erweiterung .com und führen Sie sie von DOSBox aus

Demontage:

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

Lass es uns mit AWK versuchen ...

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

Wie von manatwork vorgeschlagen, können wir 2 Zeichen loswerden

AWK, 46 (Bearbeiten)

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

AWK, 40 (Bearbeiten des MarkReed -Codes)

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

PowerShell, 21

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

Eine etwas andere Herangehensweise an Iszi's. Und kürzer :-)

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 Bytes

A4×{S»

Erläuterung:

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

Ohne Zeilenumbruch 4 Bytes

A4×{

Probieren Sie es online!

Gelee , 5 Bytes (nicht konkurrierend?)

ØAx4Y

Probieren Sie es online!

Erläuterung:

Ø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

Ｚ４１＊⟳

Probieren Sie es hier aus!

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

Mit ¶mit ersetzt \nbeim Drucken.

Kotlin , 66 59 Bytes

Speichern Sie das Entfernen von 7 Bytes für die Schleife.

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

Probieren Sie es online!

Brainfuck , 48 Bytes

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

Probieren Sie es online!

Druckt in Kleinbuchstaben, getrennt durch Wagenrücklauf. Verwendet das Umbrechen von 8-Bit-Zellen sowie von Zellen links vom Ursprung, obwohl Sie a voranstellen können >, um dem letzteren entgegenzuwirken.

Bash: 24 Zeichen

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

DC: 35 Zeichen

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