Wenn Sie einen Buchstaben des englischen Alphabets erhalten, müssen Sie ein halbdiagonales Alphabet für die Eingabe erstellen.

Wie baue ich ein halbdiagonales Alphabet?

Kurzbeschreibung : Zunächst nehmen Sie die Position des Buchstabens im Alphabet ein P( Phier 1-indiziert). Anschließend drucken Sie jeden Buchstaben bis zur Eingabe (einschließlich) in einer Zeile, der ein P-1Buchstabe vorausgeht, und wiederholen diesen Buchstaben in PAbständen von Leerzeichen.

Beispiele :

• Vorausgesetzt F, Ihr Programm sollte Folgendes ausgeben:

  EIN 
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
  

• Vorausgesetzt K, Ihr Programm sollte Folgendes ausgeben:

  EIN
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
        GGGGGGG 
         HHHHHHHH 
          IIIIIIIII 
           JJJJJJJJJ 
            KKKKKKKKKKK 
  

• Vorausgesetzt A, Ihr Programm sollte Folgendes ausgeben:

  A
  

Regeln

• Sie können entweder Klein- oder Großbuchstaben wählen, dies sollte jedoch konsistent sein.

• Sie haben möglicherweise zusätzliche Leerzeichen wie folgt:

  • Ein konsistentes führendes Leerzeichen (in jeder Zeile).
  • Eine abschließende oder führende Zeile (n).
  • Nachgestellte Leerzeichen.

• Die Eingabe und Ausgabe kann mit jedem Standardmittel erfolgen, und es gelten Standardlücken.

• Sie können stattdessen eine Zeilenliste ausgeben, sofern Sie auch die ASCII-Art- Version angeben .

• Das ist Code-Golf , also gewinnt der kürzeste Code in Bytes!

^{Inspiriert von dieser Herausforderung .}

Python 3 , 59 Bytes

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

Probieren Sie es online!

Python 3 , 61 Bytes

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

Probieren Sie es online! (Link zur Pretty-Print-Version)

Python 2 , 63 61 59 Bytes

-2 Bytes dank Rod. -2 Bytes dank Felipe Nardi Batista.

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

Probieren Sie es online!

C 89 Bytes

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

Probieren Sie es online!

PowerShell , 45 42 Byte

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

Probieren Sie es online!

Nimmt Eingaben als Literalzeichen auf und durchläuft dann die Großbuchstaben bis zu diesem Punkt, wobei jeder Iteration die entsprechende Anzahl von Leerzeichen und dann der Zeichen / Leerzeichen-Hybrid vorangestellt wird.

3 Bytes gespart dank TessellatingHeckler.

JavaScript (ES6), 85 Byte

Funktioniert sowohl für die Eingabe als auch für die Ausgabe in Kleinbuchstaben. Gibt in jeder Zeile ein führendes Leerzeichen und ein nachfolgendes Leerzeichen aus.

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

Demo

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 Bytes

Fordert zur Eingabe eines skalaren Zeichens auf. Druckt die Liste der Zeilen.

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

Probieren Sie es online! (hat ASCII-Art-Version bei einem zusätzlichen Byte)

⎕ Eingabeaufforderung

⎕A⍳ finden ɩ ndex in A lphabet

⍳ zuerst , dass viele ɩ ntegers

(… )¨ Wenden auf jede folgende stillschweigende Funktion an:

 ⊃∘⎕A wählen Sie den argument'th Brief Brief von der A lphabet

 ⊢⍴ formt es zyklisch in die Länge des Arguments um

 ' ',¨⍨ füge jedem ein Leerzeichen hinzu

 ⍴∘'', Voranstellen einer Zeichenfolge mit Argumentlänge (mit Leerzeichen aufgefüllt)

 ∊ ϵ nlist (Abflachen)

Die ASCII-Art-Version hat ↑ganz links ein; Liste der Zeichenfolgen in Zeichentabelle mischen.

Perl 5 , 31 Bytes

30 Byte Code + 1 für -l.

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

Probieren Sie es online!

Dyalog APL, 38 Bytes

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

Probieren Sie es online!

Wie?

⎕A↑⍨ - Nimm das Alphabet bis

⎕A⍳⍵ - das eingegebene Zeichen

¨ - Für jedes Zeichen

    ⍵,' ' - nimm den char und ein Leerzeichen

    (...)⍴ umformen zu

    2×y←⎕A⍳⍵ - Der doppelte Index des Zeichens im Alphabet

    (y/' ') - und voranstellen von Zeichenindexräumen

↑ - dann abflachen

APL (Dyalog Classic) , 26 Byte

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

Probieren Sie es online!

Erläuterung

                      ⍳⎕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 Bytes ( konkurrierend )

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

Probieren Sie es online!

Beachten Sie, dass ich, obwohl ich schon lange vorhatte, bestimmte Funktionen hinzuzufügen , diese Herausforderung mich überzeugt hat, es endlich zu tun.

Die Ausgabe enthält ein vorangestelltes Leerzeichen in jeder Zeile und eine nachfolgende neue Zeile.

Hexdump:

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

Erläuterung:

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

A¹¡н«ðâƶāú

Probieren Sie es online!

-2 danke an Adnan .

