รูปสี่เหลี่ยมมีคุณสมบัติที่ดี - รูปสี่เหลี่ยมผืนผ้าประกอบด้วยตัวอักษร !$n \times m$$n \times m$

A. คุณสมบัติที่น่าสนใจคือสี่เหลี่ยมสามารถจัดเรียงอย่างดีในตารางสูตรคูณ - ตัวอย่างเช่นตาราง :$3 \times 3$

# ## ###

# ## ###
# ## ###

# ## ###
# ## ###
# ## ###

ความท้าทายของคุณคือกำหนดหมายเลข ( ) เอาท์พุทตารางการคูณที่จัดรูปแบบ$n$$n > 1$$n \times n$

กฎระเบียบ

• คุณสามารถใช้อินพุตหนึ่งค่าด้านบนหรือด้านล่าง$n$
• ใช้กฎ I / O เริ่มต้น
• คุณสามารถเลือกอักขระที่ไม่ใช่ช่องว่างเพื่อแสดงบล็อก อักขระอื่น ๆ (แม้ว่าบรรทัดใหม่จะพิเศษ) ถือว่าเป็นช่องว่าง อักขระที่เลือกอาจแตกต่างกันไปสำหรับอินพุตที่แตกต่างกัน แต่ต้องเหมือนกันตลอดทั้งอินพุต
• ผลลัพธ์สามารถมีอักขระที่ไม่จำเป็นตราบใดที่ตารางจัดชิดและไม่มีการเกิดขึ้นของอักขระที่เลือกซึ่งไม่ได้เป็นส่วนหนึ่งของเอาต์พุตที่ต้องการ
• ตัวคั่นต้องกว้าง 1 ตัว / สูงและต้องบรรจุสี่เหลี่ยม (เช่นไม่มีตัวคั่นระหว่างอักขระ)
• บรรทัดว่างอาจว่างเปล่าไม่จำเป็นต้องใส่ช่องว่างภายใน
• ผลลัพธ์สามารถเป็นสตริงเมทริกซ์เวกเตอร์ของบรรทัดอาร์เรย์ของอักขระอาร์เรย์หรืออะไรก็ได้แบบสองมิติ
• คุณสามารถสลับเมทริกซ์ / เวกเตอร์ของเวกเตอร์ / ตัวเลขใดก็ได้แบบ 2 มิติ แต่พื้นหลังและพื้นหน้าจะต้องมีตัวเลข 2 ตัวที่แตกต่างกัน (ซึ่งอาจแตกต่างกันไปที่อินพุต แต่ไม่มีตลอดทั้งเอาต์พุต) และไม่มีตัวเลขอื่น ๆ สามารถใช้อักขระล้อมรอบพิเศษในรูปแบบนี้ได้ด้วย (แม้ว่าจะต้องตรงกับหมายเลขพื้นหลัง)
• นี่คือโค้ดกอล์ฟคำตอบสั้นที่สุดเป็นไบต์ต่อภาษาชนะ!

ตัวอย่าง

สำหรับอินพุต2เอาต์พุตเอาต์พุต ascii-art ที่ถูกต้องพร้อมกับอักขระ∙คือ:

        ∙ ∙∙

Result: ∙ ∙∙.
        ∙ ∙∙

^{ใช่ช่วงเวลานั้นมีเพียงทำให้คุณสับสน}
คำตอบที่ถูกต้องอีกอย่างหนึ่งคือเมทริกซ์ตัวเลขโดยที่ 2 คือหมายเลขพื้นหลังและ 9 เบื้องหน้า:

[[9,2,9,9,2,2],
 [2,2,2,2,2,2],
 [9,2,9,9,2,2],
 [9,2,9,9,2,2]]

ตัวอย่างผลลัพธ์ที่ไม่ถูกต้องจะเป็น

#  # #


#  # #

#  # #

ในขณะที่รูปสี่เหลี่ยมผืนผ้ามีตัวคั่นในระหว่างพวกเขา

ตัวอย่างผลลัพธ์สำหรับ :$4 \times 4$

# ## ### ####

# ## ### ####
# ## ### ####

