อินพุต

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

[(0,0),(1,0),(0,1),(1,1),(2,1),(1,2),(2,2)]

แสดงถึงชุดสีแดงในภาพนี้:

เอาท์พุต

Yor output เป็นรายการของ quadruples จำนวนเต็มซึ่งเป็นตัวแทนเซ็ตย่อยของเครื่องบิน อย่างชัดเจนมากขึ้นเป็นสี่เท่า(x,y,w,h)reperents สี่เหลี่ยมผืนผ้ากว้างw > 0และความสูงที่มีมุมตะวันตกเฉียงใต้ที่h > 0 (x,y)สี่เหลี่ยมต้องเป็นรูปแบบที่ถูกต้องครอบคลุมของภูมิภาคอินพุตในแง่ที่ว่าแต่ละหน่วยสี่เหลี่ยมเป็นส่วนย่อยของสี่เหลี่ยมบางส่วนแต่ละสี่เหลี่ยมเป็นส่วนย่อยของภูมิภาคและสองสี่เหลี่ยมอาจทับซ้อนกันที่ชายแดนของพวกเขาเท่านั้น ในการห้ามวิธีแก้ปัญหาเล็ก ๆ น้อย ๆ การครอบคลุมจะต้องไม่มีสี่เหลี่ยมสองรูปที่สามารถผสานเป็นสี่เหลี่ยมขนาดใหญ่กว่าได้

ตัวอย่างเช่นรายการ

[(0,0,2,1),(0,1,3,1),(1,2,2,1)]

แสดงถึงความคุ้มครองทางกฎหมาย

ของภูมิภาคด้านบนในขณะที่ครอบคลุมโดย

[(0,0,2,2),(2,1,1,1),(1,2,1,1),(2,2,1,1)]

เป็นสิ่งผิดกฎหมายเนื่องจากสี่เหลี่ยม 1 ต่อ 1 ที่อยู่ใกล้เคียงสามารถรวมกันได้:

กฎระเบียบ

คุณสามารถให้โปรแกรมเต็มหรือฟังก์ชั่น การจัดรูปแบบที่แม่นยำของอินพุตและเอาต์พุตไม่สำคัญเนื่องจากเหตุผล การนับไบต์ที่สั้นที่สุดชนะและช่องโหว่มาตรฐานไม่ได้รับอนุญาต ขอแนะนำให้คุณอธิบายอัลกอริทึมของคุณและตัวอย่างผลลัพธ์บางส่วน

กรณีทดสอบ

ภูมิภาครูปตัวยู:

[(0,0),(0,1),(0,2),(0,3),(0,4),(0,5),(1,0),(1,1),(1,2),(1,3),(1,4),(1,5),(2,0),(2,1),(3,0),(3,1),(4,0),(4,1),(4,2),(4,3),(4,4),(4,5),(5,0),(5,1),(5,2),(5,3),(5,4),(5,5)]

สามเหลี่ยมขนาดใหญ่:

[(0,0),(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,7),(0,8),(0,9),(1,0),(1,1),(1,2),(1,3),(1,4),(1,5),(1,6),(1,7),(1,8),(2,0),(2,1),(2,2),(2,3),(2,4),(2,5),(2,6),(2,7),(3,0),(3,1),(3,2),(3,3),(3,4),(3,5),(3,6),(4,0),(4,1),(4,2),(4,3),(4,4),(4,5),(5,0),(5,1),(5,2),(5,3),(5,4),(6,0),(6,1),(6,2),(6,3),(7,0),(7,1),(7,2),(8,0),(8,1),(9,0)]

สี่เหลี่ยมจัตุรัสที่มีรู:

