Sự miêu tả

Xuất sơ đồ vần cho một Terza Rima rất dài.

Đầu vào

Không ai.

Đầu ra

ABA
BCB
CDC
DED
EFE
FGF
GHG
HIH
IJI
JKJ
KLK
LML
MNM
NON
OPO
PQP
QRQ
RSR
STS
TUT
UVU
VWV
WXW
XYX
YZY

Quy tắc

Bạn có thể chọn giữa các khổ thơ tách biệt với khoảng trắng hoặc dòng mới, vì vậy:

ABA BCB...

HOẶC LÀ

ABA
BCB
...

Một khoảng trắng theo dõi duy nhất được phép cho mỗi dòng và một dòng mới được phép.

Đầu ra có thể là chữ hoa hoặc chữ thường.

Đây là mã golf , vì vậy mã ngắn nhất tính theo byte cho mỗi ngôn ngữ sẽ thắng.

JavaScript (ES6), 51 50 49 byte

Đã lưu 1 byte nhờ @ l4m2

f=(n=45358)=>n%63?f(n-1333)+n.toString(36)+' ':''

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

Làm sao?

Chúng tôi bắt đầu với n = 45353 ( yzy trong cơ sở-36). Chúng tôi trừ 1333 từ n ở mỗi lần lặp ( 111 trong cơ sở-36). Chúng tôi dừng ngay khi n MOD 63 = 0 , vì 12033 ( 9a9 trong cơ sở-36) là giá trị đầu tiên mà điều kiện này được đáp ứng và 63 là modulo nhỏ nhất có thuộc tính như vậy.

Decimal | Base-36 | MOD 63
--------+---------+-------
  45358 |   yzy   |   61
  44025 |   xyx   |   51
  42692 |   wxw   |   41
  41359 |   vwv   |   31
  40026 |   uvu   |   21
  38693 |   tut   |   11
  37360 |   sts   |    1
  36027 |   rsr   |   54
  34694 |   qrq   |   44
  33361 |   pqp   |   34
  32028 |   opo   |   24
  30695 |   non   |   14
  29362 |   mnm   |    4
  28029 |   lml   |   57
  26696 |   klk   |   47
  25363 |   jkj   |   37
  24030 |   iji   |   27
  22697 |   hih   |   17
  21364 |   ghg   |    7
  20031 |   fgf   |   60
  18698 |   efe   |   50
  17365 |   ded   |   40
  16032 |   cdc   |   30
  14699 |   bcb   |   20
  13366 |   aba   |   10
  12033 |   9a9   |    0

C (gcc) , 41 byte

f(i){for(i='ABA';i%29;i+=65793)puts(&i);}

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

Đã sửa lỗi và -9 nhờ người dùng202729 . -1 cảm ơn Dennis và -2 cũng nhờ Arnauld .

Thạch , 7 byte

ØAṡ2ŒBY

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

-1 byte nhờ Dennis

ØAṡ2ŒBY  Main Link
ØA       Alphabet
  ṡ2     Slice into overlapping slices of length 2
    ŒB   Palindromize (bounce) each
      Y  Join by newlines

Brainfuck , 51 48 byte

Đã lưu 3 byte nhờ @ovs.

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

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

Giải trình

INITIALIZE TAPE:

0000:           (none)
0001: C_NEWLINE (10)
0002: V_COUNT   (25)
0003: V_ALPHA   (64)
++++++++[>+>+++>++++++++<<<-]>++>+

V_COUNT TIMES:              [-
    INCREMENT V_ALPHA         >+
    PRINT V_ALPHA             .
    PRINT V_ALPHA PLUS ONE    +.
    PRINT V_ALPHA             -.
    PRINT C_NEWLINE           <<.
END LOOP                    >]

05AB1E , 5 byte

Aü«€û

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

-1 byte nhờ Emigna
-1 byte nhờ thay đổi quy tắc; cảm ơn kalsowerus đã chỉ ra rằng

^{_{Hehe, hiện đang đánh bại Pyth. \ o /}}

Giải trình

Aü«€û»  Full Program
A       Lowercase Alphabet
 ü«     Pairwise with merge-list
   €û   For each, palindromize

Brainfuck , 51 49 byte

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

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

Một nỗ lực giải thích ...

