ให้ตัวอักษรภาษาอังกฤษงานของคุณคือการสร้างตัวอักษรกึ่งแนวทแยงให้กับการป้อนข้อมูล

วิธีสร้างตัวอักษรกึ่งแนวทแยง

คำอธิบายสั้น ๆ : อันดับแรกคุณรับตำแหน่งของตัวอักษรในตัวอักษรP( Pมีการจัดทำดัชนี 1 ที่นี่) จากนั้นคุณพิมพ์ตัวอักษรแต่ละตัวจนกระทั่งอินพุต (รวม) บนบรรทัดนำหน้าP-1และทำซ้ำตัวอักษรPครั้งนั้นแทรกด้วยเว้นวรรค

ตัวอย่าง :

• ได้รับFโปรแกรมของคุณควรส่งออก:

   
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
  

• ได้รับKโปรแกรมของคุณควรส่งออก:

  A
   BB 
    CCC 
     DDDD 
      EEEEE 
       FFFFFF 
        GGGGGGG 
         HHHHHHHH 
          IIIIIIIII 
           JJJJJJJJJJ 
            KKKKKKKKKKK 
  

• ได้รับAโปรแกรมของคุณควรส่งออก:

  A
  

กฎระเบียบ

• คุณอาจเลือกตัวพิมพ์เล็กหรือตัวพิมพ์ใหญ่ แต่ควรสอดคล้องกัน

• คุณอาจมีช่องว่างที่ไม่เกี่ยวข้องดังต่อไปนี้:

  • หนึ่งช่องว่างที่สอดคล้องกัน (ในแต่ละบรรทัด)
  • ขึ้นบรรทัดใหม่หรือขึ้นบรรทัดใหม่
  • ช่องว่างต่อท้าย

• อินพุทและเอาท์พุทสามารถถ่ายได้ด้วยค่าเฉลี่ยมาตรฐานและใช้ช่องโหว่เริ่มต้น

• คุณได้รับอนุญาตให้ส่งออกรายการบรรทัดแทนตราบใดที่คุณยังให้บริการเวอร์ชันASCII

• นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดในหน่วยไบต์ชนะ!

^{แรงบันดาลใจจากความท้าทายนี้}

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

ลองออนไลน์! (ลิงก์ไปยังรุ่นที่พิมพ์สวย)

Python 2 , 63 61 59 ไบต์

-2 ไบต์ต้องขอบคุณ Rod -2 ไบต์ขอบคุณ Felipe Nardi Batista

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 ในlphabet

⍳ ครั้งแรกที่หลายɩ ntegers

(... )¨ ใช้ฟังก์ชัน tacit ต่อไปนี้กับแต่ละรายการ:

 ⊃∘⎕A เลือกตัวอักษรตัวอักษรโต้แย้งจากA lphabet

 ⊢⍴ เปลี่ยนรูปร่างใหม่ตามความยาวอาร์กิวเมนต์

 ' ',¨⍨ ต่อท้ายแต่ละพื้นที่

 ⍴∘'', เติมสตริงของความยาวอาร์กิวเมนต์ (เพิ่มด้วยช่องว่าง)

 ∊ ϵ รายการ (แผ่)

ASCII art version เพิ่งจะมี↑ด้านซ้าย; รายการผสมของสตริงลงในตารางของตัวละคร

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⍳⍵ - ดัชนีของถ่านในตัวอักษรเป็นสองเท่า

    (y/' ') - และเพิ่มช่องว่าง index-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Ó./& ò
ò-Ûä$Û>

ลองออนไลน์!

โปรดทราบว่าแม้ว่าฉันได้วางแผนที่จะเพิ่มคุณสมบัติบางอย่างมาเป็นเวลานานความท้าทายนี้เป็นสิ่งที่ทำให้ฉันเชื่อมั่นในที่สุด

เอาต์พุตมีหนึ่งช่องว่างนำหน้าในแต่ละบรรทัดและหนึ่งบรรทัดขึ้นบรรทัดใหม่

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 ไบต์ขอบคุณ 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 ไบต์

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 ลองออนไลน์!

คำอธิบาย

ฉันใช้ประโยชน์จากวิธีที่ 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 ไบต์

บันทึก 1 ไบต์ต้องขอบคุณAdnan

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

ขอบคุณ Taylor Scott สำหรับการประหยัด byte (สองครั้ง!)

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

ใช้ตัวพิมพ์ใหญ่ การป้อนข้อมูลด้วยปุ่มกดและไม่ได้สะท้อนไปที่หน้าจอ

คำอธิบาย

เราวนiจาก1สูงสุดไปยังตำแหน่งของตัวอักษรที่ จำกัด ในตัวอักษร (1-based) สำหรับแต่ละiเราย้ายไปที่คอลัมน์iของหน้าจอโดยใช้TAB; จากนั้นiเวลาเราพิมพ์iตัวอักษรตัวที่สองของตัวอักษรตามด้วยช่องว่าง

Japté -R , 24 23 17 15 ไบต์

ส่งออกอาร์เรย์รวมถึงการขึ้นบรรทัดใหม่ชั้นนำและพื้นที่ชั้นนำและต่อท้ายในแต่ละบรรทัด

IòUc ÏçSiXd¹iYç

ทดสอบมัน

• บันทึก 1 ไบต์ด้วยความช่วยเหลือจากOliverและอีก 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 ไบต์ด้วย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`)

เรติน่า 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@#}]&

ตัวพิมพ์เล็ก

ส่งออกรายการ

thanx @ngenisis สำหรับการแก้ไข

สำหรับสถานที่เวอร์ชันASCII-artColumn@ที่จุดเริ่มต้น

Excel VBA ขนาด 72 ไบต์

ฟังก์ชันหน้าต่าง VBE แบบไม่ระบุชื่อทันทีที่รับอินพุตจากเซลล์A1และเอาต์พุตไปยังหน้าต่างทันที 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- แผนที่ระบุ แผนที่มากกว่าตัวอักษรตัดกับดัชนีเป็นและตัวอักษรตามที่kb

• *kd- ผนวกkช่องว่าง

• +bd- b+ ช่องว่าง (ตัวอักษรปัจจุบัน + ช่องว่าง)

• *...hk- ทำซ้ำk+1ครั้ง

• +(...)(...) - เรียงต่อกัน

C ++ (gcc) , 164 ไบต์

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

ความพยายามครั้งแรกของฉันหลังจากที่ซุ่มซ่อนเป็นเวลานาน!

รหัส Ungolfed ด้านล่าง:

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

ลองออนไลน์!