[(0,0),(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,7),(0,8),(1,0),(1,1),(1,2),(1,3),(1,4),(1,5),(1,6),(1,7),(1,8),(1,9),(2,0),(2,1),(2,2),(2,3),(2,4),(2,5),(2,6),(2,7),(2,8),(2,9),(3,0),(3,1),(3,2),(3,4),(3,5),(3,6),(3,7),(3,8),(3,9),(4,0),(4,1),(4,2),(4,3),(4,4),(4,5),(4,6),(4,7),(4,8),(4,9),(5,0),(5,1),(5,2),(5,3),(5,4),(5,5),(5,7),(5,8),(5,9),(6,1),(6,2),(6,3),(6,5),(6,6),(6,7),(6,8),(6,9),(7,0),(7,1),(7,2),(7,3),(7,4),(7,5),(7,6),(7,7),(7,8),(7,9),(8,0),(8,1),(8,2),(8,3),(8,4),(8,5),(8,6),(8,7),(8,8),(8,9),(9,0),(9,1),(9,2),(9,3),(9,4),(9,5),(9,6),(9,7),(9,8),(9,9)]

ภูมิภาคที่ไม่เชื่อมต่อ:

[(0,0),(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,7),(0,8),(1,0),(1,1),(1,2),(1,3),(1,4),(1,6),(1,7),(1,8),(1,9),(2,1),(2,2),(2,3),(2,4),(2,5),(2,6),(2,7),(2,8),(2,9),(4,0),(4,1),(4,2),(4,4),(4,5),(4,6),(4,7),(4,8),(4,9),(5,0),(5,1),(5,2),(5,3),(5,4),(5,5),(5,6),(5,7),(5,8),(5,9),(6,0),(6,1),(6,2),(6,4),(6,5),(6,6),(6,7),(6,8),(6,9),(8,0),(8,1),(8,2),(8,3),(8,4),(8,5),(8,6),(8,7),(8,8),(8,9),(9,0),(9,1),(9,2),(9,3),(9,7),(9,8),(9,9),(10,0),(10,1),(10,2),(10,3),(10,4),(10,5),(10,6),(10,7),(10,8),(10,9)]

ตรวจสอบ

ใช้นี้งูหลาม 2 โปรแกรมเพื่อตรวจสอบวิธีการแก้ปัญหาของคุณ มันใช้จาก STDIN รายการของ tuples (อินพุต) และรายการของสี่เท่า (เอาต์พุตของคุณ) คั่นด้วยเครื่องหมายจุลภาค

ฉันยังเขียนนี้งูหลาม 2 โปรแกรมการสร้างภาพและคุณสามารถใช้มันมากเกินไป มันต้องใช้เวลาจาก STDIN รายการทั้ง tuples out.pngหรือสี่เท่าและผลิตไฟล์ชื่อ มันต้องมีห้องสมุด PIL คุณสามารถเปลี่ยนขนาดของเซลล์กริดและความกว้างของเส้นคาดเอวได้เช่นกันหากต้องการ

Python: 196 193 182 ตัวอักษร

def g(r):
 for p in r:
  for q in r:
   for h in 0,1:
    if p[h::2]==q[h::2]and p[1-h]+p[~h]==q[1-h]:p[~h]+=q[~h];r.remove(q);return g(r)
 return r
f=lambda P:g([x+[1,1]for x in P])

ทางออกแรกของฉันใช้อัลกอริทึมแบบเดียวกับ KSFT ดังนั้นฉันจึงทดลองกับวิธีอื่น

ครั้งแรกที่ฉันทำ preprocessing {x+(1,1)for x in P}บางอย่างผมแปลงทุกจุดเข้ารูปสี่เหลี่ยมขนาดเล็ก gด้วยรูปสี่เหลี่ยมเหล่านี้ผมเรียกใช้ฟังก์ชัน gวนซ้ำของการรวมกันของสี่เหลี่ยมแต่ละอัน หากพบ 2 สี่เหลี่ยมที่สามารถรวมเป็นสี่เหลี่ยมที่ใหญ่กว่าก็จะลบทั้งสองและผนวกใหม่ หลังจากนั้นจะเรียกตัวเองว่ามีชุดรูปสี่เหลี่ยมผืนผ้าใหม่

การใช้

f([[0,0],[1,0],[0,1],[1,1],[2,1],[1,2],[2,2]])

ผล

นี่คือการแสดงภาพของผลลัพธ์ โปรดทราบว่าอาจแตกต่างกันเล็กน้อยในเวอร์ชั่นปัจจุบัน แนวคิดก็คือว่าไม่มีรูปแบบที่สังเกตได้ชัดเจน