+++++                     #Put 5 in cell 0 because that is the highest common denominator of 10, 65 and 25
[                         #Start loop
>+++++                    #Counter in cell 1 is 25 (How many lines we must print)
>+++++++++++++            #Counter in cell 2 is 65 (ASCII A)  
>++                       #Counter in cell 3 is 10 (Newline)
<<<-]                     #Decrement the outer counter until the cells have the right values (muliples of 5).
>                         #Move to the counter that says how many lines we must print.
[>.                       #Print the character in cell 2
+.                        #Add one to the character in cell 2 and print it
-.                        #Subtract one from the character in cell 2 and print it
+                         #Add one to the character in cell 2 for the next loop
>.                        #Print a new line
<<-]                      #Decrement cell 1 and run again until cell 1 is 0

-2 với lời cảm ơn @ovs

Nỗ lực đầu tiên của tôi tại brainfuck để mọi gợi ý đều biết ơn. Nếu tôi có nhiều kinh nghiệm hơn với nó thì tôi chắc chắn rằng tôi có thể cạo thêm vài byte nhưng tôi chỉ nhận được vào ngày hôm qua.

APL (Dyalog) , 14 byte

25↑0 1 0⊖3/⍪⎕A

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

Xin lưu ý rằng phần bổ sung ⎕←dành cho TIO để xuất văn bản và thường không bắt buộc.

Python 2 , 42 41 byte

^{-1 byte nhờ Halvard Hummel}

i=65;exec"print'%c'*3%(i,i+1,i);i+=1;"*25

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

Than , 11 byte

Ｅ²⁵✂αι⁺²ι‖Ｏ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

 ²⁵         Literal 25
Ｅ           Map over implicit range
    α       Predefined uppercase letters
   ✂ ι⁺²ι   Slice 2 characters
            Implicitly print result on separate lines
         ‖Ｏ Reflect with overlap

Brain-Flak , 90 byte

((((()()()){}){}){}()){(({})<((({}((((()()()()){}){}){}){})())[()])((()()()()()){})>[()])}

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

Một lý do này ngắn hơn câu trả lời não bộ khác là vì nó sử dụng chữ hoa thay vì ký tự chữ thường, có giá trị ASCII nhỏ hơn và do đó dễ đẩy hơn.

Giải trình:

#Push 25
((((()()()){}){}){}())

#While true
{

    #Keep track of the number on top of the stack...
    # We'll call it 'a'
    (({})

        #Push A +...
        <((({}

        # 64 (push)
        ((((()()()()){}){}){}){})
        # + 1 (push)
        ())
        # - 1 (push)
        [()])

        # Push 10
        ((()()()()()){})>

    # Now that's all pushed, we push a - 1 to decrement the loop counter
    [()])

# Endwhile
}

R, 51 47 byte

L=LETTERS;cat(sprintf("%s%s%1$s",L[-26],L[-1]))

Đầu ra:

> L=LETTERS;cat(sprintf("%s%s%1$s",L[-26],L[-1]))
ABA BCB CDC DED EFE FGF GHG HIH IJI JKJ KLK LML MNM NON OPO PQP QRQ RSR STS TUT UVU VWV WXW XYX YZY

Java 8 , 132 85 62 60 byte

• 47 byte nhờ Neil
• 26 byte nhờ Oliver
• 3 byte và định dạng tốt hơn nhiều nhờ Kevin
• Đã sửa lỗi bởi Oliver

Chơi gôn

a->{for(char i=64;++i<90;)System.out.println(""+i+++i--+i);}

Bị đánh cắp

public class TerzaRima {
    interface A{
        void a(String a);
    }
    static A a = a -> {
        for (char i = 64; ++i < 90; ) System.out.println("" + i++ + i-- + i);
    };
    public static void main(String[] args){
        a.a(null);
    }
}

> <> , 25 24 23 22 byte

Đã lưu 2 byte nhờ Jo King

"!;::o1+:o$oao:'Y')0.A

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

Befunge-98 (FBBI) , 27 23 21 byte

-4 byte nhờ James Holdiness

j'@1+3k:,1+,,a,'Y/!1+

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

Husk , 9 byte

