Bạn phải in văn bản chính xác này:

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

Thông số kỹ thuật

• Bạn có thể in tất cả chữ thường thay vì tất cả chữ hoa. Tuy nhiên, trường hợp phải nhất quán trong suốt đầu ra.
• Bạn có thể in thêm một linefeed trailing.

Chấm điểm

Vì đây là một sóng bảng chữ cái dao động ở một mức độ nhỏ, mã của bạn cũng phải nhỏ về số lượng byte. Trong thực tế, mã nhỏ nhất về số lượng byte chiến thắng.

C, 60 byte

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

Brainfuck, 104 byte

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

Lồi, 10 byte

U_(+]D*zN*

Hãy thử trực tuyến!

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"

Bình thường, 11 10 byte

jC*13.<BG1

Hãy thử nó ở đây.

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

Vim, 85 83 byte

: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

Tôi biết điều này có thể được đánh gôn nhiều hơn, nhưng đầu tôi đau nên tôi phải dừng lại ngay bây giờ.

<cr>là khóa enter, <c+v>là ctrl + v và <esc>là phím thoát. Tất cả đều được tính là một byte.

Tôi đã ghi lại một gif này, nhưng nó đã bị hỏng. Video vẫn ổn mặc dù: http://recordit.co/ldLKvho9Gi

Ruby, 42 39 38 37 byte

-3 byte nhờ @ user81655
-1 byte nhờ @manatwork
-1 byte nhờ @NotthatCharles

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

Xem nó trên repl.it: https://repl.it/CmOJ

Cheddar, 48 byte

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

Cheddar là tốt với chuỗi: D

Hãy thử trực tuyến!

Giải trình

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

Không gì l>89?65:l+1làm gì? Vâng 89là mã char cho Y. Về cơ bản, l>89là kiểm tra nếu bức thư là Z, điều đó có nghĩa là chúng ta sẽ trở lại A. Nếu l>89là sai. Tôi sẽ trở lại l+1, char tiếp theo

Thạch , 10 byte

26ḶḂØAṙZj⁷

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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.

Haskell, 60 58 byte

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

Bắt đầu với "A" scanr(:)xây dựng một danh sách từ các ký tự ['A'..'Z']bên phải. (-> ["ABCDE...A", "BCDEF..A", ..., "XYZA", "YZA", "ZA", "A"]). (a:b:_)khớp với hai ký tự đầu tiên của mỗi danh sách phụ (có ít nhất hai ký tự) và tạo ra 13 bản sao của nó.

PowerShell, 49 43 byte

Bản phối lại của TimmyD:

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

là, 49 byte:

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

Python 2, 70 68 54 byte

Danh sách giải pháp dựa trên:

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

Nhưng tại sao tạo một danh sách? Cảm ơn LeakyNun:

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

R, 72 67 60 56 byte

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

Cảm ơn @Giuseppe đã giảm thêm 4 byte!

repGiải pháp dựa trên cơ sở cũ ở 60 byte:

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

Xem ở đây trên một thông dịch viên trực tuyến. Cảm ơn @ user5957401 đã tắt thêm 7 byte!

Giải pháp dựa trên ma trận cũ ở 72 byte:

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

Xem ở đây trên một thông dịch viên trực tuyến.

MATL , 13 byte

1Y2tn:!to~!+)

Hãy thử trực tuyến!

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.

Sứa , 26 byte

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

Lưu ý các ký tự không thể in dấu trên hai dòng cuối cùng. Hãy thử trực tuyến!

Giải trình

Về cơ bản, đây là cách tiếp cận thao tác số học: tạo lưới 26 × 26 với mẫu 0-1 xen kẽ, thêm chỉ số của mỗi hàng vào mỗi phần tử của hàng, giảm mod 26 và thêm giá trị ASCII của A. Các ký tự trong Sứa chỉ là những con số có một lá cờ đặc biệt và tất cả các số học hoạt động trên chúng như mong đợi.

Từ dưới lên trên:

• Các 's là chữ nhân vật; chúng được theo sau bởi các dấu không thể in được với mã ASCII 26 và viết tắt của các ký tự đó.
• Thấp hơn rtính toán phạm vi ký tự từ 0 đến 25.
• Các ,hình thành một cặp từ hai ký tự không thể in được.
• Cao hơn rđược đưa ra đối số 2, và hình thành phạm vi [0 1].
• Nó $lấy phạm vi đó và định hình lại nó thành hình dạng được đưa ra bởi đối số khác của nó, đó là cặp không thể in được. Điều này đưa ra ma trận 26 × 26 của các hàng xen kẽ0 1 0 1 0 1 ...
• Thấp hơn +thêm phạm vi char 0-25 vào ma trận này. Bổ sung phân phối trên các hàng, vì vậy hàng i được tăng bởi i . Nó cũng được chuyển đổi thành ma trận char, vì đối số phía nam bao gồm các ký tự.
• Các ~|là mô đun với các đối số lộn: đối số về phía nam (ma trận char ở trên) được rút gọn theo modulo đối số đông (các Slượt tham số-quá trình tìm kiếm về phía nam, vì vậy đây là chưa in ra đen 26).
• Cao hơn +thêm nghĩa đen Acho mỗi tọa độ của ma trận kết quả.
• Các Pkết quả in ở định dạng ma trận, nghĩa là, mỗi hàng trên một dòng riêng mà không có dấu ngoặc kép.

Vim, 31 byte

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

Trong trường hợp ↵là chìa khóa Return.

Perl, 26 byte

Giải pháp từ @Dom Hastings . (12 byte ngắn hơn của tôi!)
-1 byte nhờ @TonMedel

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

Chạy với -M5.010hoặc -E:

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

T-SQL 133 Byte (Được đánh dấu bởi: @ 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 byte

Sử dụng CTE để tạo chuỗi số

;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 byte

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

Julia, 46 byte

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

Hãy thử trực tuyến!

Bình thường, 10 byte

jCm.<G~!ZG

Trình diễn

Giải trình:

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 byte

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

Yêu cầu trình thông dịch có các ô 8 bit và một băng không bị chặn ở bên trái. Hãy thử trực tuyến!

Lua, 80 65 byte.

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

Với sự giúp đỡ từ Leaky Nun

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

Lua là một ngôn ngữ không hiệu quả liên quan đến việc xử lý các chuỗi và như vậy, vì vậy đây là cách tốt nhất tôi có thể thu hẹp nó.

Brachylog , 30 24 20 byte

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

Hãy thử trực tuyến!

05AB1E, 12 byte

ADÀ)øvyJ5Ø×,

Giải trình

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

Dùng thử trực tuyến

Toán học, 82 75 67 66 byte

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

Về mặt kỹ thuật ngắn hơn, mặc dù nó in bằng chữ thường thay vì chữ hoa:

Toán học, 64 byte

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

TSQL, 111 byte

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

Vĩ cầm

MATLAB, 47 38 byte

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

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

Đầu tiên tạo một mảng cột của bảng chữ cái trong ASCII, nối thêm một bản sao đã được dịch chuyển thành một cột bên phải, sao chép mảng 26 * 2 kết quả 13 lần theo cột, chuyển sang một mảng ký tự và in theo mặc định.

Thứ hai tạo ra một mảng 2 * 26 của bảng chữ cái và bảng chữ cái thay đổi, chuyển đổi nó sau đó tiếp tục như trên.

J, 20 19 byte

1 byte nhờ dặm.

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

Phiên dịch trực tuyến

Đây thực sự là chương trình tôi đã sử dụng để tạo văn bản trong thử thách.

Bản mô tả , 59 byte

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

PHP, 102 byte

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

Ruby, 41 byte

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