ลักษณะ

เอาท์พุทรูปแบบสัมผัสสำหรับ Terza Rima ที่ยาวมาก

อินพุต

ไม่มี.

เอาท์พุต

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

กฎระเบียบ

คุณสามารถเลือกระหว่างการแยกบทด้วยช่องว่างหรือบรรทัดใหม่ดังนั้น:

ABA BCB...

หรือ

ABA
BCB
...

อนุญาตให้ใช้ช่องว่างต่อท้ายหนึ่งบรรทัดต่อบรรทัดและอนุญาตให้ขึ้นบรรทัดใหม่ได้หนึ่งบรรทัด

เอาต์พุตอาจเป็นตัวพิมพ์ใหญ่หรือตัวพิมพ์เล็กก็ได้

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์สำหรับแต่ละภาษาจะชนะ

JavaScript (ES6), 51 50 49 ไบต์

บันทึกแล้ว 1 ไบต์ขอบคุณ @ l4m2

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

ลองออนไลน์!

อย่างไร?

เราเริ่มต้นด้วยn = 45358 ( yzyใน base-36) เราลบ1333จากnที่การวนซ้ำแต่ละครั้ง ( 111ในฐาน -36) เราหยุดทันทีที่n MOD 63 = 0เนื่องจาก12033 ( 9a9ในฐาน -36) เป็นค่าแรกที่เงื่อนไขนี้เป็นจริงและ63เป็นโมดูโลที่เล็กที่สุดที่มีคุณสมบัติดังกล่าว

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 ไบต์

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

ลองออนไลน์!

คงที่และ -9 ขอบคุณที่user202729 -1 ต้องขอบคุณเดนนิสและ -2 ขอบคุณอานอลด์เช่นกัน

เยลลี่ขนาด 7 ไบต์

ØAṡ2ŒBY

ลองออนไลน์!

-1 ไบต์ขอบคุณเดนนิส

Ø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 ไบต์

บันทึกแล้ว 3 ไบต์ขอบคุณ @ovs

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

ลองออนไลน์!

คำอธิบาย

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 ไบต์

Aü«€û

ลองออนไลน์!

-1 ไบต์ขอบคุณ Emigna
-1 ไบต์ขอบคุณการเปลี่ยนแปลงกฎ; ขอบคุณ kalsowerus สำหรับการชี้ให้เห็นว่า

^{_{Hehe ปัจจุบันชนะ Pyth \ O /}}

คำอธิบาย

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

brainfuck , 51 49 ไบต์

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

ลองออนไลน์!

ความพยายามในการอธิบาย ...

+++++                     #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 ด้วย @ovs ขอบคุณ

ความพยายามครั้งแรกของฉันที่ brainfuck ดังนั้นคำแนะนำใด ๆ ที่ได้รับสุดซึ้ง ถ้าฉันมีประสบการณ์กับมันมากขึ้นฉันมั่นใจว่าฉันสามารถโกนหนวดได้อีกสองสามไบต์ แต่ฉันเพิ่งจะทำมันเมื่อวานนี้

APL (Dyalog)ขนาด 14 ไบต์

25↑0 1 0⊖3/⍪⎕A

ลองออนไลน์!

โปรดทราบว่าการเพิ่ม⎕←สำหรับ TIO เพื่อส่งข้อความและไม่จำเป็นต้องใช้ตามปกติ

Python 2 , 42 41 ไบต์

^{-1 ไบต์ขอบคุณ Halvard Hummel}

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

ลองออนไลน์!

ถ่าน 11 ไบต์

Ｅ²⁵✂αι⁺²ι‖Ｏ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

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

Brain-Flak , 90 ไบต์

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

ลองออนไลน์!

เหตุผลหนึ่งที่ทำให้สั้นกว่าคำตอบที่ไม่น่าเชื่อคือมันใช้ตัวพิมพ์ใหญ่แทนตัวอักษรตัวเล็กซึ่งมีค่า ASCII ที่เล็กกว่าและง่ายกว่าที่จะผลักดัน

คำอธิบาย:

#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 ไบต์

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

เอาท์พุท:

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

• 47 ไบต์ขอบคุณนีล
• ขอบคุณ 26 ไบต์ถึงโอลิเวอร์
• 3 ไบต์และการจัดรูปแบบที่ดีขึ้นมากต้องขอบคุณ Kevin
• แก้ไขข้อผิดพลาดโดย Oliver