# ## ### ####
# ## ### ####
# ## ### ####

# ## ### ####
# ## ### ####
# ## ### ####
# ## ### ####


1 0 1 1 0 1 1 1 0 1 1 1 1
0 0 0 0 0 0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1 0 1 1 1 1
1 0 1 1 0 1 1 1 0 1 1 1 1
0 0 0 0 0 0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1 0 1 1 1 1
1 0 1 1 0 1 1 1 0 1 1 1 1
1 0 1 1 0 1 1 1 0 1 1 1 1
0 0 0 0 0 0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1 0 1 1 1 1
1 0 1 1 0 1 1 1 0 1 1 1 1
1 0 1 1 0 1 1 1 0 1 1 1 1
1 0 1 1 0 1 1 1 0 1 1 1 1

Haskell , 43 ไบต์

f n=map=<<flip(map.max)$show.(10^)=<<[1..n]

ลองออนไลน์!

วิธีการที่ชาญฉลาดโดยØrjan Johansen ให้ผลลัพธ์เป็น 0 และ 1 โดยสร้างแต่ละ10...00ส่วนเป็นสตริงแทนค่ากำลัง 10

111111111
101001000
111111111
101001000
101001000
111111111
101001000
101001000
101001000

Haskell , 49 ไบต์

f n=map=<<flip(map.max)$[0^i|x<-[1..n],i<-[0..x]]

ลองออนไลน์!

สร้างรูปแบบเช่น[1,0,1,0,0,1,0,0,0,...]นั้นสร้าง 2D โดยการminจับคู่ ความไร้จุดหมายแบบ pointfree ช่วยประหยัด 2 ไบต์ในการอ่านได้มากขึ้น:

f n|l<-do x<-[1..n];0:(1<$[1..x])=[[a*b|a<-l]|b<-l]

ลองออนไลน์!

R , 56 54 43 36 30 ไบต์

x=!!sequence(2:scan())-1;x%o%x

ลองออนไลน์!

รับอินพุตหนึ่งด้านบน (ดังนั้นจะส่งกลับเมทริกซ์ 3x3 สำหรับ ) ส่งกลับเมทริกซ์ที่ (เบื้องหน้า) และ (พื้นหลัง) ด้วยแถว / คอลัมน์เพิ่มเติมที่มีศูนย์เป็นศูนย์ด้านหน้า$n$$n = 4$$1s$$0s$

ขอบคุณ digEmAll สำหรับ -7 ไบต์

JavaScript (ES6),  73 72  69 ไบต์

ส่งคืนสตริงที่ทำจาก 1 ช่องว่างและการป้อนบรรทัด

n=>(g=s=>n-->0?g(s+`${p+=1} `):s[~n]?(+s[~n]?s:'')+`
`+g(s):'')(p='')

ลองออนไลน์!

JavaScript (ES7),  87 83  82 ไบต์

บันทึกแล้ว 3 ไบต์ขอบคุณ @dzaima

ส่งคืนเมทริกซ์ไบนารีซึ่งสร้างขึ้นโดยเซลล์

n=>[...Array(n*(n+3)/2)].map((_,y,a)=>a.map(h=(z,x)=>(17+8*x)**.5%1&&(z||h(1,y))))

ลองออนไลน์!

อย่างไร?

ความกว้างของเมทริกซ์กำหนดโดย:$w$

(หมายเหตุ: ตามกฎความท้าทายเราอนุญาตให้แสดงเมทริกซ์ความกว้างแทน)$w+1$

ในทำนองเดียวกันเซลล์ที่อยู่ที่จะว่างเปล่าหากสมการกำลังสองต่อไปนี้ยอมรับว่าเป็นจำนวนเต็มรูตสำหรับหรือ :$(X,Y)$$k=X$$k=Y$

ซึ่งปัจจัยคือ:

MATL, 14 10 ไบต์

:"@:Fv]g&*

คำตอบนี้ใช้1สำหรับบล็อกและ0พื้นหลัง

ลองใช้ที่MATL Online

คำอธิบาย

     % Implicitly grab the input as an integer, N
     %   STACK: { 3 }
