이 정확한 텍스트를 인쇄해야합니다.

ABABABABABABABABABABABABAB
BCBCBCBCBCBCBCBCBCBCBCBCBC
CDCDCDCDCDCDCDCDCDCDCDCDCD
DEDEDEDEDEDEDEDEDEDEDEDEDE
EFEFEFEFEFEFEFEFEFEFEFEFEF
FGFGFGFGFGFGFGFGFGFGFGFGFG
GHGHGHGHGHGHGHGHGHGHGHGHGH
HIHIHIHIHIHIHIHIHIHIHIHIHI
IJIJIJIJIJIJIJIJIJIJIJIJIJ
JKJKJKJKJKJKJKJKJKJKJKJKJK
KLKLKLKLKLKLKLKLKLKLKLKLKL
LMLMLMLMLMLMLMLMLMLMLMLMLM
MNMNMNMNMNMNMNMNMNMNMNMNMN
NONONONONONONONONONONONONO
OPOPOPOPOPOPOPOPOPOPOPOPOP
PQPQPQPQPQPQPQPQPQPQPQPQPQ
QRQRQRQRQRQRQRQRQRQRQRQRQR
RSRSRSRSRSRSRSRSRSRSRSRSRS
STSTSTSTSTSTSTSTSTSTSTSTST
TUTUTUTUTUTUTUTUTUTUTUTUTU
UVUVUVUVUVUVUVUVUVUVUVUVUV
VWVWVWVWVWVWVWVWVWVWVWVWVW
WXWXWXWXWXWXWXWXWXWXWXWXWX
XYXYXYXYXYXYXYXYXYXYXYXYXY
YZYZYZYZYZYZYZYZYZYZYZYZYZ
ZAZAZAZAZAZAZAZAZAZAZAZAZA

명세서

• 모든 대문자 대신 소문자를 모두 인쇄 할 수 있습니다. 그러나 대소 문자는 출력 전체에서 일관성이 있어야합니다.
• 후행 줄 바꿈 하나를 추가로 인쇄 할 수 있습니다.

채점

이것은 약간 변동하는 알파벳 파이므로, 코드도 바이트 수 측면에서 작아야합니다. 실제로, 바이트 수 측면에서 가장 작은 코드가 이깁니다.

C, 60 바이트

main(i){for(;i<703;)putchar(i++%27?65+(i/27+i%27%2)%26:10);}

Brainfuck, 104 바이트

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

볼록, 10 바이트

U_(+]D*zN*

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

U               Predefined Variable: "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 _(+            Push a copy with the 'A at the end.
    ]           Add both strings to an array.
     D*         Repeat array 13 times. D defaults to 13.
       z        Transpose.
        N*      Join by newlines. N defaults to "\n"

Pyth, 11 10 바이트

jC*13.<BG1

여기에서 시도하십시오.

        G   the alphabet
       B    bifurcate over
     .<  1  left shift by 1
  *13       repeat 13 times
 C          transpose
j           join on newlines

Vim, 85 83 바이트

:h<_<cr><cr><cr>YZZP:s/./\0\r/g<cr><c+v>ggy25Pqqlxj:let @a='xkPjj'<cr>25@akia<esc>25klq11@qh<ctrl+v>25jylpl<c+v>25jdGdd

나는 이것이 더 골프를 타는 것을 알고있다. 그러나 나의 머리는 아프다. 그래서 나는 이제 멈춰야한다.

<cr>Enter 키이고 <c+v>ctrl + v이며 <esc>이스케이프 키입니다. 그것들은 모두 1 바이트로 계산되었습니다.

나는 이것의 gif를 기록했지만 망쳤다. 비디오는 괜찮습니다 : http://recordit.co/ldLKvho9Gi

루비, 42 39 38 37 바이트

@ user81655 덕분에 -3 바이트 @manatwork
덕분에
-1 바이트 @NotthatCharles 덕분에 -1 바이트

?A.upto(?Z){|a|puts (a+a.next[0])*13}

repl.it에서 참조하십시오 : https://repl.it/CmOJ

체다, 48 바이트

