この正確なテキストを印刷する必要があります。

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

スペック

• すべて大文字の代わりにすべて小文字を印刷できます。ただし、出力全体で大文字と小文字を一致させる必要があります。
• 余分な末尾の改行を1つ印刷できます。

得点

これはわずかに変動するアルファベットの波であるため、バイトカウントの観点からもコードは小さくする必要があります。実際、バイト数の面で最小のコードが優先されます。

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がfalseの場合。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.

Haskell、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:_)各サブリストの最初の2文字（少なくとも2文字）に一致し、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,,"")

余分な4バイトをオフにしてくれた@Giuseppeに感謝します！

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'

最後の2行の末尾の印刷できない文字に注意してください。 オンラインでお試しください！

説明

これは基本的に算術操作のアプローチです。0-1パターンを交互に使用して26×26グリッドを作成し、各行のインデックスを行のすべての要素に追加し、mod 26を減らし、ASCII値を追加しますA。クラゲのキャラクターは特別なフラグの付いた数字であり、すべての算術は期待どおりに機能します。

下から上へ：

• 'sが文字リテラルです。ASCIIコード26の印刷できない文字が続き、それらの文字を表します。
• 下限は、r0〜25の文字範囲を計算します。
• ,2つの印刷できない文字のペアを形成しています。
• 上位にrは引数が与えられ2、範囲を形成します[0 1]。
• $その範囲をとり、unprintables一対のあるその他の引数によって所定の形状にそれを整形します。これにより、交互の行の26×26マトリックスが得られます。0 1 0 1 0 1 ...
• 下部で+は、0〜25のchar範囲がこのマトリックスに追加されます。さらには、行に分配するので、行iはインクリメントされ、I。south引数はcharで構成されるため、charマトリックスにも変換されます。
• ~|反転引数を持つ係数である：（南引数（上記チャー行列）は東引数を法として低減されS、これは印刷できないリテラル26であるので、ターン引数探索プロセス南）。
• 高いほど、結果のマトリックスのすべての座標に+リテラルAが追加されます。
• P引用符なしでそれ自身のライン上に、各行である行列形式で結果を印刷します。

Vim、31バイト

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

↵Returnキーはどこにありますか。

Perl、26バイト

@Dom Hastingsからのソリューション。（私のものより12バイト短い！）@Ton Hospelの
おかげで-1バイト

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ビットセルと左側の境界のないテープを備えたインタープリターが必要です。オンラインでお試しください！

Lua、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

Luaは文字列などの処理に関しては非常に非効率的な言語であるため、これを絞り込むことができます。

Brachylog, 30 24 20 bytes

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

Try it online!

05AB1E, 12 bytes

ADÀ)øvyJ5Ø×,

Explanation

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

Try it online

Mathematica, 82 75 67 66 bytes

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

Technically shorter, although it prints in lowercase instead of uppercase:

Mathematica, 64 bytes

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

TSQL, 111 bytes

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

Fiddle

MATLAB, 47 38 bytes

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

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

The first makes a column array of the alphabet in ASCII, appends a shifted copy as a column to its right, replicates the resulting 26*2 array 13 times columnwise, casts to a character array and prints by default.

The second makes a 2*26 array of alphabet and shifted alphabet, transposes it then continues as above.

J, 20 19 bytes

1 byte thanks to miles.

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

Online interpreter

This is actually the program I used to generate the text in the challenge.

Neoscript, 59 bytes

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

PHP, 102 bytes

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

Ruby, 41 bytes

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