การรวม - การแยกช่วยให้คุณคำนวณขนาดของสหภาพและจุดตัดระหว่างชุดที่ทราบค่าอื่น ๆ ฉันจะไม่อธิบายอย่างถ่องแท้ แต่ความท้าทายของคุณคือการมองเห็นการรวมการยกเว้นใน Venn Diagram

เพราะฉันดีคุณจะใช้รูปสี่เหลี่ยมผืนผ้าไม่ใช่แวดวง

คุณจะได้รับรายชื่อของรูปสี่เหลี่ยมผืนผ้าแสดงโดยพิกัดมุมบนซ้ายและขวาล่างในรูปแบบที่เหมาะสมใด ๆ (รายการของ tuples 4 รายการของคู่คู่รายการคู่ ฯลฯ ) คุณสามารถสันนิษฐานได้ว่าพิกัดทั้งหมดนั้นไม่เป็นลบและอยู่ในช่วงหมายเลข (สมเหตุสมผล) ของภาษาของคุณ (โปรดระบุว่ามันคืออะไรถ้ามันน้อยกว่า 128) คุณสามารถเลือกที่จะเป็นแบบรวมด้านซ้ายหรือด้านซ้ายแบบเอกสิทธิ์เฉพาะบุคคลและแบบด้านขวาหรือแบบด้านขวา ไม่ว่าคุณจะเลือกรูปแบบใดคุณสามารถสมมติว่ารูปสี่เหลี่ยมผืนผ้าทั้งหมดมีอย่างน้อย 1x1

จากนั้นคุณจะต้องวาดแต่ละสี่เหลี่ยมบนหน้าจอ (ผ้าใบ ASCII) โดยใช้อักขระที่ไม่ใช่ช่องว่างตัวkเดียวซึ่งเป็นของคุณที่จะเลือก

อย่างไรก็ตามเมื่อใดก็ตามที่มีสี่เหลี่ยมสองรูปทับกันพื้นที่ทับซ้อนจะถูกวาดด้วยอักขระที่ไม่ใช่ช่องว่างl != kอื่น

เมื่อใดก็ตามที่สามสี่เหลี่ยมซ้อนกันพื้นที่ที่ทับซ้อนกันควรจะวาดด้วยkและสำหรับเป็นเลขคี่สี่เหลี่ยมครอบคลุมและเป็นเลขคู่,kl

พื้นหลังควรเป็นช่องว่างเดียว ( 0x20)

กรณีทดสอบ ( k = "#", l = ".")

0 0 9 9
1 1 10 10
2 2 11 11

#########  
#........# 
#.#######.#
#.#######.#
#.#######.#
#.#######.#
#.#######.#
#.#######.#
#.#######.#
 #........#
  #########

1 1 3 3
2 2 4 4


 ## 
 #.#
  ##

1 1 9 9
2 2 8 8
3 3 7 7


 ########
 #......#
 #.####.#
 #.####.#
 #.####.#
 #.####.#
 #......#
 ########

หมายเหตุ

• ช่องว่างนำหน้าและการขึ้นบรรทัดใหม่ (ซึ่งเกิดขึ้นหากไม่มีการประสานงานขั้นต่ำ0, 0) ต้องแสดง
• ช่องว่างที่ต่อท้ายและการขึ้นบรรทัดใหม่จะได้รับอนุญาตในระดับที่เหมาะสม (เช่นไม่ได้ตามเหมือนการขึ้นบรรทัดใหม่ 100000000 นั่นเป็นเพียงการรำคาญ)
• แกน x และ y สามารถเผชิญได้ทั้งสองทาง แต่คุณต้องสอดคล้องและระบุว่า (ค่าเริ่มต้นคือ x- ขวาและ y- ลง)
• พิกัดสามารถเป็นดัชนี 0-, 1, หรือ 2-

การดำเนินการอ้างอิงของโปรตอน

นี่คือรหัสกอล์ฟดังนั้นจุดประสงค์คือต้องมีรหัสที่สั้นที่สุด มีความสุขในการเล่นกอล์ฟ!

รหัสประจำเครื่อง 6502 (C64), 57 ไบต์

20 44 E5 A0 03 84 FB 20 9B B7 A4 FB 96 22 C6 FB 10 F5 85 FC A6 24 20 F0 E9 A4
25 B1 D1 09 01 49 02 91 D1 C8 C4 23 D0 F3 E8 E4 22 D0 E9 A9 2C C5 FC F0 D0 A5
C6 F0 FC C6 C6 4C 44 E5

นี่คือรหัสตำแหน่งอิสระใส่ไว้ที่ไหนสักแห่งใน RAM sysและใช้ที่อยู่เริ่มต้นที่ถูกต้องเรียกมันว่าด้วย

การสาธิตออนไลน์ (ที่อยู่เริ่มต้น$C000/49152)