ẊS:`e…"AZ

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

Brainfuck , 41 byte

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

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

Brainfuck , 45 37 byte

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

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

In bằng chữ in hoa, cách nhau bởi khoảng trắng có dấu cách.

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

+[[<+>>++<-]>] Intialises the tape with the format n^2
               1 2 4 8 16 32 64 128 0 0'
<<---          Navigates to the desired section and tweaks the counter
               1 2 4 8 16 32 64 125<
[-----<+.+.-.<.>>] Prints the Terza Rima, using:
                 125 as the loop counter (decremented by 5 each loop)
                 64 as the current alphabetic character (incremented and printed each loop)
                 32 as the space character

Bình thường , 7 byte

jC[GtGG

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

_{Hehe, hiện đang đập Jelly. \ o /}

Dễ dàng dịch sang chương trình follabong 05ab1e:

05AB1E , 7 byte

AA¦A)ø»

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

J , 15 byte

u:2$~&3\65+i.26

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

Haskell , 34 32 31 byte

Dựa trên câu trả lời hoàn toàn của con người . -1 byte nhờ H.PWiz

do x<-['A'..'Y'];x:succ x:x:" "

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

Brain-Flak , 180 byte

(()()())(({}){})(({}){})(({}){})(({}){})(({}){}())<>(()()()()())(({}){})(({}){})(()()()()(){}){({}[()])<>(({}))(({}()))(({}[()]))({}()<(()()()()()()()()()())>)<>}<>{}{}{({}<>)<>}<>

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

Cảm ơn DJ đã làm việc này

Haskell , 28 byte

[[x,succ x,x]|x<-['A'..'Y']]

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

succ là một lựa chọn đặt tên không may ...

Giải trình

[[x,succ x,x]|x<-['A'..'Y']]

[            |x<-          ]  -- for x in...
                 ['A'..'Y']   -- the alphabet sans Z
 [x,succ x,x]                 -- construct a string of x, the successor of x and x

R , 40 byte

cat(intToUtf8(rbind(x<-65:89,x+1,x,10)))

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

Một thay thế nữa trong câu trả lời của R cho Plannapus và Giuseppe . Đăng theo yêu cầu của họ. Giải pháp này sử dụng mã ASCII để mã hóa UTF8.

PS nếu TAB được cho phép, người ta có thể thay thế dòng mới (mã ASCII 10) bằng cách lập bảng (mã ASCII 9) và giải pháp có thể co lại thành 39 byte:

cat(intToUtf8(rbind(x<-65:89,x+1,x,9)))

R , 40 36 byte

cat(paste0(L<-LETTERS,L[-1],L)[-26])

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

Một thay thế cho câu trả lời của plannapus ; điều này hóa ra là một chút golf; Tôi đã đăng nó theo yêu cầu của anh ấy.

Xem thêm câu trả lời 40 byte này của NofP, khá hay.

PowerShell , 39 37 byte

65..89|%{-join[char[]]($_,++$_,--$_)}

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

Vòng lặp từ 65đến 89. Mỗi lần lặp, chúng tôi đang xây dựng một mảng số nguyên (hiện tại, thêm một và hiện tại) của chữ số hiện tại, sử dụng tăng trước và giảm trước. Sau đó, nó được đúc lại thành một char-array và -joinghép lại thành một chuỗi. Mỗi chuỗi được để lại trên đường ống và một ẩn Write-Outputkhi hoàn thành chương trình cung cấp cho chúng tôi một dòng mới giữa mỗi phần tử miễn phí.

Ngoài ra, cùng một số byte

65..89|%{-join[char[]]($_,($_+1),$_)}

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

J , 18 16 byte

2(,{.)\u:65+i.26

Thay đổi a.{~để u:sau khi giải pháp Conor O'Brien và FrownyFrog của

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

Befunge, 26 byte

:"A"+:,:1+,,1+:64*`#@_55+,

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

Pepe, 59 56 byte

^{-3 byte nhờ u_nd xác định}

REeEeEEeEerEeEeeeeeERrEEEEErEEEeeREEreeerEEEEEeeEreeERee

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

Giải trình:

# Prepare stacks

  # prepare stack R [Z]
  REeEeEEeEe  # push Z

  # prepare stack r [A,B,A]
  rEeEeeeeeE  # push A
  RrEEEEE     # copy and increment A (getting B)
  rEEEee      # duplicate A to end

# Start loop
REE           # create label Z

  reee        # output stack r contents
  rEEEEEeeE   # increment all

  reeE        # end line

Ree           # loop while r[p] != Z

Võng mạc , 24 byte

ABA
;{:G`
T`_p`p`[^Y]..

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

Brainfuck , 73 byte

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

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