이것은 알파벳을 네 번 인쇄하는 것과는 다릅니다 .

이 작업은 표준 출력에서 ​​영어 알파벳의 각 문자의 4 개 사본 (한 줄에 하나씩)을 생성하는 프로그램을 작성하는 것입니다.

A
A
A
A
B
B
B
B

기타

출력에는 각 문자 다음에 줄 바꿈이 포함되어야합니다.

추가 출력이없는 대문자가 선호됩니다. 그러나 대문자 / 줄 바꿈으로 솔루션이 길어지면 소문자 및 / 또는 추가 공백이 허용됩니다.

추가 편집 : 솔루션이 실행하기에 충분해야합니다. 추가 코드를 입력하지 않고도 언어 구현을 호출하고 답변에서 코드를 붙여넣고 결과를 얻을 수 있어야합니다.

위의 완전성 문제는 C 솔루션의 맥락에서 나타났습니다. 코드 골프장에 대한 규칙이나 규칙이 반드시 있어야합니까? 그렇다면 커뮤니티 가이드에 기꺼이 양보하겠습니다. 그러나 이것은 나의 테이크입니다.

1. 특히 C와 관련 하여 코드 주위에 main(){... 을 포함하고 계산해야합니다 }. 그렇지 않으면 컴파일되지 않기 때문입니다. #include <stdio.h>코드가 여전히 컴파일되는 한 괜찮지 않기 때문에 경고 . 일반적으로 컴파일 된 언어에는 컴파일 가능한 단위가 필요합니다.

2. 식을 직접 실행할 수있는 방법이 있다면 원하는 결과를 얻는 맨손식이 허용됩니다. 예를 들어, 언어에 REPL이있는 경우. 당신은없이 하스켈을 제출할 수 있도록 main=길이에 기록 된대로 실제로 작동 한 예ghci 프롬프트. 그러나 let그것은 당신의 선언 을 의미한다는 것을 의미 하기 때문에 runhaskell형식 을 고수하는 것이 순 승리 일 수 있습니다 .

3. 마찬가지로, 입력을 처리하지 않기 때문에 awk스크립트는 BEGIN(또는 ENDstdin이 첨부되었다는 가정하에 /dev/null) 블록 에 있어야 합니다.

기타

APL (5)

⍪4/⎕A

알파벳 ( ) ⍪의 4 개 복제 ( 4/)의 행렬 형식 ( )⎕A

파이썬-37

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

i0에서 104로 간다. 4로 나누어지고에 대한 ASCII 값에 추가되고 A결과 문자가 인쇄됩니다.

R, 30 28 27

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

30 바이트의 이전 버전 :

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

C, 59

나는 C 제출을 아직 보지 못했기 때문에 경쟁적으로 긴 대답을 제출합니다. 그리고 그것은 나를 슬프게한다. :-/

LATER : @moala에 "/ 4"int 버전을 사용하여 13자를 절약합니다!

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

J : 18 13

4#u:65+i.26 1

^{나는 여전히 J와 꽤 흔들리고 있습니다. 그래서 이것은 아마 향상 될 수 있습니다}

루비, 23

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

@manatwork에 대한 모든 크레딧-이 아니라 그의 의견을 찬성합니다. :)

PowerShell : 32 23

골프 코드 :

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

연습 :

[char[]](... )객체 배열을 가져 와서 ASCII 문자로 변환합니다.
65..90AZ의 ASCII 코드입니다.
*4시리즈를 4 번 반복합니다.
|Sort출력을 정렬합니다.

노트 :

이것을 파일에 쓰 >려면 마지막에 파일 이름 뒤에을 던지십시오 .

하스켈, 46

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

빌 펀지 98-18

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

숫자를 저장하고 104에 도달하면 끝납니다. 숫자를 4로 나눈 문자의 해당 문자를 개행 문자로 인쇄합니다. 그러나 각 문자 뒤에 줄 바꿈을 추가 할 필요가 없으면 16 자입니다.

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

더 많은 문자를 인쇄 할 수 있다면 (즉, 모두 4 번) 줄일 수 있습니다 ( 7 6 자, 심지어 Befunge 93에서도 작동).

1+:4/,

줄 바꿈으로 :

1+:4/,a,

GolfScript : 17 15 자

26,{65+...}%+n*

펄 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도 :

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

@marinus, 43 덕분에 :

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

42 세가되면 현상금을 추가해야하나요? :)

자바 : 56

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

편집 : 'print'에서 'println'으로 변경되었습니다.

37 위

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

실제로 6 바이트

4ú*SÖi

여기 사용해보십시오!

설명

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 바이트 :

4ú*S

16 비트 x86 머신 코드 MS-DOS COM, 25 바이트

16 진수로 :

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

이것은 완전한 MS-DOS .COM 프로그램입니다. 바이트 시퀀스를 .com 확장자를 가진 파일로 복사하고 DOSBox에서 실행하십시오.

분해 :

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로 시도해보십시오 ...

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

manatwork에서 제안한대로 2 개의 문자를 제거 할 수 있습니다.

AWK, 46 (편집)

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

AWK, 40 ( MarkReed 코드 편집 )

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

PowerShell, 21

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

Iszi에 대한 약간 다른 접근법. 그리고 더 짧은 :-)

C # LINQ 115 바이트 110 바이트

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

05AB1E, 6 바이트

A4×{S»

설명:

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

줄 바꿈없이 4 바이트

A4×{

온라인으로 사용해보십시오!

Jelly , 5 바이트 (비경쟁?)

ØAx4Y

온라인으로 사용해보십시오!

설명:

ØAx4Y Main link
ØA    “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
   4  4
  x   Repeat each element of x y times
    Y Join x with newlines

펄 6, 32

.say for (('A'..'Z') »xx»4)[*;*]

캔버스 , 5 바이트

Ｚ４１＊⟳

여기 사용해보십시오!

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

로 ¶대체 \n인쇄시.

코 틀린 , 66 59 바이트

for 루프를 제거하여 7 바이트를 저장하십시오.

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

온라인으로 사용해보십시오!

brainfuck , 48 바이트

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

온라인으로 사용해보십시오!

캐리지 리턴으로 구분하여 소문자로 인쇄합니다. 8 비트 셀과 원점에서 남은 셀을 래핑하는 데 사용하지만 >후자를 카운터하기 위해 a 를 붙일 수 있습니다 .

배쉬 : 24 자

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

Dc : 35 자

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

스칼라, 42

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

줄리아, 39 , 36

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