กำหนดเป็นอินพุตจำนวนเต็มบวกn>=1เอาท์พุทnแถวแรกของสามเหลี่ยมต่อไปนี้:

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

แถวสลับกันระหว่างศูนย์ทั้งหมดและแถวทั้งหมดยกเว้นคอลัมน์กลางจะพลิก

กรณีทดสอบ

• อินพุต :3

• ผลผลิต :

      1
    1 0 1
  0 0 1 0 0
  

• อินพุต :10

• ผลผลิต :

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

รหัสของคุณจะต้องใช้งานn<100ได้ นี่คือcode-golfดังนั้นโค้ดที่สั้นที่สุดในหน่วยไบต์ชนะ!

ช่องว่างต่อท้าย / การขึ้นบรรทัดใหม่และการขึ้นบรรทัดใหม่นำได้

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

Ṭ=Ḃµ€ŒB

ลองออนไลน์!

-1 ไบต์ขอบคุณ Erik the Outgolfer

คำอธิบาย

Ṭ=Ḃµ€ŒB  Main link
    €    For each element in (implicit range of) the input:
Ṭ        List 1s and 0s with 1s in the indices in the left argument (generates `[0, 0, ..., 1]`)
 =Ḃ      Is this equal to `(z % 2)` where `z` is the range number? (Every other row is flipped)
     ŒB  Reflect each row

Python 2 , 50 ไบต์

lambda n:[i*`i%2`+`~i%2`+i*`i%2`for i in range(n)]

ลองออนไลน์!

นี่จะส่งคืนแถวเป็นรายการของ Strings

Python 2 , 67 65 63 ไบต์ (จัดรูปแบบ)

n=input()
for i in range(n):k=i*`i%2`;print(n-i)*" "+k+`~i%2`+k

ลองออนไลน์!

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

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

⁼€=ḂŒḄµ€

ลองออนไลน์!

-2 ขอบคุณที่HyperNeutrino

Python 2 , 50 ไบต์

lambda n:[[i%2]*i+[~i%2]+i*[i%2]for i in range(n)]

ลองออนไลน์!

Python 2 , 53 ไบต์

lambda n:[(([i%2]*i+[~i%2])*2)[:-1]for i in range(n)]

ลองออนไลน์!

Python 2 , 67 ไบต์

lambda n:[[[i%2,~i%2][j==i]for j in range(2*i+1)]for i in range(n)]

ลองออนไลน์!

Japt , 12 9 ไบต์

õÈÇ¥Y^uÃê

ทดสอบออนไลน์!

ค่อนข้างเศร้าเล็กน้อยเมื่อเทียบกับ Jelly แต่ Japt ไม่มีสิ่งใดเหมือนṬดังนั้นฉันต้องทำกับสิ่งที่ฉันมี ...

คำอธิบาย

 õÈ   Ç   ¥ Y^ uà ê
UõXY{XoZ{Z==Y^Yu} ê}      Ungolfed
                          Implicit: U = input number
Uõ                        Create the range [1..U].    [1, 2, 3, 4]
  XY{              }      Map each item X and 0-index Y in this to
     Xo                     Create the range [0..X).  [[0], [0, 1], [0, 1, 2], [0, 1, 2, 3]]
       Z{      }            Map each item Z in this to
         Z==Y                 Z is equal to Y         [[1], [0, 1], [0, 0, 1], [0, 0, 0, 1]]
             ^Yu              XORed with Y % 2.       [[1], [1, 0], [0, 0, 1], [1, 1, 1, 0]]
                  ê         Bounce.                   [[1],
                                                       [1, 0, 1],
                                                       [0, 0, 1, 0, 0],
                                                       [1, 1, 1, 0, 1, 1, 1]]
                          Implicit: output result of last expression

Mathematica, 77 ไบต์