:    % Create an array from 1...N
     %   STACK: { [1, 2, 3] }
"    % For each element M in this array
  @: % Create an array from 1...M
     %   STACK (for 1st iteration): { [1] }
     %   STACK (for 2nd iteration): { [1; 0], [1, 2] }
     %   STACK (for 3rd iteration): { [1; 0; 1; 2; 0], [1, 2, 3] }
  F  % Push a zero to the stack
     %   STACK (for 1st iteration): { [1], 0 }
     %   STACK (for 2nd iteration): { [1; 0], [1, 2], 0 }
     %   STACK (for 3rd iteration): { [1; 0; 1; 2; 0], [1, 2, 3], 0 }
  v  % Vertically concatenate everything on the stack
     %   STACK (for 1st iteration): { [1; 0] }
     %   STACK (for 2nd iteration): { [1; 0; 1; 2; 0] }
     %   STACK (for 3rd iteration): { [1; 0; 1; 2; 0; 1; 2; 3; 0] }
] 
g    % Convert everything to be boolean (turns all non-zeros to 1)
     %   STACK: { [1; 0; 1; 1; 0; 1; 1; 1; 0] }
&*   % Perform element-wise multiplication to expand this array out into the 2D grid
     % Implicitly display the result

เยลลี่ขนาด 8 ไบต์

1ẋⱮj0ȧþ`

ลองออนไลน์!

APL (Dyalog Unicode) , 12 10 12 ไบต์^SBCS

∘.×⍨∊,\0,⎕⍴1

ลองออนไลน์!

แก้ไข: -2 ไบต์จาก ngn +2 ไบต์เนื่องจากคำตอบก่อนหน้านี้ไม่ถูกต้อง (ด้วยแนวคิดขอบคุณ ngn และ dzaima)

คำอธิบาย

∘.×⍨∊,\0,⎕⍴1

         ⎕    Take input.
           ⍴1  An array of 1s of length our input. Example: 1 1 1
       0,      Prepend a 0. Example: 0 1 1 1
     ,\        Take all the prefixes and concatenate them. Example: 0  0 1  0 1 1  0 1 1 1
    ∊          Flatten the list. Example: 0 0 1 0 1 1 0 1 1 1
∘.×⍨           Turn the above list into a multiplication table of 0s and 1s
               by multiplying the list with itself.

ผลลัพธ์ควรมีลักษณะดังนี้:

0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0
0 0 1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0 0 0
0 0 1 0 1 1 0 1 1 1
0 0 1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0 0 0
0 0 1 0 1 1 0 1 1 1
0 0 1 0 1 1 0 1 1 1
0 0 1 0 1 1 0 1 1 1

เยลลี่ขนาด 7 ไบต์

‘RÄṬ|þ`

ลองออนไลน์!

ส่งออกเมทริกซ์หลักโดยใช้สำหรับสี่เหลี่ยมและสำหรับการขยายระหว่าง ลิงก์ TIO ประกอบด้วยส่วนท้ายซึ่งจัดรูปแบบเมทริกซ์หลักในลักษณะที่มนุษย์สามารถอ่านได้โดยการเรียงแถวและคอลัมน์$0$$1$

คำอธิบาย

‘RÄṬ|þ`
 R       Take a range from 1 to
‘          {the input} plus 1
  Ä      Cumulative sum; produces the first {input}+1 triangular numbers
   Ṭ     Produce an array with 1s at those indexes, 0s at other indexes
     þ   Create a table of {the array}
      `    with itself
    |      using bitwise OR