แข็งแรงเล่นกอล์ฟ

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

Ungolfed

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 ไบต์

บันทึก 2 ไบต์ขอบคุณJo King

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

ลองออนไลน์!

Befunge-98 (FBBI) , 27 23 21 ไบต์

-4 ไบต์ขอบคุณJames Holderness

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

ลองออนไลน์!

Husk , 9 ไบต์

ẊS:`e…"AZ

ลองออนไลน์!

brainfuck , 41 ไบต์

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

ลองออนไลน์!

brainfuck , 45 37 ไบต์

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

ลองออนไลน์!

พิมพ์เป็นตัวพิมพ์ใหญ่คั่นด้วยช่องว่างด้วยช่องว่างต่อท้าย

มันทำงานอย่างไร:

+[[<+>>++<-]>] 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

Pyth , 7 ไบต์

jC[GtGG

ลองที่นี่!

_{ฮิฮิปัจจุบันเต้นเจลลี่ \ O /}

แปลเป็นโปรแกรม follwong 05ab1e ได้อย่างง่ายดาย:

05AB1E , 7 ไบต์

AA¦A)ø»

ลองออนไลน์!

J , 15 ไบต์

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

ลองออนไลน์!

Haskell , 34 32 31 ไบต์

ขึ้นอยู่กับtotallyhuman ของคำตอบ -1ไบต์ต้องขอบคุณH.PWiz

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

ลองออนไลน์!

Brain-Flakขนาด 180 ไบต์

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

ลองออนไลน์!

ขอบคุณ DJ ที่ทำงานนี้

Haskell , 28 ไบต์

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

ลองออนไลน์!

succ เป็นตัวเลือกการตั้งชื่อที่โชคร้าย ...

คำอธิบาย

[[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 ไบต์

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

ลองออนไลน์!

อีกทางเลือกหนึ่งในคำตอบของ R ถึงPlannapusและGiuseppe โพสต์ติดตามคำขอของพวกเขา วิธีนี้ใช้รหัส ASCII เพื่อเข้ารหัส UTF8

ป.ล. ถ้าแท็บได้รับอนุญาตหนึ่งสามารถแทนที่ขึ้นบรรทัดใหม่ (รหัส ASCII 10) ด้วยการจัดตาราง (รหัส ASCII 9) และการแก้ปัญหาสามารถหดตัวถึง 39 ไบต์:

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

R , 40 36 ไบต์

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

ลองออนไลน์!

ทางเลือกในการตอบ plannapus' ; สิ่งนี้กลายเป็นนักเล่นกอล์ฟนิดหน่อย ฉันโพสต์ไว้ตามคำขอของเขา

ดูคำตอบ 40 ไบต์โดย NofP ซึ่งค่อนข้างดี

PowerShellขนาด39 37 ไบต์

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

ลองออนไลน์!

ลูปจากไป65 89การวนซ้ำแต่ละครั้งเรากำลังสร้างอาร์เรย์จำนวนเต็มของ (ปัจจุบันอีกหนึ่งและปัจจุบัน) ของตัวเลขปัจจุบันโดยใช้การเพิ่มล่วงหน้าและลดลงล่วงหน้า จากนั้นจึงทำการส่งซ้ำเป็น a char-ray และ-joinรวมเข้าด้วยกันเป็นสายเดี่ยว แต่ละสตริงจะถูกวางไว้บนไพพ์ไลน์และการบอกเป็นนัยWrite-Outputเมื่อเสร็จสิ้นการโปรแกรมทำให้เรามีบรรทัดใหม่ระหว่างแต่ละองค์ประกอบได้ฟรี

หรือนับเป็นไบต์เดียวกัน

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

ลองออนไลน์!

J , 18 16 ไบต์

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

เปลี่ยนa.{~เป็นu:หลังจากโซลูชั่นของ Conor O'Brien และ FrownyFrog

ลองออนไลน์!

Befunge ขนาด 26 ไบต์

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

ลองออนไลน์!

Pepe, 59 56 ไบต์

^{-3 ไบต์ขอบคุณ u_ndefined}

REeEeEEeEerEeEeeeeeERrEEEEErEEEeeREEreeerEEEEEeeEreeERee

ลองออนไลน์!

คำอธิบาย:

# 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

เรติน่า 24 ไบต์

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

ลองออนไลน์!

brainfuck , 73 ไบต์

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

ลองออนไลน์!