Table[CellularAutomaton[51,{{1},0},#,{All,All}][[i]][[#-i+2;;-#+i-2]],{i,#}]&

@ ไม่ต้นไม้ลงไปที่ 48 ไบต์!

Mathematica, 48 ไบต์

#&@@@NestList[CellularAutomaton@51,{{1},0},#-1]&

Pyth , 14 ไบต์

ขอบคุณ @Jakube สำหรับการบันทึก 2 ไบต์!

ms_+Bm%d2d%hd2

ลองที่นี่!

Pyth , 15 ไบต์

ขอบคุณมากสำหรับ @Jakube สำหรับ -1 ไบต์

m++K*d]%d2%td2K

ลองที่นี่

Pyth , 16 ไบต์

m++K*d`%d2`%td2K

ลองที่นี่

R , 73 ไบต์

ขอบคุณ Giuseppe! รับได้สวย.

n=scan();for(i in 1:n)cat(c(rep(" ",n-i),x<-rep(1-i%%2,i-1)),i%%2,x,"\n")

ลองออนไลน์!

R , 78 ไบต์

n=scan();for(i in 1:n)cat(x<-c(rep(" ",n-i),rep(1-i%%2,i-1)),i%%2,rev(x),"\n")

ลองออนไลน์!

R , 82 ไบต์

n=scan();for(i in 1:n){j=i%%2;x=c(rep(" ",n-i),rep(1-j,i-1));cat(x,j,rev(x),"\n")}

ลองออนไลน์!

R , 110 ไบต์ - ส่งออกไปยัง stdout

m=matrix(x<-rep_len(0:1,n<-scan()),n,n-1);m[upper.tri(m,T)]=" ";for(i in 1:n)cat(rev(m[i,]),1-x[i],m[i,],"\n")

ลองออนไลน์!

R , 130 ไบต์ - ส่งออกไปยังไฟล์

m=matrix(x<-rep_len(0:1,n<-scan()),n,n-1);m[upper.tri(m,T)]=" ";for(i in 1:n)cat(rev(m[i,]),1-x[i],m[i,],"\n",file="a",append=i>1)

ลองออนไลน์!

เขียนลงไฟล์เพราะผมไม่รู้ว่าจะใส่เข้าไปในคอนโซลได้อย่างไรn==99(ดูผลลัพธ์ที่นี่ )

ปาสคาล , 181 154 ไบต์

บันทึก 27 ไบต์ด้วย @ThePirateBay

procedure f(n:integer);var i,j:integer;begin for i:=1to n do begin write(' ':(n-i+1)*2);for j:=1to i*2-1do write((ord(j<>i)+i)mod 2,' ');writeln()end end;

ลองออนไลน์!

Unglofed

procedure f (n: integer);
    var i, j: integer;
    begin
        for i := 1 to n do
        begin
            write(' ': (n-i+1) * 2);
            for j := 1 to i*2-1 do
                write((ord(j<>i) + i) mod 2, ' ')
            writeln()
        end
    end;

เรติน่า 25 ไบต์

.+
$*0
0
1$`¶
T`d`10`¶.*¶

ลองออนไลน์! คำอธิบาย: ขั้นตอนแรกจะแปลงอินพุตเป็นสตริงศูนย์ที่มีความยาวนั้น ขั้นตอนที่สองจะนำหน้าทั้งหมดของสตริงนั้น (ไม่รวมสตริงเอง) และนำหน้า 1 ไปยังพวกเขา ขั้นตอนที่สามจะสลับบิตบนเส้นอื่น

05AB1E , 24 21 18 ไบต์

FNÉN×NÈJûIN>-úˆ}¯»

ลองออนไลน์!

แก้ไข: ก็เป็น 05AB1E กอล์ฟครั้งแรกของฉันดังนั้นฉันจึงไม่แปลกใจที่จะสามารถตีกอล์ฟได้ แก้ไขประวัติ:

• 18 (ดูด้านบน)
  • ดังนั้นจึงมีเป็นกระจกตัด (ทั้ง.∞และû) ซึ่ง eases ถึงสิ่งที่มาก
  • ในฐานะที่ทำÈและÉทำให้2%และ2%_สั้นมาก
• 21: FN2%DN×Dr_sJIN>-úˆ}¯»
  • ลบเนื้อหาโดยนัย: IF-> F, )J->J
  • baaที่aabสามารถทำได้โดย.À(หมุน)แต่ยังโดยr(ย้อนกลับ) (สั้นลง)
• 24: IFN2%DN×D.À_s)JIN>-úˆ}¯»

Perl 5 , 58 + 1 (-n) = 59 ไบต์

say$"x(2*--$_).($/=$i%2 .$")x$i.(1-$i%2).$".$/x$i++while$_

ลองออนไลน์!

# Perl 5 , 59 + 1 (-n) = 60 ไบต์

