Враховуючи букву англійського алфавіту, ваше завдання - побудувати напівдіагональний алфавіт до введення.

Як побудувати напівдіагональний алфавіт?

Короткий опис : Спочатку ви займаєте положення літери в алфавіті P( Pтут 1-індексовано). Потім ви друкуєте кожну букву до тих пір, поки не буде введено (включаючи) рядок, який передує P-1та повторює цей час літери P, переплітаючи пробіли.

Приклади :

• Враховуючи F, ваша програма повинна виводити:

  А 
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
  

• Враховуючи K, ваша програма повинна виводити:

  А
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
        GGGGGGG 
         HHHHHHHH 
          IIIIIIIII 
           JJJJJJJJJJJ 
            KKKKKKKKKKK 
  

• Враховуючи A, ваша програма повинна виводити:

  A
  

Правила

• Ви можете вибрати або малі, або великі символи, але це повинно бути послідовно.

• У вас можуть бути сторонні пробіли:

  • Один послідовний провідний пробіл (у кожному рядку).
  • Короткий або провідний новий рядок.
  • Задні проміжки.

• Введення та виведення можна приймати будь-яким стандартним середнім, і застосовуються лазівки за замовчуванням.

• Натомість вам дозволяється виводити список рядків, якщо ви також надаєте версію ascii-art .

• Це код-гольф , тому найкоротший код у байтах виграє!

^{Натхненний цим викликом .}

Python 3 , 59 байт

lambda l:[' '*i+'%c '%(i+65)*-~i for i in range(ord(l)-64)]

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

Python 3 , 61 байт

lambda l:[' '*i+-~i*(chr(i+65)+' ')for i in range(ord(l)-64)]

Спробуйте в Інтернеті! (посилання на симпатичну версію)

Пітон 2 , 63 61 59 байт

-2 байти завдяки Роду. -2 байти завдяки Феліпе Нарді Батісті.

i=1
exec"print' '*i+'%c '%(i+64)*i;i+=1;"*(ord(input())-64)

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

C, 89 байт

i,j;f(l){for(i=64;i++<l&&printf("%*c ",i-64,i);puts(""))for(j=i-65;j--;)printf("%c ",i);}

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

PowerShell , 45 42 байти

65..$args[0]|%{" "*$i+++"$([char]$_) "*$i}

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

Вводиться як буквальна таблиця, а потім проходить через великі літери до цієї точки, кожна ітерація попередньо містить відповідну кількість пробілів, а потім гібрид char \ space.

Збережено 3 байти завдяки TessellatingHeckler.

JavaScript (ES6), 85 байт

Працює в нижньому регістрі і для вводу, і для виходу. Виводить провідний простір і пробіл на кожному рядку.

f=(c,k=10,C=k.toString(36),r=s=>`${s} `.repeat(k-9))=>r``+r(C)+(C==c?'':`
`+f(c,k+1))

Демо

f=(c,k=10,C=k.toString(36),r=s=>`${s} `.repeat(k-9))=>r``+r(C)+(C==c?'':`
`+f(c,k+1))

O.innerText = f('m')

<pre id=O>

APL (Dyalog) , 26 байт

Підказки до скалярного характеру. Друкує список рядків.

(∊⍴∘'',' ',¨⍨⊢⍴⊃∘⎕A)¨⍳⎕A⍳⎕

Спробуйте в Інтернеті! (має арт-версію ASCII в одному додатковому байті)

⎕ запит на введення

⎕A⍳ знайти ɩ ndex в A lphabet

⍳ перше , що багато ɩ ntegers

(… )¨ Застосувати таку негласну функцію до кожного:

 ⊃∘⎕A вибрати argument'th лист лист від A lphabet

 ⊢⍴ циклічно переробити його на довжину аргументу

 ' ',¨⍨ додайте пробіл до кожного

 ⍴∘'', додайте рядок довжини аргументу (із пробілами)

 ∊ ϵ список (згладити)

Художня версія ASCII має лише ↑ліворуч; змішати список рядків у таблицю символів.

Perl 5 , 31 байт

30 байт коду + 1 для -l.

print$"x$-,"$_ "x++$-for A..<>

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

Діалог APL, 38 байт

{↑{(y/' '),(2×y←⎕A⍳⍵)⍴⍵,' '}¨⎕A↑⍨⎕A⍳⍵}

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

Як?

⎕A↑⍨ - приймати алфавіт до тих пір, поки

⎕A⍳⍵ - вхідний символ

¨ - на кожну чар

    ⍵,' ' - займіть чару і пробіл

    (...)⍴ - переробити на

    2×y←⎕A⍳⍵ - вдвічі більший показник знака в алфавіті

    (y/' ') - і додайте проміжки з покажчиком

↑ - тоді сплющуйте

APL (Dyalog Classic) , 26 байт

{↑{(≠\⍵<⍳3×⍵)\⍵⊃⎕A}¨⍳⎕A⍳⍵}

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