การใช้งาน: sys<startaddress>,<x1>,<y1>,<x2>,<y2>[,<x1>,<y1>,<x2>,<y2>[,...]]

ตัวอย่าง: sys49152,0,0,9,9,1,1,10,10,2,2,11,11

ในช่วงจำนวนที่เหมาะสม: ช่วงธรรมชาติของเครื่อง 8 บิตนี้คือ [0-255] และโปรแกรมจะยอมรับสิ่งนี้เป็นพารามิเตอร์ แต่หน้าจอ C64 มีเพียง 40 คอลัมน์และ 25 แถวดังนั้นจึง จำกัดช่วงที่เหมาะสมที่ [0-40] สำหรับค่า x และ [0-25] สำหรับค่า y การใช้ค่าอื่น ๆ จะมีพฤติกรรมที่คาดเดาไม่ได้

แสดงความคิดเห็นในรายการถอดชิ้นส่วน:

20 44 E5    JSR $E544           ; clear screen
 .mainloop:
A0 03       LDY #$03            ; index for reading coordinates
84 FB       STY $FB
 .inputrect:
20 9B B7    JSR $B79B           ; read 8bit value from parameter
A4 FB       LDY $FB
96 22       STX $22,Y           ; and store to $22-$25
C6 FB       DEC $FB
10 F5       BPL .inputrect      ; parameter reading loop
85 FC       STA $FC             ; store last character
A6 24       LDX $24             ; load y1
 .rowloop:
20 F0 E9    JSR $E9F0           ; get pointer to screen row in $d1/$d2
A4 25       LDY $25             ; load x1
 .colloop:
B1 D1       LDA ($D1),Y         ; load character at screen position
09 01       ORA #$01            ; set bit 0 ( -> '#')
49 02       EOR #$02            ; toggle bit 1 (toggle between '#' and '!' )
91 D1       STA ($D1),Y         ; store character at screen position
C8          INY                 ; next x
C4 23       CPY $23             ; equals x2?
D0 F3       BNE .colloop        ; no -> repeat
E8          INX                 ; next y
E4 22       CPX $22             ; equals y2?
D0 E9       BNE .rowloop        ; no -> repeat
A9 2C       LDA #$2C            ; load ','
C5 FC       CMP $FC             ; compare with last character from parsing
F0 D0       BEQ .mainloop       ; if ',', repeat reading coordinates
 .waitkey:
A5 C6       LDA $C6             ; load input buffer size
F0 FC       BEQ .waitkey        ; and repeat until non-empty
C6 C6       DEC $C6             ; set back to empty
4C 44 E5    JMP $E544           ; clear screen

Python 2 , 218 192 189 185 158 154 147 ไบต์

def f(l):_,_,a,b=map(range,map(max,zip(*l)));print'\n'.join(''.join((' '+'#.'*len(l))[sum((x<=i<X)*(y<=j<Y)for x,y,X,Y in l)]for i in a)for j in b)

ลองออนไลน์!

ถ่าน 40 ไบต์

ＷＳ«≔Ｉ⪪ι ιＦ…§ι⁰§ι²«Ｊκ§ι¹ＵＭＫＤ⁻§ι³§ι¹↓§10Σλ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด จะเป็น 6 ไบต์สั้นครั้งเดียว @ ASCII เท่านั้นแก้ไขข้อผิดพลาดในถ่าน รับอินพุตเป็นรายการที่ยกเลิกบรรทัดใหม่ของรายการที่คั่นด้วยช่องว่างของพิกัด คำอธิบาย:

ＷＳ«

วนรอบแต่ละบรรทัดอินพุตจนกว่าจะถึงบรรทัดว่าง

≔Ｉ⪪ι ι

แยกบรรทัดออกเป็นรายการพิกัด

Ｆ…§ι⁰§ι²«

วนรอบพิกัด X ทั้งหมด

Ｊκ§ι¹

ข้ามไปที่ด้านบนของคอลัมน์

ＵＭ

แผนที่เหนือแต่ละ ...

ＫＤ⁻§ι³§ι¹↓

... เซลล์ทั้งหมดในคอลัมน์ ...

§10Σλ

... ค่าใหม่คือ0ถ้าพวกเขามีอย่างอื่น1 1แก้ไข: ไม่นานหลังจากเขียนสิ่งนี้ Charcoal เปลี่ยนพฤติกรรมของ¬เพื่อให้Ｉ¬Σλทำงานที่นี่เพื่อบันทึก 1 ไบต์

Python 2 , 181 ไบต์

l=input()
_,_,x,y=map(max,zip(*l))
m=eval(`[[32]*x]*y`)
for v,w,x,y in l:
 for i in range(v,x):
	for j in range(w,y):
	 m[i][j]=max(m[i][j]^1,34)
for n in m:print''.join(map(chr,n))