Anhängen », damit es in separaten Zeilen gedruckt wird.

R 94 88 Bytes

-6 Bytes dank Giuseppe

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

Ungolfed:

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 Bytes

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

Gibt eine Liste von Zeilen zurück.

Probieren Sie es online!

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

Edit: @jferard: drei Bytes gespeichert. Vielen Dank!

JavaScript (ES8), 92 Byte

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

Verwendet Kleinbuchstaben. Zeilen haben ein führendes und ein hinteres Leerzeichen. Gibt ein Array von Zeilen zurück.

Testschnipsel

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>

Schale , 13 Bytes

z+ḣ∞øzRNC1…'A

Nimmt ein Zeichen in einfachen Anführungszeichen als Befehlszeilenargument und gibt das Ergebnis an STDOUT aus. Probieren Sie es online!

Erläuterung

Ich nutze die Art und Weise, wie Husk Listen mit Zeichenfolgen druckt: Verbinden Sie innere Listen mit Leerzeichen und äußere Listen mit Zeilenumbrüchen.

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 Bytes

Dank Adnan 1 Byte gespeichert

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

Probieren Sie es online! oder die Ascii-Kunstversion

Erläuterung

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 Byte ^SBCS

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

Probieren Sie es online!

Verwendet ⎕io←1. Gibt ein führendes Leerzeichen aus, das zulässig ist.

QBasic, 79 74 72 Bytes

Vielen Dank an Taylor Scott für die Einsparung von Bytes (zweimal!)

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

Verwendet Großbuchstaben. Die Eingabe erfolgt per Tastendruck und wird nicht auf dem Bildschirm wiedergegeben.

Erläuterung

Wir Schleife ivon 1bis zu der Position des Begrenzungs Buchstaben im Alphabet (1-basiert). Für jedes ibewegen wir uns in die Spalte ides Bildschirms mit TAB; dann idrucken wir mal den ith Buchstaben des Alphabets, gefolgt von einem Leerzeichen.

Japt -R , 24 23 17 15 Bytes

Gibt ein Array aus und enthält in jeder Zeile einen führenden Zeilenumbruch sowie einen führenden und einen nachfolgenden Abstand.

IòUc ÏçSiXd¹iYç

Probier es aus

• 1 Byte gespart mit Hilfe von Oliver und weitere 6 dank ihm, der einen besseren Weg zur Generierung des ersten Arrays aufzeigt.

Kohle , 18 Bytes

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

Probieren Sie es online!

Braingolf , 65 Bytes

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

Probieren Sie es online!

Kleinbuchstaben.

Enthält 1 abschließendes Leerzeichen in jeder Zeile und eine abschließende neue Zeile am Ende der Ausgabe.

C # (.NET Core) , 103 Byte

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

Probieren Sie es online!

JavaScript, 102 bis 94 Byte

2 Bytes gespart dank Neil

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`)

Netzhaut , 51 Bytes

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

Probieren Sie es online! Erläuterung:

^.
$&$&

Dupliziere den (ersten) Buchstaben.

}T`L`_L`^.

Drehen Sie es im Alphabet um 1 zurück oder löschen Sie es, wenn es sich um ein Duplikat handelt A. Duplizieren und drehen Sie weiter, bis wir duplizieren A. An diesem Punkt macht das Löschen das Duplizieren rückgängig und die Schleife ist abgeschlossen.

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

Ersetzen Sie jeden Buchstaben durch eine Linie mit dem Buchstaben auf beiden Seiten.

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

Fügen Sie doppelte Buchstaben zwischen allen Paaren von Leerzeichen rechts von vorhandenen Buchstaben ein.

Haskell , 57 Bytes

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

Probieren Sie es online!

Kohle , 15 Bytes

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

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Erläuterung:

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

Wenn zusätzliches Auffüllen zulässig wäre, würde dies für 14 Bytes funktionieren:

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

Probieren Sie es online! Link ist eine ausführliche Version des Codes.

Mathematica, 70 Bytes

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

Kleinbuchstaben

gibt eine Liste aus

Danke @ngenisis für Korrekturen

Bei Ascii-Art- Version Column@am Anfang platzieren

Excel VBA, 72 Bytes

Anonyme VBE-Direktfensterfunktion, die Eingaben von der Zelle A1und Ausgaben in das VBE-Direktfenster übernimmt

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

Pyth , 17 Bytes

.e+*kd*+bdhk<GhxG

Probieren Sie es hier aus (hübsche Druckversion).

Wie funktioniert das?

• hxG - Nimmt den Index der Eingabe in Kleinbuchstaben.

• <G - Schneidet jedes Zeichen nach der Eingabe aus dem Alphabet.

• .e- Aufzählungskarte. Karten über das zugeschnittene Alphabet mit den Indizes als kund den Buchstaben als b.

• *kd- kLeerzeichen anhängen .

• +bd- b+ ein Leerzeichen (der aktuelle Buchstabe + Leerzeichen).

• *...hk- Wiederholen Sie die k+1Zeiten.

• +(...)(...) - Verketten.

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';}}

Mein erster Versuch nach langer Lauerzeit!

Ungolfed Code unten:

#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;
  }
}

Probieren Sie es online!