Пояснення

                      ⍳⎕A⍳⍵  generate indexes up to position of right arg ⍵
{                   }¨       on each index apply function
   (≠\⍵<⍳3×⍵)                generate boolean mask for expansion (each line has a length 3 times its index ⍵, starting with ⍵ blanks and then alternating letter blank)
             \⍵⊃⎕A          expand character in position ⍵
 ↑                            mix result into text matrix

V , 28, 26, 25 , 23 байти ( змагання )

¬A[/a
lDÓ./& ò
ò-Ûä$Û>

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

Зауважте, що хоча я довго планував додавання певних функцій , саме це завдання переконало мене нарешті зробити це.

Вихід містить один провідний пробіл у кожному рядку та один зворотний новий рядок.

Hexdump:

00000000: ac41 5b2f 1261 0a6c 44d3 2e2f 2620 f20a  .A[/.a.lD../& ..
00000010: f22d dbe4 24db 3e                        .-..$.>

Пояснення:

¬A[         " Insert 'ABCDEFGHIJKLMNOPQRSTUVWXYZ['
   /        " Search for...
    <C-r>a  "   The input
l           " Move one character to the right
 D          " And delete every character after the cursor
  Ó         " Search for...
   .        "   Any character
    /       " And replace it with...
     & ò    "   That character followed by a space and a newline
ò           " Recursively...
 -          "   Move to the beginning of the next line up
  Ûä$       "   Make *line number* copies of the current line
     Û>     "   And indent this line by *line number* spaces

05AB1E , 10 байт

A¹¡н«ðâƶāú

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

-2 завдяки Аднану .

Додайте, »щоб зробити його друком окремими рядками.

R, 94 88 байт

-6 байт завдяки Джузеппе

function(x,l=LETTERS)for(i in 1:match(x,l))cat(rep(' ',i-1),rep(paste(l[i],' '),i),'\n')}

Безголівки:

f=function(x,l=letters){
  for(i in 1:which(l==x)){
    A=paste(l[i],' ')
    cat(rep(' ',i-1),rep(A,i),'\n')
  }
}

Haskell, 52 44 байт

f k=[[" ",s:" "]>>=(['A'..s]>>)|s<-['A'..k]]

Повертає список рядків.

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

f k=                  -- main function is f, input parameter k
  [   |s<-['A'..k]]   -- for each s from ['A'..k]
     >>=              -- map (and collect the results in a single string) the function: 
         (['A'..s]>>) --  replace each element in ['A'..s] with
    [  ,  ]           --  over the list, containing
     " "              --   a single space to get the indent
        s:" "         --   s followed by space to get the letter sequence

Редагувати: @jferard: збережено три байти. Спасибі!

JavaScript (ES8), 92 байти

c=>(g=n=>n>9?[...g(n-1),`${n.toString(36)} `.repeat(n-=9).padStart(n*3)]:[])(parseInt(c,36))

Використовується малі літери. У ліній є одне провідне та одне проміжне місце. Повертає масив рядків.

Тест-фрагмент

let f=

c=>(g=n=>n>9?[...g(n-1),`${n.toString(36)} `.repeat(n-=9).padStart(n*3)]:[])(parseInt(c,36))

;O.innerText=f("k").join`\n`

<pre id=O></pre>

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

z+ḣ∞øzRNC1…'A

Приймає символ в одиничних лапках як аргумент командного рядка, друкує результат на STDOUT. Спробуйте в Інтернеті!

Пояснення

Я використовую те, як Хаск друкує списки списків рядків: з'єднуйте внутрішні списки з пробілами та зовнішні списки новими рядками.

z+ḣ∞øzRNC1…'A  Implicit input, say 'C'
          …'A  Range from A: "ABC"
        C1     Cut into strings of length 1: ["A","B","C"]
     z N       Zip with positive integers
      R        using repetition: x = [["A"],["B","B"],["C","C","C"]]
   ∞ø          The empty string repeated infinitely: ["","","",...
  ḣ            Prefixes: [[],[""],["",""],["","",""],...
z+             Zip with x using concatenation: [["A"],["","B","B"],["","","C","C","C"]]
               Implicitly join each inner list with spaces, join the resulting strings with newlines and print.

05AB1E , 15 14 13 байт

Збережено 1 байт завдяки Аднану

A¹¡н«ƶ€S»¶¡āú»

Спробуйте в Інтернеті! або художню версію Ascii

Пояснення

A                # push lowercase alphabet
 ¹¡              # split at input
   н             # get the first part
    «            # append the input
     ƶ           # repeat each a number of times corresponding to its 1-based index
      €S         # split each to a list of chars
        »        # join on spaces and newlines
         ¶¡      # split on newlines
           āú    # prepend spaces to each corresponding to its 1-based index
             »   # join on newlines

APL (Dyalog Unicode) , 22 байти ^SBCS

⍕⍪⊢∘⊂\2,.↑⍉⍴⍨⌸⎕a↑⍨⎕a⍳⍞

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

Використання ⎕io←1. Друкує провідний простір, який дозволено.

QBasic, 79 74 72 байт

Дякую Тейлору Скотту за економію байтів (двічі!)

FOR i=1TO ASC(INPUT$(1))-64
?TAB(i)
FOR j=1TO i
?CHR$(64+i)" ";
NEXT j,i

Використовується великі регістри. Введення здійснюється за допомогою натискання клавіші і не перегукується з екраном.

Пояснення

Ми цикл iвід 1до положення обмежує листи в алфавіті (1-основі). Для кожного з них iми переходимо до стовпця iекрана за допомогою TAB; потім, iраз, ми друкуємо iту букву алфавіту, а потім пробіл.

Джапт -R , 24 23 17 15 байт

Виводить масив, включає провідний новий рядок та провідний та кінцевий простір у кожному рядку.

IòUc ÏçSiXd¹iYç

Перевірте це

• 1 байт збережений за допомогою Олівера і ще 6 завдяки йому вказує на кращий спосіб генерувати початковий масив.

Вугілля деревне , 18 байт

Ｆ⁺⌕αθ¹«Ｐ×⁺§αι ⁺ι¹↘

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

Braingolf , 65 байт

a#a-# 7-,-~vc<!?>[$_]:$_|&,(.#a-!?.>[# M]1+>[.M# M]:$_!@|v#
&@R);

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

Малі літери

Містить 1 пробіл у кожному рядку та кінцевий новий рядок у кінці виводу.

C # (.NET Core) , 103 байти

n=>{var i='`';var l="";for(;i<n;l+='\n'){l+="".PadLeft(i++-96);for(int s=96;s++<i;)l+=i+" ";}return l;}

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

JavaScript, 102 94 байт

2 байти збережено завдяки Нілу

f=
a=>[...Array(parseInt(a,36)-9)].map((a,b)=>''.padEnd(b).padEnd(b*3+1,(b+10).toString(36)+' '))

console.log(f('k').join`\n`)

Сітківка , 51 байт

^.
$&$&
}T`L`_L`^.
.
$.`$* $&$.`$* ¶
+`(\w) \B
$&$1

Спробуйте в Інтернеті! Пояснення:

^.
$&$&

Скопіюйте (першу) букву.

}T`L`_L`^.

Поверніть його назад 1 в алфавіті або видаліть, якщо це дублікат A. Продовжуйте дублювати та обертати, поки ми не дублюємо A, після чого видалення скасовує дублювання і цикл завершується.

.
$.`$* $&$.`$* ¶

Замініть кожну букву на рядок, накреслений з обох сторін.

+`(\w) \B
$&$1

Вставте дублюючі літери між усіма парами пробілів, розташованих праворуч від існуючих літер.

Haskell, 57 bytes

x!'@'=x
x!e=([e]:[' ':r++' ':[last r]|r<-x])!pred e
([]!)

Try it online!

Charcoal, 15 bytes

Ｆ…·AＳ«Ｐ⪫Ｅ…@ιι ↘

Try it online! Link is to verbose version of code. Explanation:

 …·AＳ           Inclusive character range from A to the input
Ｆ    «          Loop over each character
         …@ι    Exclusive range from @ to the current character
        Ｅ   ι   Replace each element with the current character
       ⪫        Join with spaces
      Ｐ         Print without moving the cursor.
              ↘ Move the cursor down and right.

If extra padding was legal, this would work for 14 bytes:

Ｅ…·?θ⁺× κ⪫× κι

Try it online! Link is to verbose version of code.

Mathematica, 70 bytes

(T=Table)[""<>{" "~T~i,T[Alphabet[][[i]]<>" ",i]},{i,LetterNumber@#}]&

lowercase

outputs a list

thanx @ngenisis for corrections

For ascii-art version place Column@ at the beginning

Excel VBA, 72 Bytes

Anonymous VBE immediate window function that takes input from cell A1 and outputs to the VBE immediate window

For i=1To Asc([A1])-64:[B1]=i:?Space(i-1)[REPT(CHAR(B1+64)&" ",B1)]:Next

Pyth, 17 bytes

.e+*kd*+bdhk<GhxG

Try it here (pretty print version).

How does this work?

• hxG - Takes the index of the input in the lowercase alphabet.

• <G - Trims every character after the input from the alphabet.

• .e - Enumerated Map. Maps over the trimmed alphabet with the indexes as k and the letters as b.

• *kd - Append k spaces.

• +bd - b + a space (the current letter + space).

• *...hk - Repeat k+1 times.

• +(...)(...) - Concatenate.

C++ (gcc), 164 bytes

#include<iostream>
#define f for(int i=0;i<o-'`';i++)
using namespace std;int main(){char c;cin>>c;for(char o='a';o<=c;o++){f cout<<' ';f cout<<o<<' ';cout<<'\n';}}

My first attempt after a long time lurking!

Ungolfed code below:

#include <iostream>

using namespace std;
#define f for (auto i = 0; i < output - '`'; i++)

int main()
{
  char input;

  cin >> input;

  for (char output = 'a'; output <= input; output++)
  {
    f cout << ' ';

    f cout << output << ' ';

    cout << endl;
  }
}

Try it online!