ตัวเลขที่เซลล์ของตารางผลลัพธ์จะเป็นหากหรือใด ๆ เป็นตัวเลขสามเหลี่ยมหรือมิฉะนั้น (เนื่องจาก bitwise OR ทำงานเหมือนตรรกะหรือบน 0 และ 1) (เราใช้ช่วงตั้งแต่ 1 เพราะ Jelly ใช้การจัดทำดัชนีแบบ 1 ดังนั้นเราไม่ต้องกังวลเกี่ยวกับคอลัมน์ 0 ที่เต็มไปด้วย 0 ไม่ถูกต้องเราต้องเพิ่ม 1 ลงในอินพุตเนื่องจากอาร์เรย์ที่ผลิตโดย$(x,y)$$1$$x$$y$$0$RṬหยุดที่องค์ประกอบที่ใหญ่ที่สุดที่กำหนดในอินพุตดังนั้นเราจำเป็นต้องวาดเส้นที่ด้านขวาและด้านล่าง) ช่องว่างระหว่างตัวเลขสามเหลี่ยมเป็นจำนวนเต็มต่อเนื่องดังนั้นบล็อกสี่เหลี่ยมที่เกิดจากช่องว่างระหว่างปลายเส้น ขึ้นเป็นขนาดที่ร้องขอตามคำถาม; และการใช้งานหรือการดำเนินการ OR (ในกรณีนี้คือ bitwise) ทำให้สามารถตัดกันได้อย่างถูกต้อง

05AB1E , 9 ไบต์

กำหนดโปรแกรม{]]}$f\texttt{: }\color{purple}{\texttt{Nat}} →\color{purple}{\texttt{List}}\texttt{[}\color{purple}{\texttt{List}}\texttt{[}\color{purple}{\texttt{Nat}}\texttt{]]}$

รหัส:

$L×0ýSDδ*

ใช้05AB1E -encoding ลองออนไลน์! หรือใช้รุ่นสวยพิมพ์

คำอธิบาย:

$ # กดตัวเลข 1 และอินพุตn 
 L # สร้างรายการ [1, 2, 3, ... , n ]
  × # การคูณสตริง Vectorized: 1 × [1, 2, 3, ... , n ]
                 สิ่งนี้จะส่งผลให้ ["1", "11", "111", ... , "1" × n ]
   0ý # เข้าร่วมรายการผลลัพธ์ด้วย '0' ส่งผลให้ "10110111011110111110 ... "
     S # แบ่งเป็นหลักเดียว: [1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, ... ]
      ตารางสูตรคูณด้วยตัวเอง

C # (Visual C # Interactive Compiler) , 96 95 ไบต์

-1 ไบต์ขอบคุณศูนย์รวมแห่งความไม่รู้

n=>{var l="";for(;n>0;)l=new string('#',n--)+' '+l;for(;n<l.Length;)WriteLine(l[n++]>32?l:"");}

ลองออนไลน์!

Python 2 , 67 ไบต์

s='';n=input()
while n:s='#'*n+' '+s;n-=1
for c in s:print(c>' ')*s

ลองออนไลน์!

พิมพ์บรรทัดว่างเปล่าสำหรับบรรทัดว่างเปล่าซึ่งความท้าทายอนุญาต

ความยาวเท่ากัน (ที่มีอินพุทข้างบนn):

r=range(input())
for n in r:print(' '.join(i*'#'for i in r)+'\n')*n

ลองออนไลน์!

ภาษา Wolfram (Mathematica) , 41 ไบต์

a#&/@(a=Flatten@Array[{0,1~Table~#}&,#])&

ลองออนไลน์!

ถ่าน 18 ไบต์

≔⪫ＥＮ×#⊕ι θＥθ⭆θ⌊⟦ιλ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

   Ｎ                Input number
  Ｅ                 Map over implicit range
       ι            Current value
      ⊕             Incremented
    ×               Repetitions of
     #              Literal `#`
 ⪫                  Join with spaces
≔        θ          Assign to variable
           θ        Retrieve variable
          Ｅ         Map over characters
             θ      Retrieve variable
            ⭆      Replace characters with
              ⌊     Minimum of
               ⟦    List of
                ι   Row character
                 λ  Column character
                    Implicitly print each row on its own line

C # (.NET Core) , 208 155 ไบต์

class M{static void Main(string[]a){int i=int.Parse(a[0]);var l="";for(;i>0;)l=new string('#',i--)+' '+l;for(;;)System.Console.WriteLine(l[i++]>32?l:"");}}

ลองออนไลน์!

รุ่นปรับปรุงมากขอบคุณคนที่เป็นประโยชน์ต่างๆ (ดูความคิดเห็น)

PowerShell , 42 40 ไบต์