print(65|>90).map(l->@"[l,l>89?65:l+1]*13).vfuse

체다는 문자열에 좋습니다 : D

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

설명

print
  (65|>90)            // Range from 65 (A) to 90 (Z)
  .map(l->            // Map through range
    @"                // Convert following array of char codes to string
      [l,             // The character 
       l>89?65:l+1]   // See below for explanation
      *13             // Repeat 13 times
  ).vfuse             // Vertically fuse

무엇을 l>89?65:l+1합니까? 음 89의 문자 코드입니다 Y. 기본적으로 l>89문자가 있는지 확인하는 Z것이므로 다시 반환해야합니다 A. l>89거짓 인 경우 . l+1다음 문자로 돌아갑니다

젤리 , 10 바이트

26ḶḂØAṙZj⁷

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

작동 원리

26ḶḂØAṙZj⁷  Main link. No arguments.

26Ḷ         Yield [0, ..., 25].
   Ḃ        Bit; compute the parity of each intger.
    ØAṙ     Rotate the alphabet by these amounts.
       Z    Zip; transpose rows and columns.
        j⁷  Join, separating by linefeeds.

하스켈, 60 58 바이트

mapM putStrLn[[0..12]>>[a,b]|a:b:_<-scanr(:)"A"['A'..'Z']]

"A"로 시작 하면 오른쪽 scanr(:)문자부터 목록이 작성 ['A'..'Z']됩니다. (-> ["ABCDE...A", "BCDEF..A", ..., "XYZA", "YZA", "ZA", "A"]). (a:b:_)각 하위 목록의 첫 두 문자 (최소 두 문자 이상)와 일치하고 13 개의 사본을 만듭니다.

PowerShell, 49 43 바이트

TimmyD의 리믹스 :

65..89|%{-join[char[]]($_,++$_)*13};"ZA"*13

49 바이트였다 :

0..25|%{(""+[char]($_+++65)+[char]($_%26+65))*13}

파이썬 2, 70 68 54 바이트

목록 기반 솔루션 :

L=map(chr,range(65,91))
for i in range(-26,0):print(L[i]+L[i+1])*13

그러나 왜 목록을 작성합니까? 감사합니다 LeakyNun :

for i in range(26):print(chr(i+65)+chr(-~i%26+65))*13

R, 72 67 60 56 바이트

write(matrix(LETTERS[c(1:26,2:26,1)],26,26,T),"",26,,"")

@Giuseppe 에게 감사합니다여분의 4 바이트 에게 !

rep60 바이트의 구식 솔루션 :

for(i in 1:26)cat(rep(LETTERS[c(i,i%%26+1)],13),"\n",sep="")

온라인 통역사를 참조 하십시오 . 여분의 7 바이트를 끈 @ user5957401 에게 감사드립니다 !

72 바이트의 오래된 매트릭스 기반 솔루션 :

for(i in 1:26)cat(matrix(LETTERS[c(1:26,2:26,1)],26,26)[i,],"\n",sep="")

온라인 통역사를 참조 하십시오 .

MATL , 13 바이트

1Y2tn:!to~!+)

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

1Y2    % Predefined string literal: 'AB···Z'
tn:    % Duplicate, number of elements, range: gives [1, 2, ···, 26]
!      % Transpose into a column vector
to~!   % Duplicate and transform into [0, 1, 0, 1, ···, 1] using modulo 2
+      % Addition with broadcast. Gives 2D numeric array
)      % Index (modularly) into string. Implicitly display.

해파리 , 26 바이트

P
+'A
~
| S
+$ r2
 ,'
r'

마지막 두 줄에 인쇄 할 수없는 문자가 있습니다. 온라인으로 사용해보십시오!

설명

이것은 기본적으로 산술 조작 방식입니다. 0-1 패턴이 교대로 26x26 그리드를 만들고 각 행의 인덱스를 행의 모든 ​​요소에 추가하고 mod 26을 줄이고의 ASCII 값을 추가하십시오 A. 해파리의 문자는 특수 플래그가있는 숫자 일뿐이며 모든 산술 작업은 예상대로 수행됩니다.

아래에서 위로 :

• '의 문자 리터럴; ASCII 코드 26으로 인쇄 할 수없는 문자가 뒤 따르며 해당 문자를 나타냅니다.
• 낮은 값 r은 0에서 25까지의 문자 범위를 계산합니다.
• 는 ,두 인쇄 할 수없는 문자의 쌍을 형성한다.
• 높을수록 r인수가 주어지며 2범위를 형성합니다 [0 1].
• 이 $범위를 취하여 인쇄 할 수없는 한 쌍인 다른 인수로 지정된 모양으로 범위를 변경합니다. 이것은 26x26 매트릭스의 교번 행을 제공합니다0 1 0 1 0 1 ...
• 낮을수록 +문자 범위 0-25가이 행렬에 추가됩니다. 행의 가산에 분배, 그래서 로우 나는 만큼 증가 나 . 남쪽 인수가 문자로 구성되어 있기 때문에 문자 행렬로 변환됩니다.
• 는 ~|플립 인수 계수이다 : (상기 사우스 인자 (상기 숯 매트릭스) 동쪽 인수 모듈러 감소 S이 인쇄 할 수없는 문자 (26) 그래서, 회전 인자 추구 공정 남쪽).
• 값이 높을수록 결과 행렬의 모든 좌표에 +리터럴 A이 추가 됩니다.
• P인쇄, 따옴표없이 한 줄에 각 행이다 매트릭스 형식의 결과.

Vim, 31 바이트

:h<_↵↵↵YZZPJra0qqy2l13Plr↵25@qD

