Bunun, alfabeyi dört kez yazdırmayla aynı olmadığını unutmayın .

Bu görev, standart çıktıda, her satırda bir harf olmak üzere, İngilizce alfabenin her bir harfinin dört kopyasını oluşturmak için bir program yazmaktır:

A
A
A
A
B
B
B
B

vb.

Çıktı, her harften sonra yeni satırları içermelidir.

Fazladan çıkış olmayan büyük harfler tercih edilir; bununla birlikte, eğer büyük harf / sıyırma çözümünüzü uzatırsa, küçük harfler ve / veya fazladan boşluklar kabul edilebilir.

EKLEME EDİLDİ: Çözümün yürütülmesi için yeterince eksiksiz olması gerekiyor. Herhangi bir ek kod yazmadan, dilin bir uygulamasını çağırabilir, yanıttan kodu yapıştırabilir ve sonuç alabilmeliyim.

Yukarıdaki bütünlük sorunu bir C çözümü bağlamında gündeme geldi. Elbette bir kod golf sitesinde bu konuda sürekli bir kural veya kongre olmalı? Öyleyse, memnuniyetle topluluk kurallarına uyacağım. Ama bu benim almam:

1. Özellikle C ile ilgili olarak , kodun etrafına main(){... }kodunu eklemeniz (ve saymanız) gerekir , çünkü aksi takdirde derlenmez. Uyarılar, çünkü #include <stdio.h>kod hala devam ettiği sürece para cezası yoktur . Genel olarak, derlenmiş bir dil, derlenebilir bir birim gerektirir.

2. İfadeyi doğrudan uygulamanın bir yolu varsa, istenen sonuçları veren çıplak bir ifade kabul edilebilir; Örneğin, eğer dilde bir REPL varsa Bir olmadan Haskell gönderebilirsiniz Yani main=uzun de yazıldığı gibi aslında çalışır gibi örneğinghci istemi. Ancak bu, letbildirimlerinizi koymak anlamına geldiğinden , runhaskellformata uymanız net bir kazanç olabilir .

3. Benzer şekilde, herhangi bir girdiyi işlemediğimiz için awkkomut dosyaları BEGIN(veya ENDstdin'in bağlı olduğu varsayımıyla /dev/null) bloklarda olmalıdır.

vb.

APL (5)

⍪4/⎕A

Alfabenin ( ) ⍪4-çoğaltmasının ( 4/) Matris biçimi ( ⎕A).

Python - 37

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

i0 ila 104; dörde bölünür ve ascii değerine eklenir Ave elde edilen karakter yazdırılır.

R, 30 28 27

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

30 baytlık eski sürüm:

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

C, 59

Bunu, rekabetçi olmayan uzun bir cevabı sunuyorum, çünkü henüz bir C başvurusu görmedim. Ve bu beni üzüyor. : - /

SONRA: 13 karakterden tasarruf ederek bunun "/ 4" int versiyonunu yapmak için @moala'ya destek!

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

J: 18 13

4#u:65+i.26 1

^{Hala J ile oldukça titriyorum, bu yüzden muhtemelen geliştirilebilir}

Ruby, 23

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

@Manatwork'a verilen tüm kredi - yorumuna oy ver, bunu değil. :)

PowerShell: 32 23

Golf kodu:

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

İzlenecek yol:

[char[]](... )bir dizi nesneyi alır ve ASCII karakterlerine dönüştürür.
65..90AZ için ASCII kodlarıdır.
*4seriyi 4 kez tekrarlar.
|Sortçıktıyı sıralar.

Not:

Bunun bir dosyaya yazılmasını istiyorsanız >, sonunda bir dosya adı ve ardından bir dosya atın.

Haskell, 46

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

Befunge 98 - 18

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

Bir numarayı depolayarak ve 104'e ulaştığında biten şekilde çalışır. Alfabenin ilgili karakterini, 4'e bölünmüş sayının, ardından yeni bir satırın ardından yazdırır. Fakat her harften sonra yeni bir satır eklememe gerek kalmazsa, o zaman 16 karakter:

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

Daha fazla karakter yazdırabilirsem (örneğin hepsi dört kez) azaltabilirim ( 7 6 karakter, hatta Befunge 93'te çalışıyor):

1+:4/,

Newline ile:

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

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

@ Marinus'a teşekkür ederim, 43:

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

42'ye yükseldiğim için bir ödül eklemeli miyim? :)

Java: 56

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

edit: 'print' den 'println' ye değiştirildi

İleri, 37

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

Aslında, 6 bayt

4ú*SÖi

Burada dene!

açıklama

4ú*SÖi

4 *         Do 4 times
 ú          Create string of alphabet in lowercase
   S        Sort it
    Ö       Switch Case
     i      Push each character of string

Küçük harfli ve yeni satırsız 4 bayt:

4ú*S

16-bit x86 makine kodu MS-DOS COM, 25 bayt

Onaltılı olarak:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

Bu tam bir MS-DOS .COM programıdır. Bayt dizisini .com uzantılı dosyaya kopyalayın ve DOSBox'tan çalıştırın

demontaj:

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

AWK ile deneyelim ...

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

Manatwork'ün önerdiği gibi 2 karakterden kurtulabiliriz

AWK, 46 (Düzenle)

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

AWK, 40 ( MarkReed kodunu düzenleme )

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

PowerShell, 21

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

Iszi'ye biraz farklı bir yaklaşım. Ve daha kısa :-)

C # LINQ 115 Bayt 110 Bayt

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

05AB1E, 6 bayt

A4×{S»

Açıklama:

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

Yeni satırlar olmadan, 4 bayt

A4×{

Çevrimiçi deneyin!

Jöle , 5 bayt (rekabet etmeyen?)

ØAx4Y

Çevrimiçi deneyin!

Açıklama:

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

Tuval , 5 bayt

Ｚ４１＊⟳

Burada dene!

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

Üzerine baskı ile ¶değiştirilir \n.

Kotlin , 66 59 bayt

Döngü için kaldırma 7 bayt kaydedin.

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

Çevrimiçi deneyin!

brainfuck , 48 bayt

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

Çevrimiçi deneyin!

Küçük harflerle yazdırılır, satırbaşları ile ayrılır. 8 bitlik hücreleri ve orijinden kalan hücreleri kullanır, ancak ikinciye >karşı koymak için bir tane hazırlayabilirsiniz.

Bash: 24 karakter

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

Dc: 35 karakter

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