ภูมิภาครูปตัวยู:

สามเหลี่ยมขนาดใหญ่

สี่เหลี่ยมจัตุรัสที่มีรู:

ภูมิภาคที่ไม่เชื่อมต่อ:

เพื่อความสนุก: พิ ธ : 73 69 ตัวละคร

D!HFGHFZHV2I&q%2>GN%2>ZNqs%2>G-1N@Z-1N X-3NG@Z-3NR!-H]Z)))RH!m+d*2]1Q

ใช้งานได้เฉพาะในรุ่นออฟไลน์ แก้ไขบั๊กในเวอร์ชั่นออนไลน์แล้ว ลองได้ที่นี่: Pyth คอมไพเลอร์ คาดหวังรายการของรายการไม่ใช่รายการของสิ่งอันดับ

แก้ไข: ใช้แนวคิดจาก @ edc65: แทนที่จะลบทั้งสี่เหลี่ยมและสร้างขึ้นใหม่ฉันจัดการหนึ่งและลบอย่างเดียว ในวิธีการแก้ปัญหาของ Python ฉันสามารถหาฉากและ tuple-list-tuple ได้ -11 ตัวอักษรใน Python / -4 ตัวอักษรใน Pyth

Python - 272 261 258 251 224

ฉันคิดว่าฉันสามารถเล่นกอล์ฟได้มากกว่านี้ ฉันค่อนข้างมั่นใจว่ามันใช้งานได้ แต่ฉันยังไม่ได้ทดสอบในทุกกรณีทดสอบ ฉันทำการทดสอบเสร็จแล้ว มันใช้งานได้กับทุกกรณีทดสอบ

a=sorted(input())
b=[]
r=range
for i in a:
 c=set(a)-set(b);w=h=1;x,y=i
 if i in b:continue
 while not{(x,y+h)}-c:h+=1
 while all((x+w,y+j)in c for j in r(h)):w+=1
 for j in r(w):
  for k in r(h):b+=(j+x,k+y),
 print x,y,w,h

ฉันกำลังเพิ่มภาพของผลลัพธ์ แก้ไข: นี่คือผลลัพธ์จากตัวอย่างและกรณีทดสอบ:

ฉันกำลังพยายามเขียนสิ่งนี้ใน Perl แต่ฉันไม่สามารถหาวิธีรับอาร์เรย์หลายมิติจาก stdin โดยไม่มีอักขระจำนวนมาก ไม่มีใครมีข้อเสนอแนะใด ๆ ?

Python 2, 139

โปรแกรมรับรายการคู่ที่สั่งซื้อซึ่งล้อมรอบด้วยเครื่องหมายปีกกาบนอินพุตมาตรฐาน เช่น,{(0,0),(1,0),(0,1),(1,1),(2,1),(1,2),(2,2)}

s=input()
while s:x,y=min(s);w=h=0;exec"while(x+w,y)in s:w+=1\nwhile%s<=s:s-=%s;h+=1"%(("{(X,y+h)for X in range(x,x+w)}",)*2);print x,y,w,h

บ่อยครั้งที่มันน่ารำคาญ (ไม่เพียง แต่ในสนามกอล์ฟ) ที่ Python ไม่อนุญาตให้มีการมอบหมายภายในการทดสอบลูป เพื่อหลีกเลี่ยงปัญหานี้ฉันใช้การจัดรูปแบบสตริง

Mathematica - 315 285 267 ไบต์