-2 ไบต์ขอบคุณที่Mazzy

($r=1.."$args")|%{"$($r|%{'#'*$_})
"*$_}

ลองออนไลน์!

Java 11, 109 ไบต์

n->{var l="";for(;n>0;)l="x".repeat(n--)+" "+l;for(;n<l.length();)System.out.println(l.charAt(n++)>32?l:"");}

ท่าเรือASCII-only @ 's C # .NET คำตอบ

ลองออนไลน์

n->{                       // Method with integer parameter and no return-type
  var l="";                //  Line-String, starting empty
  for(;n>0;)               //  Loop until `n` is 0:
    l=...+l;               //   Prepend to `l`:
       "x".repeat(n--)+" " //    Repeat "x" `n` amount of times, appended with a space
                           //    And decrease `n` by 1 afterwards with `n--`
    for(;n<l.length();)    //   Inner loop as long as `n` is smaller than the length of `l`:
      System.out.println(  //    Print with trailing newline:
        l.charAt(n++)>32?  //     If the `n`'th character of the line-String is NOT a space:
                           //     And increase `n` by 1 afterwards with `n++`
         l                 //      Print the line-String
        :                  //     Else:
         "");}             //      Print nothing (so only the newlines)

APL + WIN, 29 ไบต์

m/⍉(m←¯1↓∊(⍳n),¨¯1)/(n,n←⎕)⍴1

คำอธิบาย:

(n,n←⎕)⍴1 prompt for integer n and create a nxn matrix of 1s

(m←¯1↓∊(⍳n) replicate the columns by 1,2,.....n and insert 0s between each replication

m/⍉ repeat replication and 0 insertion for the rows from above 

ตัวอย่าง:

⎕:
3
1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1

J , 17 ไบต์

[:*/~2=/\[:I.2+i.

ลองออนไลน์!

Mouse-2002 , 79 ไบต์

แมโครของ Mouse ที่ไม่เหมาะสมเพื่อใช้งานซ้ำ ๆ

?1+n:#P,n,j,k,b#P,j,y,k,#P,n,i,' ,#P,i,x,35;;;;$P0 2%:(1%.2%.-^4%3%!'2%.1+2%:)@

ลองออนไลน์!

Ruby , 55 ไบต์

->n{(s=(1..n).map{|x|?#*x}*' ').chars.map{|c|c<?!?c:s}}

ลองออนไลน์!

อย่างไร?

ก่อนสร้างบรรทัดแรกจากนั้นวนซ้ำผ่านตัวอักษร พิมพ์ทั้งบรรทัดหากอักขระคือ '#' มิฉะนั้นพิมพ์อักขระเดี่ยว (ซึ่งเป็นช่องว่าง)

Brain-Flakขนาด 170 ไบต์

(({})<>){(({})<{({}[()]<(<>({})<>){(({})<{({}[(())])}>[()])}{}{}(([(()()()()())(){}]){})>)}{}(({}))>[()])}{}{}{}([]){{}({}<>((((()()){}){}){}){})<>([])}{}<>{({}<>)<>}<>{}

ลองออนไลน์!

Perl 6 , 35 33 ไบต์

{((\*Xx$_+1)~"
"Xx$_+1)>>.say}o^*

ลองออนไลน์!

Callable นิรนามที่ใช้ตัวเลขและพิมพ์ตารางการคูณด้วย*s ด้วยการขึ้นบรรทัดใหม่

คำอธิบาย:

{                             }o^* # Change the input to the range 0..n-1
  (\*Xx$_+1)    # Cross string multiply '*' by all of range 1..n
                # This creates the string "* ** *** ****" etc.
            ~"\n"                 # Append a newline
                 Xx$_+1           # Cross string multiply again
 (                     )>>.say    # And print all the lines

Haskell, 69 68 ไบต์

(a#b)0=[]
(a#b)n=(a#b)(n-1)++b:(a<$[1..n])
f n=((1#0)n#(0<$(1#0)n))n

ส่งคืนเมทริกซ์ของตัวเลข

ลองออนไลน์!

ตัวแปรที่fมีจำนวนไบต์เดียวกัน:

f n=((#)<*>(0<$)$(1#0)n)n
f n|l<-(1#0)n=(l#(0<$l))n

Stax , 7 ไบต์

é╫▐§╘←╘

เรียกใช้และแก้ไขข้อบกพร่อง

ตัวละครที่เลือกคือ backtick (คุณจะฟอร์แมตโค้ดใน markdown ได้อย่างไร)

นั่นหมายถึงaและbได้รับการพิจารณาว่าเป็นช่องว่างที่ไม่เกี่ยวข้อง

MathGolf , 20 ไบต์

╒ÉÄ10;]h\■mÆε*╣¡§y╠n

ลองออนไลน์!

MathGolf ต้องการฟังก์ชั่นเพิ่มเติมสำหรับการแยกรายการและสร้างรายการ 2D จริงๆ

คำอธิบาย

╒                      range(1,n+1)
 É                     start block of length 3
  Ä                    start block of length 1
   1                   push 1
    0                  push 0
     ;                 discard TOS
      ]                end array / wrap stack in array
                       the stack now contains the list [1, 0, 1, 1, 0, 1, 1, 1, 0, 1, ...]
       h               length of array/string without popping (used for splitting string)
        \              swap top elements
         ■             cartesian product with itself for lists, next collatz item for numbers
          m            explicit map
           Æ           start block of length 5
            ε*         reduce list by multiplication (logical AND)
              ╣¡       push the string " #"
                §      get character at index 0 or 1 based on logical AND value
                       block ends here, stack is now ['#',' ','#','#',' ','#',...]
                 y     join array without separator to string
                  ╠    pop a, b, push b/a (divides the string using the length of a single line)
                   n   join array of strings with newlines

หมึก , 151 152 151 ไบต์

VAR k=0
=t(n)
~k=n
-(u)
~n--
{n+1:->s(k-n)->u}->->
=r(c)
->g(c)->
{k-c:<>->r(c+1)}->->
=g(n)
{n>1:@<>->g(n-1)}@->->
=s(n)
{n:
->r(1)->
->s(n-1)
}
.->->

ลองออนไลน์!

สิ่งที่ดีกฎอนุญาตให้ใช้อักขระส่วนเกิน

แก้ไข: +1: แก้ไขระยะห่าง นอกจากนี้แสดงโดยใช้ @ (ซึ่งไม่จำเป็นต้องมีการหลบหนี) แทนที่จะเป็น # (ซึ่งใช้)

แก้ไข: -1: เห็นได้ชัดว่าการแก้ไขยังหมายความว่าฉันไม่จำเป็นต้องใช้ช่วงเวลาต่อท้ายเพื่อบังคับให้ขึ้นบรรทัดใหม่ในบรรทัดที่ไม่ว่างเปล่า เรียบร้อย

C ++, 170 156 ไบต์

ขอบคุณ dzaima

#include<string>
using v=std::string;v f(int a){v s;for(int i=1;i<=a;++i,s+='\n')for(int k=0;k<i;++k,s+='\n')for(int j=1;j<=a;++j)s+=v(j,'#')+' ';return s;}

SmileBASIC, 83 77 ไบต์

เอาท์พุทแบบกราฟิก อินพุตคือN-1

INPUT N
FOR J=0TO N
X=0FOR I=0TO N
GFILL X,Y,X+I,Y+J
X=X+I+2NEXT
Y=Y+J+2NEXT

Python 3 , 88 83 ไบต์

-5 ไบต์จากJo King

n,l=range(int(input())),''
for i in n:l+='#'*-~i+' '
for j in n:print((l+'\n')*-~j)

ลองออนไลน์!

Perl 6, 63 ไบต์

{(1..$_).map(((1..$_).map("#"x*).join(" ")~"\n")x*).join("\n")}

C (gcc) , 108 104 ไบต์

-4 ไบต์ขอบคุณที่แมวเพดาน

f(n,j){char*s,u[n*n],*t=s=u,i=0;for(;i++<n;*s++=32)for(j=i;j--;)*s++=35;for(s=t;*t;)puts(*t++>32?s:"");}

ลองออนไลน์!