英語のアルファベットの文字が与えられた場合、あなたの仕事は入力に対して半対角アルファベットを作成することです。

半対角アルファベットを作成する方法は？

簡単な説明：最初に、アルファベットの文字の位置を取得しますP（Pここでは1から始まります）。次に、行に入力（包括的）が来るまで各文字を印刷し、その文字の前にスペースを入れP-1てその文字を繰り返しPます。

例：

• 与えられたF、あなたのプログラムは出力するはずです：

  A 
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
  

• 与えられたK、あなたのプログラムは出力するはずです：

  A
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
        GGGGGGG 
         HHHHHHHH 
          IIIIIIIII 
           JJJJJJJJJJ 
            KKKKKKKKKKK 
  

• 与えられたA、あなたのプログラムは出力するはずです：

  A
  

ルール

• 小文字または大文字を選択できますが、それは一貫している必要があります。

• 次のように余分なスペースがある場合があります。

  • 一貫した先行スペース（各行）。
  • 末尾または先頭の改行。
  • 末尾のスペース。

• 入力および出力は、任意の標準的な平均で取得でき、デフォルトの抜け穴が適用されます。

• ascii-artバージョンも提供している限り、代わりに行のリストを出力できます。

• これはcode-golfなので、バイト単位の最短コードが勝ちです！

^{この挑戦に触発された。}

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バイト

Rodのおかげで-2バイト。-Felipe Nardi Batistaのおかげで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ハイブリッドを追加します。

TessellatingHecklerのおかげで3バイト節約されました。

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アートバージョンが1バイト追加されています）

⎕ 入力を促す

⎕A⍳ 見つけɩ NDEXでA lphabet

⍳ まずその多くɩの ntegers

(… )¨ 次の暗黙関数をそれぞれに適用します。

 ⊃∘⎕AA lphabet  から引数の文字を選択します

 ⊢⍴ 引数の長さに周期的に変形します

 ' ',¨⍨ それぞれにスペースを追加します

 ⍴∘'', 引数の長さの文字列を追加します（スペースが埋め込まれます）

 ∊ ϵ nlist（平坦化）

ASCIIアートバージョンは、↑左端にあります。文字列のリストを文字の表に混ぜます。

Perl 5、31バイト

30バイトコードの+ 1 -l。

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

オンラインでお試しください！

Dyalog APL、38バイト

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

オンラインでお試しください！

どうやって？

⎕A↑⍨ -までアルファベットを取る

⎕A⍳⍵ -入力文字

¨ -各文字

    ⍵,' ' -文字とスペースを取ります

    (...)⍴ -に形を変える

    2×y←⎕A⍳⍵ -アルファベットのcharのインデックスの2倍

    (y/' ') -およびchar-of-charスペースの先頭に追加

↑ -その後、平らにします

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Ó./& ò
ò-Ûä$Û>

オンラインでお試しください！

長い間特定の機能を追加することを計画してきましたが、この課題が最終的にそれを行うように私を確信させたことに注意してください。

出力には、各行に1つの先行スペースと1つの後続の改行が含まれます。

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 Adnanに感謝します。

»別の行に印刷するように追加します。

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：3バイトを保存しました。ありがとう！

JavaScript（ES8）、92バイト

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

小文字を使用します。行には、先頭と末尾に1つのスペースがあります。行の配列を返します。

テストスニペット

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に出力します。 オンラインでお試しください！

説明

Huskが文字列のリストのリストを印刷する方法を利用しています。内側のリストをスペースで、外側のリストを改行で結合します。

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バイト

Adnanのおかげで1バイト節約

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

オンラインでお試しください！ またはアスキーアート版

説明

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バイト

バイトを節約してくれたTaylor Scottに感謝（2回！）

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。次に、アルファベットのth文字に続けてスペースiを印刷しiます。

ジャプト -R、24 23 17 15バイト

配列を出力します。先頭の改行と各行の先頭と末尾のスペースが含まれます。

IòUc ÏçSiXd¹iYç

試して

• Oliverの助けを借りて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バイト

Neilのおかげで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バイト

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

オンラインでお試しください！

炭、15バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

 …·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.

追加のパディングが有効な場合、これは14バイトで機能します。

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。

Mathematica、70バイト

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

小文字

リストを出力します

修正については@ngenisisに感謝

用アスキー・アートバージョンの場所Column@先頭に

Excel VBA、72バイト

セルから入力を受け取りA1、VBEイミディエイトウィンドウに出力する匿名VBEイミディエイトウィンドウ関数

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

Pyth、17バイト

.e+*kd*+bdhk<GhxG

ここで試してみてください（プリティプリント版）。

これはどのように作動しますか？

• hxG -小文字のアルファベットで入力のインデックスを取得します。

• <G -アルファベットからの入力後のすべての文字をトリミングします。

• .e-列挙マップ。インデックスがk、文字がのトリムアルファベット上にマップしますb。

• *kd- kスペースを追加します。

• +bd- b+スペース（現在の文字+スペース）。

• *...hk-繰り返しk+1ます。

• +(...)(...) -連結します。

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!