say$"x(2*--$_).($i%2 .$")x$i.(1-$i%2).($".$i%2)x$i++while$_

ลองออนไลน์!

Mathematica, 90 ไบต์

Array[(x=Table[1,f=(2#-1)];x[[⌈f/2⌉]]=0;If[#==1,{1},If[OddQ@#,x/.{1->0,0->1},x]])&,#]&

SOGL V0.12 , 13 ไบต์

∫:2\r*Kr1κ+╥T

ลองที่นี่!

ถ่าน 18 ไบต์

ＥＮ⪫ＩＥ⁺¹ι﹪⁺ι¬λ² ‖Ｏ←

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

ＥＮ              For each of the input number of rows
  ⪫             Join with spaces
   Ｉ            Convert to string
    Ｅ⁺¹ι        For each column
        ﹪⁺ι¬λ²  Calculate the digit
‖Ｏ←             Reflect to the left

JavaScript, 140 132 ไบต์ (พร้อมการจัดรูปแบบที่เหมาะสม)

n=>{A=Array;a='';b=0;for(x of A(n)){for(c of A(n-b))a+=' ';for(c of A(b))a+=b%2;a+=(b+1)%2;for(c of A(b))a+=b%2;a+='\n';b++}return a}

ลองใช้ออนไลน์

JavaScript (ES6) , 74 73 71 68 64 ไบต์

-7 ไบต์โดย @Neil

f=n=>n--?[...f(n), [...Array(n-~n)].map((v,i)=>(n+(i==n))%2)]:[]

ลองออนไลน์!

ฟังก์ชั่นวนซ้ำแบบง่ายที่สร้างบรรทัดทีละบรรทัด ส่งออกเป็นอาร์เรย์ของตัวเลข

เอาต์พุตเป็นสตริงที่จัดรูปแบบ:

JavaScript (ES6) , 122 119 118 ไบต์

f=(n,w=2*n+1,N=n,s=" ".repeat((N-n)*2))=>(--n?f(n,w,N)+s+[...Array(n-~n)].map((v,i)=>(n+(i==n))%2).join(" "):s+1)+"\n"

ลองออนไลน์!

Haskell , 54 ไบต์

ตรงไปตรงมารายการความเข้าใจ:

f n=[k++[mod i 2]++k|i<-[1..n],k<-[mod(i+1)2<$[2..i]]]

ลองออนไลน์!

J, 32 ไบต์

3 :'-.^:(2|y)(=|.)i.>:+:y'&.>@i.

ลองออนไลน์! นี่คือฟังก์ชั่นที่ไม่ระบุชื่อที่ส่งกลับรายการค่าที่บรรจุอยู่

ฉันชอบจินตนาการว่านิยามฟังก์ชั่นที่ชัดเจนช่วยประหยัดไบต์โดยอาศัยการเอาแคปและมันอาจจะเพิ่มสองสามไบต์เมื่อเปรียบเทียบกับคำตอบโดยปริยาย

คำอธิบาย

3 :'-.^:(2|y)(=|.)i.>:+:y'&.>@i.
                              i. For i = 0 ... input - 1
3 :'-.^:(2|y)(=|.)i.>:+:y'        Explicit function: compute nth row
                    >:+:y          2n+1
                  i.               Range [0,2n+1)
             (=|.)                 Equate range to reversed range
                                    (yield 0 0 0 ... 1 ... 0 0 0)
                                   If
                                    n = 1 (mod 2)
                                   Then
                                    Negate each value
                          &.>     Box

05AB1E , 11 ไบต์

FN°SRNF_}ûˆ

ลองออนไลน์!

คำอธิบาย

F             # for N in range [0 ... input-1] do:
 N°           # push 10^N
   S          # split to list of digits
    R         # reverse
     NF_}     # N times do: logical negation
         û    # palendromize
          ˆ   # add to global list
              # implicitly display global list

J , 17 ไบต์

(2&|~:0=i:)&.>@i.

ลองออนไลน์!

ส่งออกรายการอาร์เรย์ที่บรรจุอยู่ในกล่อง

คำอธิบาย

(2&|~:0=i:)&.>@i.  Input: n
               i.  Range from 0 to n, exclusive end
           & >     Unbox each and perform on each x
        i:           Range from -x to x, inclusive
      0=             Equal to 0
    ~:               Not equal
 2&|                 x mod 2
           &.>       Perform inverse of unbox (box)

Java 8, 121 111 109 101 ไบต์

n->{String r[]=new String[n],t;for(int i=0,j;i<n;r[i++]=t+i%2+t)for(j=0,t="";j++<i;t+=i%2);return r;}

คะแนนไบต์ปัจจุบันของฉัน (101) ก็เป็นแถวของรูปสามเหลี่ยมไบนารีเช่นกัน :)

คำอธิบาย:

ลองที่นี่

n->{                         // Method with integer parameter and String-array return-type
  String r[]=new String[n],  //  Result String-array
         t;                  //  Temp String
  for(int i=0,j;             //  Some index-integers
      i<n;                   //  Loop (1) from 0 to `n` (exclusive)
      r[i++]=                //    After every iteration, set the next row to:
        t+                   //     `t` +
        i%2                  //     Center digit (`i` has already been raised by 1 now)
        +t)                  //     + `t` again
    for(j=0,t="";            //   Reset index `j` and the temp-String `t`
        j++<i;               //   Inner loop (2) from 0 to `i` (exclusive)
      t+=i%2                 //    Append `t` with an outer digit
    );                       //   End of inner loop (2)
                             //  End of loop (1) (implicit / single-line body)
  return r;                  //  Return resulting String-array
}                            // End of method

GolfScript , 49 ไบต์

~.:a;0\{..1+2%.!""+@*+" "a(:a*+.1>-1%\+"\n"+\)}*;

ลองออนไลน์!