Опис

Виведіть схему римування для дуже довгої Терза-Рими.

Вхідні дані

Немає.

Вихідні дані

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 в базі-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 завдяки користувачу202729 . -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

мозковий ебать , 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 за те, що вказав на це

^{_{Хе-хе, в даний час б'є Піта. \ o /}}

Пояснення

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

мозковий ебать , 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

Моя перша спроба обдурити мозг, тому будь-які натяки були вдячні. Якби я був більш досвідчений з цим, то я впевнений, що міг би поголити ще декілька байтів, але я ввійшов у нього лише вчора.

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

Мозок-Флак , 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 байт

• 47 байт завдяки Нілу
• 26 байт завдяки Оліверу
• 3 байти та набагато краще форматування завдяки Кевіну
• Помилка, виправлена ​​Олівером

Гольф

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

Безумовно

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 байти завдяки Джо Кінгу

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

Спробуйте в Інтернеті!

Befunge-98 (FBBI) , 27 23 21 байт

-4 байти завдяки Джеймсу Холдерсу

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

Спробуйте в Інтернеті!

Лушпиння , 9 байт

ẊS:`e…"AZ

Спробуйте в Інтернеті!

мозковий ебать , 41 байт

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

Спробуйте в Інтернеті!

мозковий ебать , 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

Спробуйте в Інтернеті!

Хаскелл , 34 32 31 байт

Виходячи з абсолютно нелюдської відповіді. -1 байт завдяки H.PWiz

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

Спробуйте в Інтернеті!

Мозок-Флак , 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 для Планапуса і Джузеппе . Опубліковано відповідно до їх запиту. Це рішення використовує ASCII-код для кодування UTF8.

PS, якщо дозволено TAB, можна замінити новий рядок (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])

Спробуйте в Інтернеті!

Альтернатива відповіді планунапу ; це виявляється трохи гольфістом; Я розмістив його на його прохання.

Дивіться також цю 40- байтну відповідь від NofP, що дуже приємно.

PowerShell , 39 37 байт

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

Спробуйте в Інтернеті!

Петлі від 65до 89. Кожну ітерацію ми будуємо цілий масив (поточний, ще один і поточний) поточної цифри, використовуючи попереднє збільшення та попереднє зменшення. Потім це повторно charпередається у вигляді- масиву та -joinоб'єднується в єдиний рядок. Кожна рядок залишається на конвеєрі, і неявна Write-Outputпри завершенні програми надає нам новий рядок між кожним елементом безкоштовно.

Крім того, кількість байтів

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

Спробуйте в Інтернеті!

J , 18 16 байт

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

Змінено a.{~на рішення u:Конора О'Браєна та FrownyFrog

Спробуйте в Інтернеті!

Befunge, 26 байт

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

Спробуйте в Інтернеті!

Пепе, 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]..

Спробуйте в Інтернеті!

епізод , 73 байти

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

Спробуйте в Інтернеті!