Persegi panjang memiliki properti yang bagus ini - $n \times m$ persegi panjang terdiri dari persis $n \times m$ karakter!

Sebuah .. properti lebih menarik adalah bahwa persegi panjang dapat disejajarkan dengan baik dalam tabel perkalian - misalnya, $3 \times 3$ tabel:

# ## ###

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

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

Tantangan Anda adalah, mengingat angka $n$ ( $n > 1$ ), menghasilkan tabel perkalian n × $n \times n$ diformat .

Aturan

• Anda dapat mengambil input di atas atau di bawah $n$
• Aturan I / O standar berlaku
• Anda dapat memilih karakter non-spasi putih untuk mewakili blok; setiap karakter lain (meskipun baris baru khusus) dianggap spasi putih. Karakter yang dipilih dapat berbeda untuk input yang berbeda, tetapi harus sama di seluruh input
• Hasilnya dapat memiliki karakter yang tidak diperlukan, selama tabel sejajar dan tidak ada kemunculan karakter yang dipilih yang bukan bagian dari output yang diperlukan
• Pemisah harus 1 karakter lebar / tinggi, dan persegi panjang harus dikemas (yaitu tidak ada pemisah antara karakter mereka)
• Baris kosong bisa kosong, padding tidak diperlukan
• Hasilnya bisa berupa string, matriks, vektor garis, array array karakter, atau apa pun 2Dish
• Sebagai alternatif, Anda dapat mengeluarkan matriks / vektor-vektor-vektor / apa saja angka 2Dish, tetapi latar belakang & latar depan harus berupa 2 angka berbeda (yang dapat memvariasikan input ke input, tetapi tidak di seluruh output) dan tidak ada angka lain yang dapat ditampilkan. Karakter tambahan di sekitarnya juga diperbolehkan dengan format ini (meskipun mereka harus cocok dengan nomor latar belakang)
• Ini adalah kode-golf , jawaban terpendek dalam byte, per-bahasa, menang!

Contohnya

Untuk input 2, output ascii-art yang valid, dengan karakter ∙, adalah:

        ∙ ∙∙

Result: ∙ ∙∙.
        ∙ ∙∙

^{ya periode ada di sana hanya untuk membingungkan Anda}
Jawaban lain yang valid sebagai matriks angka, dengan 2 sebagai nomor latar belakang dan 9 latar depan:

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

Contoh output yang tidak valid adalah

#  # #


#  # #

#  # #

karena persegi panjang memiliki pemisah di antara mereka.

Contoh output untuk $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 byte

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

Cobalah online!

Pendekatan pintar oleh Ørjan Johansen menghasilkan dengan 0 dan 1, menghasilkan setiap 10...00bagian sebagai representasi string dari kekuatan 10.

111111111
101001000
111111111
101001000
101001000
111111111
101001000
101001000
101001000

Haskell , 49 byte

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

Cobalah online!

Buat pola seperti [1,0,1,0,0,1,0,0,0,...], lalu buat 2D dengan mengambil minpasangan. Keanehan pointfree menghemat 2 byte lebih mudah dibaca:

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

Cobalah online!

R , 56 54 43 36 30 byte

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

Cobalah online!

Mengambil input satu di atas $n$ (jadi mengembalikan matriks 3x3 untuk $n = 4$ ). Mengembalikan matriks $1s$ (foreground), dan $0s$ (latar belakang) dengan baris / kolom tambahan nol di depan.

Berkat digEmAll untuk -7 byte.

JavaScript (ES6),  73 72  69 byte

Mengembalikan string yang terbuat dari 1, spasi, dan umpan baris.

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

Cobalah online!

JavaScript (ES7),  87 83  82 byte

Disimpan 3 byte berkat @dzaima

Mengembalikan matriks biner, yang dibangun sel demi sel.

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

Cobalah online!

Bagaimana?

Lebar $w$ dari matriks diberikan oleh:

(NB: Sebagaimana diizinkan oleh aturan tantangan, kami menghasilkan matriks lebar sebagai gantinya.)$w+1$

Demikian pula, sel yang terletak di kosong jika kuadrat berikut mengakui akar integer untuk atau :$(X,Y)$$k=X$$k=Y$

penentu yang adalah:

MATL, 14 10 byte

:"@:Fv]g&*

Jawaban ini digunakan 1untuk blok dan 0latar belakang

Cobalah di MATL Online

Penjelasan

     % 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

Jelly , 8 byte

1ẋⱮj0ȧþ`

Cobalah online!

APL (Dyalog Unicode) , 12 10 12 byte ^SBCS

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

Cobalah online!

Edit: -2 byte dari ngn. +2 byte karena jawaban sebelumnya tidak valid (dengan ide berkat ngn dan dzaima).

Penjelasan

∘.×⍨∊,\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.

Outputnya akan terlihat seperti:

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

Jelly , 7 byte

‘RÄṬ|þ`

Cobalah online!

Menghasilkan matriks digit, menggunakan untuk persegi panjang dan untuk padding di antara mereka. TIO link berisi footer yang memformat matriks digit dengan cara yang dapat dibaca manusia dengan mengurutkan baris dan kolom.$0$$1$