↵Return 키는 어디에 있습니까 ?

펄, 26 바이트

@Dom Hastings의 솔루션 . (12 나보다 더 짧은 바이트!)
-1 바이트 덕분에 @Ton Hospel을

say+($_++,chop)x13for A..Z

-M5.010또는로 실행 -E:

perl -E 'say+($_++,chop)x13for A..Z'

T-SQL 133 바이트 (골프 : @ t-clausen.dk)

SELECT REPLICATE(Char(number+65)+IIF(number=25,'A',Char(number+66)),13)FROM spt_values WHERE number<26and'P'=TYPE

T-SQL, 151 바이트

CTE를 사용하여 일련의 숫자 생성

;WITH n(a,v) AS(SELECT CHAR(65)+CHAR(66), 66 UNION ALL SELECT CHAR(v)+CHAR(v+1), v+1 FROM n WHERE v < 91)SELECT REPLICATE(REPLACE(a,'[','A'),13) FROM n

T-SQL, 155 바이트

SELECT REPLICATE(Char(number+65)+ CASE WHEN number=25 THEN 'A' ELSE Char(number+66) END, 13) FROM master.dbo.spt_values  WHERE name IS NULL AND number < 26

줄리아, 46 바이트

[println("$c$(c+1-26(c>89))"^13)for c='A':'Z']

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

Pyth, 10 바이트

jCm.<G~!ZG

데모

설명:

jCm.<G~!ZG
  m      G    Map over G, predefined to the lowercase alphabet.
              This will give 26 columns.
   .<G        Left shift (cyclically) G by
        Z     Z elements. Z is initialized to 0.
      ~!      After using its value, logical not Z. (0 -> 1, 1 -> 0)
 C            Transpose
j             Join on newlines

Brainfuck, 88 86 바이트

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

8 비트 셀과 테이프가 왼쪽에 묶이지 않은 인터프리터가 필요합니다. 온라인으로 사용해보십시오!

루아, 80 65 바이트.

s = string c = s.char for i=1,26 do print(s.rep(c(64+i)..c((65+(i%26))),13)) end

Leaky Nun의 도움으로

c=("").char for i=1,26 do print((c(64+i)..c(65+i%26)):rep(13))end

루아는 문자열 처리와 관련하여 매우 부족한 언어이므로 좁힐 수있는 최선의 방법입니다.

Brachylog , 30 24 20 바이트

@Ab : "a"c : @Arz : {: 12jc : @Nc.} a : wa 
@Ab : "a"c : @Arze : 12jcw @ Nw \
@A $ (: @ Arze : 12jcw @ Nw \

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

05AB1E, 12 바이트

ADÀ)øvyJ5Ø×,

설명

AD            # push 2 copies of the alphabet
  À           # rotate the 2nd one left by 1
   )ø         # add to list and zip
     v        # for each
      yJ      # join the pair
        5Ø×   # repeat it 13 times
           ,  # print with newline

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

매스 매 티카, 82 75 67 66 바이트

Print@FromCharacterCode@PadLeft[{},26,{i-1,i}~Mod~26+65]~Do~{i,26}

대문자 대신 소문자로 인쇄하지만 기술적으로 더 짧습니다.

Mathematica, 64 바이트

Print[""<>FromLetterNumber@Table[{i-1,i}~Mod~26+1,13]]~Do~{i,26}

TSQL, 111 바이트

DECLARE @o varchar(702)='',@ int=1WHILE @<702SELECT @o+=CHAR(IIF(@%27=0,10,65+(@/27+1-@%27%2)%26)),@+=1PRINT @o

깡깡이

MATLAB, 47 38 바이트

a=(65:90)';char(repmat([a a([2:end 1])],1,13))

char(repmat([65:90;[66:90 65]]',1,13))

첫 번째는 알파벳의 열 배열을 ASCII로 만들고 오른쪽으로 이동 된 사본을 열로 추가하고 결과 26 * 2 배열을 열로 13 번 복제 한 다음 문자 배열로 캐스트하고 기본적으로 인쇄합니다.

두 번째는 알파벳과 쉬프트 된 알파벳의 2 * 26 배열을 만들고, 옮긴 다음 위와 같이 계속합니다.

J, 20 19 바이트

마일 덕분에 1 바이트.

u:65+26|(+/2&|)i.26

온라인 통역사

이것은 실제로 챌린지에서 텍스트를 생성하는 데 사용한 프로그램입니다.

네오 스크립트 , 59 바이트

a=('A:[]:'Z)+'Aeach n=0:[]:25console:log((a[n]+a[n+1])*13);

PHP, 102 바이트

<?php $a='ABCDEFGHIJKLMNOPQRSTUVWXYZA';$i=-1;while($i++<25){echo str_repeat(substr($a,$i,2),13)."\n";}

루비, 41 바이트

26.times{|i|puts [*?A..?Z,?A][i,2]*''*13}