ลองออนไลน์!

C (gcc) , 205 ไบต์

x[999][999];a;b;c;d;j;k;l;m;n;main(i){for(;scanf("%d %d %d %d",&a,&b,&c,&d)>3;m=d>m?d:m,n=c>n?c:n)for(i=b;i<d;++i)for(j=a;j<c;++j)x[i][j]=x[i][j]^2|1;for(;k<n||++l<(k=0,puts(""),m);putchar(x[l][k++]+32));}

ลองออนไลน์!

R , 196 189 ไบต์

m=matrix
x=m(scan(file("stdin")),4)
y=m(0,max(x[3,]),max(x[4,]))
n=ncol(x)
while(n){z=x[,n]  
i=z[1]:z[3]
j=z[2]:z[4]
y[i,j]=y[i,j]+1
n=n-1}
i=!y
y=y%%2+1
y[i]=' '
cat(rbind(y,'\n'),sep='')

ลองออนไลน์!

โค้ดอ่านอินพุตเป็น stdin ซึ่งจัดเรียงเป็น x1 y1 x2 y2 tuple โดยที่ x คือคอลัมน์และ y คือแถว ฉันใช้ 1 และ 2 สำหรับระดับที่ทับซ้อนกันโดยที่ 1 หมายถึงระดับที่เท่ากัน

บันทึกแล้ว 7 ไบต์ขอบคุณ user2390246

Raku 54 ไบต์

{my@a;{@a[$^a..$^b;$^c..$^d]X+^=1}for $_;@a >>~|>>' '}

ลองออนไลน์!

จะเข้าเป็นรายการแบนของพิกัดเป็นพิกัดรวมคือx1,y1,x2,y2,x1,y1,x2,y2...และผลเป็นรายชื่อของรายการของตัวอักษรที่มีความkเป็น1และl0ความเป็นอยู่

คำอธิบาย:

{                                                    }  # Anonymous codeblock
 my@a;    # Declare an array
      {                          }for $_;    # Loop over the input
       @a[                 ]   # Indexing into @a
          $^a..$^b             # The range of rows
                  ;$^c..$^d    # And the range of columns for each
                            X        # And for each cell
                             +^=1    # Set it to itself bitwise XOR'd with 1
                         # Cells not yet accessed are numerically zero
                                         @a >>~|>>' '   # Stringwise OR each cell with a space
                         # Cells not yet accessed are stringily empty         

เยลลี่ 43 ไบต์

+µ>2Ḥạ
ạ1ẋ$0ẋ⁸¤;µ/€«þ/µ€z0z€0Z€Zz€0Z€ç"/o⁶Y

ลองออนไลน์!

คำอธิบาย

+µ>2Ḥạ                                Helper Link; combines final rectangles (0 is blank, 1 is covered, 2 is uncovered)
+                                     add the two values
 µ                                    (with the sum...)
  >2                                  check if it's greater than two
    Ḥ                                 double the result (2 if it's 3 or 4, 0 if it's 0, 1, or 2)
     ạ                                absolute difference (0 should take whatever the other thing's value is, 1+1 and 2+2 should give 2, 1+2 and 2+1 should give 1)
ạ1ẋ$0ẋ⁸¤;µ/€«þ/µ€z0z€0Z€Zz€0Z€ç"/o⁶Y  Main Link
               µ€                     For each rectangle stored as [[x1, x2], [y1, y2]]
         µ/€                          For each of [a, b] = [x1, x2] and [y1, y2], reduce it by (in other words, use a dyad on a size-2 list)
 1ẋ$                                  repeat [1]            times
ạ                                                abs(a - b)
        ;                             and append to
    0ẋ ¤                              [0] repeated   times
      ⁸                                            a
            «þ/                       and reduce by minimum outer product table (take the outer product table, by minimum, of the x results and the y results)
                                      [NOTE] At this point, we have a list of matrices with 0s as blanks and 1 as covered
                 z0z€0Z€Zz€0Z€        Make all of the matrices the same size:
                 z0                   zip, fill with 0 (all matrices are the same length, but not width, and now are lists of row-wise lists of rows)
                   z€0                zip each, fill with 0 (all rows are the same length within their row-wise lists, and are now lists of row-wise lists of columns)
                      Z€              zip each (flip rows back to lists of row-lists of rows)
                        Z             zip (flip back to matrices); however, if a matrix is smaller on both axes, its rows will not be the same length
                         z€0          zip each, fill with 0 (all rows in each matrix are the same length and the value is now a list of transposed matrices)
                            Z€        zip each (the value is now a list of matrices, all the same length, filled with 0 (empty space))
                              ç"/     reduce by (vectorized) the relation in the Helper Link (to combine all of the final values)
                                 o⁶   logical OR with " "; replace 0s with spaces
                                   Y  join with newlines (formatting)