Pamiętaj, że to nie to samo, co Wydrukuj alfabet cztery razy .

To zadanie polega na napisaniu programu do generowania czterech kopii każdej litery alfabetu angielskiego, po jednej literze na wiersz, na standardowym wyjściu:

A
A
A
A
B
B
B
B

itp.

Wynik powinien zawierać znaki nowej linii po każdej literze.

Preferowane są wielkie litery bez dodatkowego wyjścia; jednak małe litery i / lub dodatkowe białe znaki są dopuszczalne, jeśli wielkie litery / striping wydłużyłyby twoje rozwiązanie.

Zredagowano, aby dodać : Rozwiązanie musi być wystarczająco kompletne, aby wykonać. Powinienem móc wywołać implementację języka, wkleić kod z odpowiedzi i uzyskać wyniki bez wpisywania dodatkowego kodu.

Powyższe pytanie kompletności pojawiło się w kontekście rozwiązania C. Czy na pewno musi istnieć stała zasada lub konwencja na stronie gry w golfa? Jeśli tak, chętnie skorzystam z wytycznych społeczności. Ale to jest moje zdanie:

1. W szczególności w odniesieniu do C musisz uwzględnić (i policzyć) main(){... }wokół kodu, ponieważ inaczej nie skompiluje się. Ostrzeżenia, ponieważ nie ma nic #include <stdio.h>złego, dopóki kod się kompiluje. Ogólnie rzecz biorąc, skompilowany język wymaga kompilowalnej jednostki.

2. Nagie wyrażenie dające pożądane wyniki jest dopuszczalne, jeśli istnieje sposób bezpośredniego wykonania wyrażenia; na przykład, jeśli język ma REPL. Możesz więc przesłać Haskell main=tak długo, jak faktycznie działa tak, jak napisano np. W ghcimonicie. Ponieważ jednak oznacza letto, że będziesz składać deklaracje, trzymanie się tego runhaskellformatu może być wygraną netto .

3. Podobnie awkskrypty powinny znajdować się w blokach BEGIN(lub ENDprzy założeniu, że stdin jest dołączony /dev/null), ponieważ nie przetwarzamy żadnych danych wejściowych.

itp.

APL (5)

⍪4/⎕A

Format macierzowy ( ⍪) 4-replikacji ( 4/) alfabetu ( ⎕A).

Python - 37

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

izmienia się od 0 do 104; jest dzielony przez cztery i dodawany do wartości ascii dla A, a wynikowy znak jest drukowany.

R, 30 28 27

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

Poprzednia wersja z 30 bajtami:

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

C, 59

Podaję tę, niekonkurencyjnie długą odpowiedź, po prostu dlatego, że nie widzę jeszcze zgłoszenia C. I to mnie smuci. : - /

PÓŹNIEJ: Wspiera @moala za wykonanie int wersji „/ 4”, oszczędzając 13 znaków!

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

J: 18 13

4#u:65+i.26 1

^{Nadal jestem dość niepewny z J, więc prawdopodobnie można to poprawić}

Ruby, 23 lata

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

Podziękowania dla @manatwork - głosujcie na jego komentarz, a nie na to. :)

PowerShell: 32 23

Kod do gry w golfa:

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

Przewodnik:

[char[]](... )pobiera tablicę obiektów i konwertuje je na znaki ASCII.
65..90to kody ASCII dla AZ.
*4powtarza serię 4 razy.
|Sortsortuje dane wyjściowe.

Uwaga:

Jeśli chcesz to zapisać do pliku, po prostu rzuć >, a następnie nazwę pliku na końcu.

Haskell, 46

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

Befunge 98-18

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

Działa poprzez zapisywanie liczby i kończenie jej, gdy osiągnie 104. Drukuje odpowiedni znak alfabetu dla liczby podzielonej przez 4, a następnie nowej linii. Ale jeśli nie muszę dodawać nowego wiersza po każdej literze, to jest 16 znaków:

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

Można zmniejszyć, jeśli mogę wydrukować więcej znaków (tj. Wszystkie cztery razy) ( 7 6 znaków, nawet działa w Befunge 93):

1+:4/,

Z nową linią:

1+:4/,a,

GolfScript: 17 15 znaków

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 też:

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

Dzięki @marinus, 43:

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

Czy powinienem dodać nagrodę za dotarcie do 42? :)

Java: 56

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

edycja: zmieniono z „print” na „println”

Czwarty, 37

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

Właściwie 6 bajtów

4ú*SÖi

Wypróbuj tutaj!

Wyjaśnienie

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 bajty małymi literami i bez nowej linii:

4ú*S

16-bitowy kod maszynowy x86 MS-DOS COM, 25 bajtów

W hex:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

Jest to kompletny program MS-DOS .COM. Skopiuj sekwencję bajtów do pliku z rozszerzeniem .com i uruchom ją z DOSBox

Demontaż:

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

Spróbujmy z AWK ...

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

Jak sugeruje manatwork , możemy pozbyć się 2 znaków

AWK, 46 (Edytuj)

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

AWK, 40 (edycja kodu MarkReeda )

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

PowerShell, 21

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

Nieco inne podejście do Isziego. I krócej :-)

C # LINQ 115 bajtów 110 bajtów

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

05AB1E, 6 bajtów

A4×{S»

Wyjaśnienie:

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

Bez nowego wiersza 4 bajty

A4×{

Wypróbuj online!

Galaretka , 5 bajtów (niekonkuruje?)

ØAx4Y

Wypróbuj online!

Wyjaśnienie:

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

Płótno , 5 bajtów

Ｚ４１＊⟳

Wypróbuj tutaj!

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

Z ¶zastąpiony \nprzy drukowaniu.

Kotlin , 66 59 bajtów

Zaoszczędź 7 bajtów usuwając pętlę.

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

Wypróbuj online!

pieprzenie mózgu , 48 bajtów

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

Wypróbuj online!

Drukuje małymi literami, oddzielone znakami powrotu karetki. Używa owijania 8-bitowych komórek, a także komórek pozostawionych od początku, chociaż możesz dodać a, >aby przeciwdziałać temu ostatniemu.

Bash: 24 znaki

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

Dc: 35 znaków

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