Penjelasan

‘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

Angka pada sel dari tabel yang dihasilkan akan menjadi jika salah satu atau adalah angka segitiga, atau sebaliknya (karena bitwise OR berfungsi seperti logika OR pada 0 dan 1). (Kami menggunakan , berkisar dari 1, karena Jelly menggunakan pengindeksan berbasis 1, jadi kami tidak perlu khawatir tentang kolom 0 yang salah penuh dengan 0s; kami harus menambahkan 1 ke input karena array dihasilkan oleh$(x,y)$$1$$x$$y$$0$RṬberhenti pada elemen terbesar yang diberikan dalam input, jadi kita perlu menggambar garis di sisi kanan dan bawah.) Kesenjangan antara angka segitiga adalah bilangan bulat berurutan, sehingga blok persegi panjang dibentuk oleh celah antara ujung garis sebagai ukuran yang diminta oleh pertanyaan; dan penggunaan operasi ATAU (dalam hal ini, bitwise) memungkinkan garis saling bersilangan dengan benar.

05AB1E , 9 byte

Menentukan program .$f\texttt{: }\color{purple}{\texttt{Nat}} →\color{purple}{\texttt{List}}\texttt{[}\color{purple}{\texttt{List}}\texttt{[}\color{purple}{\texttt{Nat}}\texttt{]]}$

Kode:

$L×0ýSDδ*

Menggunakan pengodean 05AB1E . Cobalah online! atau gunakan versi yang tercetak cantik .

Penjelasan:

$ # Tekan angka 1 dan input n 
 L # Buat daftar [1, 2, 3, ..., n ]
  × # Perkalian string dengan vektor: 1 × [1, 2, 3, ..., n ]
                 Ini akan menghasilkan ["1", "11", "111", ..., "1" × n ]
   0ý # Bergabung dengan daftar yang dihasilkan dengan '0', menghasilkan "10110111011110111110 ..."
     S # Dibagi menjadi satu digit: [1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, ...]
      Dδ * # Tabel perkalian dengan dirinya sendiri

C # (Visual C # Interactive Compiler) , 96 95 byte

-1 byte berkat Perwujudan Ketidaktahuan

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

Cobalah online!

Python 2 , 67 byte

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

Cobalah online!

Mencetak garis kosong untuk garis kosong, yang memungkinkan tantangan.

Panjang yang sama (dengan input satu di atas n):

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

Cobalah online!

Bahasa Wolfram (Mathematica) , 41 byte

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

Cobalah online!

Arang , 18 byte

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

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan:

   Ｎ                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 byte

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:"");}}

Cobalah online!

Versi yang jauh direvisi terima kasih kepada berbagai orang yang membantu (lihat komentar).

PowerShell , 42 40 byte

-2 byte berkat mazzy .

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

Cobalah online!

Java 11, 109 byte

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

Port C # .NET . Hanya jawaban dari ASCII .

Cobalah online.

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 byte

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

Penjelasan:

(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 

Contoh:

⎕:
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 byte

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

Cobalah online!

Mouse-2002 , 79 byte

Menyalahgunakan makro Mouse untuk mengulangi fungsionalitas.

?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%:)@

Cobalah online!

Ruby , 55 byte

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

Cobalah online!

Bagaimana?

Pertama, buat baris pertama, lalu beralih melalui karakternya. Cetak seluruh baris jika karakternya adalah '#', jika tidak cetak karakter tunggal (yang merupakan spasi)

Brain-Flak , 170 byte

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

Cobalah online!

Perl 6 , 35 33 byte

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

Cobalah online!

Callable Anonim yang mengambil nomor dan mencetak tabel perkalian *dengan huruf s dengan trailing newline.

Penjelasan:

{                             }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 byte

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

Mengembalikan matriks angka.

Cobalah online!

Varian fdengan jumlah byte yang sama:

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

Stax , 7 byte

é╫▐§╘←╘

Jalankan dan debug itu

Karakter yang dipilih adalah backtick. (Bagaimana Anda memformat kode yang dalam penurunan harga?)

Itu berarti adan bdianggap sebagai spasi kosong.

MathGolf , 20 byte

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

Cobalah online!

MathGolf benar-benar perlu mendapatkan beberapa fungsionalitas lagi untuk memisahkan daftar dan membuat daftar 2D.

Penjelasan

╒                      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

Tinta , 151 152 151 byte

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)
}
.->->

Cobalah online!

Untung aturan memungkinkan kelebihan karakter.

Sunting: +1: Memperbaiki jarak. Juga, tampilkan menggunakan @ (yang tidak perlu melarikan diri) daripada # (yang tidak)

Sunting: -1: Rupanya perbaikan itu juga berarti saya tidak lagi memerlukan periode tambahan untuk memaksa baris baru pada baris yang tidak kosong. Rapi.

C ++, 170 156 byte

Terima kasih untuk 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 byte

Output grafis. Masukan adalahN-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 byte

-5 byte dari Jo King

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

Cobalah online!

Perl 6, 63 byte

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

C (gcc) , 108 104 byte

-4 bytes berkat ceilingcat

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:"");}

Cobalah online!