f=(r={};For[m=MemberQ;t=Table;s=Sort@#,s!={},For[{x,y,w,h}=#~Join~{1,1}&@@s;i=j=0,i<1||j<1,If[s~m~{x+w,y+a-1}~t~{a,h}==True~t~{h},w++,i++];If[s~m~{x+a-1,y+h}~t~{a,w}==True~t~{w},h++,j++]];s=s~Cases~_?(!m[Join@@t[{x+a,y+b}-1,{a,w},{b,h}],#]&);r~AppendTo~{x,y,w,h}];r)&

ด้วยความช่วยเหลือจาก @ MartinBüttner

Ungolfed:

f = (
    rectangles = {};
    For[squares = Sort[#], squares != {},
        For[{x, y, w, h} = Join[squares[[1]], {1, 1}]; i = j = 0, i < 1 || j < 1,
            If[Table[MemberQ[squares, {x + w, y + a - 1}], {a, h}] == Table[True, {h}], w++, i++];
            If[Table[MemberQ[squares, {x + a - 1, y + h}], {a, w}] == Table[True, {w}], h++, j++];
        ];
        squares = Cases[squares, _ ? (!MemberQ[Join@@Table[{x + a - 1, y + b - 1}, {a, w}, {b, h}], #] &)];
        AppendTo[rectangles, {x, y, w, h}]
    ];
    rectangles
)&

การใช้งาน:

In: f @ {{0,0},{1,0},{0,1},{1,1},{2,1},{1,2},{2,2}}
Out: {{0, 0, 2, 2}, {1, 2, 2, 1}, {2, 1, 1, 1}}

กรณีทดสอบ

ภูมิภาครูปตัวยู

{{0, 0, 6, 2}, {0, 2, 2, 4}, {4, 2, 2, 4}}

สามเหลี่ยมขนาดใหญ่

{{0, 0, 6, 5}, {0, 5, 3, 3}, {0, 8, 2, 1}, {0, 9, 1, 1}, {3, 5, 2, 1}, {3, 6, 1, 1}, {6, 0, 3, 2}, {6, 2, 2, 1}, {6, 3, 1, 1}, {9, 0, 1, 1}}

สี่เหลี่ยมจัตุรัสที่มีรู

{{0, 0, 6, 3}, {0, 3, 3, 6}, {1, 9, 9, 1}, {3, 4, 3, 2}, {3, 6, 2, 3}, {4, 3, 6, 1}, {5, 7, 5, 2}, {6, 1, 4, 2}, {6, 5, 4, 2}, {7, 0, 3, 1}, {7, 4, 3, 1}}

ตัดการเชื่อมต่อภูมิภาค

{{0, 0, 2, 5}, {0, 5, 1, 4}, {1, 6, 2, 4}, {2, 1, 1, 5}, {4, 0, 3, 3}, {4, 4, 3, 6}, {5, 3, 1, 1}, {8, 0, 3, 4}, {8, 4, 1, 6}, {9, 7, 2, 3}, {10, 4, 1, 3}}

Haskell, 158

f[]=[]
f s@((x,y):_)=(x,y,w-x,h-y):f[r|r@(a,b)<-s,a<x||a>=w||b<y||b>=h]where w=[i|i<-[x..],notElem(i,y)s]!!0;h=[i|i<-[y..],not$all(\x->elem(x,i)s)[x..w-1]]!!0

กรณีทดสอบและภาพจะอยู่ที่นี่ในไม่ช้า

อัลกอริทึม: ใช้สแควร์แรก เข้าถึงไกลโดยไม่ต้องเผชิญหน้ากับสี่เหลี่ยมจัตุรัสไม่ได้อยู่ในอินพุต จากนั้นไปให้ไกลที่สุดเท่าที่จะทำได้โดยไม่ต้องมีสี่เหลี่ยมจัตุรัสที่ไม่ได้อยู่ในอินพุต ตอนนี้เรามีสี่เหลี่ยมที่ไม่มีสี่เหลี่ยมจัตุรัสหายไป เพิ่มไปยังเอาต์พุตลบสี่เหลี่ยมทั้งหมดออกจากอินพุตและโทรซ้ำ

JavaScript (ES6) 148 155 199

Edit2การปรับแต่งเพิ่มเติม
แก้ไขการตีกอล์ฟ + เขียนใหม่โดยใช้การเรียกซ้ำ ไม่ได้คาดหวังเช่นการลดลง ตอนนี้มันเป็นการยากที่จะติดตาม แต่อัลกอริทึมเหมือนกัน

อัลกอริทึมคล้ายกับคำตอบ @jakube

1. แต่ละจุดกลายเป็นจตุรัส 1x1 (การประมวลผลล่วงหน้า)
2. สำหรับแต่ละองค์ประกอบตรวจสอบว่ามันสามารถรวมกับ
   ใช่อีกหรือไม่ องค์ประกอบแรกเติบโตขึ้นองค์ประกอบที่สองถูกลบเริ่มอีกครั้งในขั้นตอนที่ 2
   อื่นไปยังองค์ประกอบถัดไป

F=l=>
  (l.map(x=>x.push(1,1)),R=f=>
    l.some(u=>
      (l=l.filter(t=>
        [0,1].every(p=>u[p]-t[p]|u[p^=2]-t[p]|u[p^=3]-t[p]+u[p^=2]||!(f=u[p]+=t[p]))
      ),f)
    )?R():l
  )()

ทดสอบในตัวอย่าง

F=l=>(l.map(x=>x.push(1,1)),R=f=>l.some(u=>(l=l.filter(t=>[0,1].every(p=>u[p]-t[p]|u[p^=2]-t[p]|u[p^=3]-t[p]+u[p^=2]||!(f=u[p]+=t[p]))),f))?R():l)()

// Test
MyCanvas.width= 600;
MyCanvas.height = 220;
var ctx = MyCanvas.getContext("2d");
ctx.fillStyle="#f23";

Draw=(x,y,f,l)=>l.forEach(p=>ctx.fillRect(x+p[0]*f,y+p[1]*f,p[2]*f-1||f-1,p[3]*f-1||f-1));

test=[
[[0,0],[1,0],[0,1],[1,1],[2,1],[1,2],[2,2]],
[[0,0],[0,1],[0,2],[0,3],[0,4],[0,5],[1,0],[1,1],[1,2],[1,3],[1,4],[1,5],[2,0],[2,1],[3,0],[3,1],[4,0],[4,1],[4,2],[4,3],[4,4],[4,5],[5,0],[5,1],[5,2],[5,3],[5,4],[5,5]],
[[0,0],[0,1],[0,2],[0,3],[0,4],[0,5],[0,6],[0,7],[0,8],[0,9],[1,0],[1,1],[1,2],[1,3],[1,4],[1,5],[1,6],[1,7],[1,8],[2,0],[2,1],[2,2],[2,3],[2,4],[2,5],[2,6],[2,7],[3,0],[3,1],[3,2],[3,3],[3,4],[3,5],[3,6],[4,0],[4,1],[4,2],[4,3],[4,4],[4,5],[5,0],[5,1],[5,2],[5,3],[5,4],[6,0],[6,1],[6,2],[6,3],[7,0],[7,1],[7,2],[8,0],[8,1],[9,0]],
[[0,0],[0,1],[0,2],[0,3],[0,4],[0,5],[0,6],[0,7],[0,8],[1,0],[1,1],[1,2],[1,3],[1,4],[1,5],[1,6],[1,7],[1,8],[1,9],[2,0],[2,1],[2,2],[2,3],[2,4],[2,5],[2,6],[2,7],[2,8],[2,9],[3,0],[3,1],[3,2],[3,4],[3,5],[3,6],[3,7],[3,8],[3,9],[4,0],[4,1],[4,2],[4,3],[4,4],[4,5],[4,6],[4,7],[4,8],[4,9],[5,0],[5,1],[5,2],[5,3],[5,4],[5,5],[5,7],[5,8],[5,9],[6,1],[6,2],[6,3],[6,5],[6,6],[6,7],[6,8],[6,9],[7,0],[7,1],[7,2],[7,3],[7,4],[7,5],[7,6],[7,7],[7,8],[7,9],[8,0],[8,1],[8,2],[8,3],[8,4],[8,5],[8,6],[8,7],[8,8],[8,9],[9,0],[9,1],[9,2],[9,3],[9,4],[9,5],[9,6],[9,7],[9,8],[9,9]],
[[0,0],[0,1],[0,2],[0,3],[0,4],[0,5],[0,6],[0,7],[0,8],[1,0],[1,1],[1,2],[1,3],[1,4],[1,6],[1,7],[1,8],[1,9],[2,1],[2,2],[2,3],[2,4],[2,5],[2,6],[2,7],[2,8],[2,9],[4,0],[4,1],[4,2],[4,4],[4,5],[4,6],[4,7],[4,8],[4,9],[5,0],[5,1],[5,2],[5,3],[5,4],[5,5],[5,6],[5,7],[5,8],[5,9],[6,0],[6,1],[6,2],[6,4],[6,5],[6,6],[6,7],[6,8],[6,9],[8,0],[8,1],[8,2],[8,3],[8,4],[8,5],[8,6],[8,7],[8,8],[8,9],[9,0],[9,1],[9,2],[9,3],[9,7],[9,8],[9,9],[10,0],[10,1],[10,2],[10,3],[10,4],[10,5],[10,6],[10,7],[10,8],[10,9]]
]

Draw(0,0,10,test[0]),Draw(0,110,10,F(test[0]))
Draw(50,0,10,test[1]),Draw(50,110,10,F(test[1]))
Draw(130,0,10,test[2]),Draw(130,110,10,F(test[2]))
Draw(250,0,10,test[3]),Draw(250,110,10,F(test[3]))
Draw(370,0,10,test[4]),Draw(370,110,10,F(test[4]))

<canvas id=MyCanvas></canvas>

Mathematica, 153 151 144 136 133

Sort[{##,1,1}&@@@Input[]]//.{a___,r:{x_,y_,__},b___,{X_,Y_,W_,H_},c___}/;r=={x,Y,X-x,H}||r=={X,y,W,Y-y}:>{a,r+Sign@{0,0,X-x,Y-y},b,c}

ตัวอย่าง:

การป้อนข้อมูล:

{{0, 0}, {1, 0}, {0, 1}, {1, 1}, {2, 1}, {1, 2}, {2, 2}}

เอาท์พุท:

{{0, 0, 2, 2}, {1, 2, 2, 1}, {2, 1, 1, 1}}

การป้อนข้อมูล:

{{0, 0}, {0, 1}, {0, 2}, {0, 3}, {0, 4}, {0, 5}, {0, 6}, {0, 7}, {0, 8}, {1, 0}, {1, 1}, {1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {1, 8}, {1, 9}, {2, 0}, {2, 1}, {2, 2}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {2, 7}, {2, 8}, {2, 9}, {3, 0}, {3, 1}, {3, 2}, {3, 4}, {3, 5}, {3, 6}, {3, 7}, {3, 8}, {3, 9}, {4, 0}, {4, 1}, {4, 2}, {4, 3}, {4, 4}, {4, 5}, {4, 6}, {4, 7}, {4, 8}, {4, 9}, {5, 0}, {5, 1}, {5, 2}, {5, 3}, {5, 4}, {5, 5}, {5, 7}, {5, 8}, {5, 9}, {6, 1}, {6, 2}, {6, 3}, {6, 5}, {6, 6}, {6, 7}, {6, 8}, {6, 9}, {7, 0}, {7, 1}, {7, 2}, {7, 3}, {7, 4}, {7, 5}, {7, 6}, {7, 7}, {7, 8}, {7, 9}, {8, 0}, {8, 1}, {8, 2}, {8, 3}, {8, 4}, {8, 5}, {8, 6}, {8, 7}, {8, 8}, {8, 9}, {9, 0}, {9, 1}, {9, 2}, {9, 3}, {9, 4}, {9, 5}, {9, 6}, {9, 7}, {9, 8}, {9, 9}}

เอาท์พุท:

{{0, 0, 3, 9}, {1, 9, 9, 1}, {3, 0, 3, 3}, {3, 4, 1, 5}, {4, 3, 1, 6}, {5, 3, 1, 3}, {5, 7, 1, 2}, {6, 1, 1, 3}, {6, 5, 1, 4}, {7, 0, 3, 9}}

ขั้นตอนวิธีการ:

ครอบคลุมพื้นที่ด้วยหน่วยสี่เหลี่ยมแล้วรวมพวกมัน