คำถามนี้เป็นแรงบันดาลใจและเป็นสิ่งที่ตรงกันข้ามของคนนี้

Dennis ( E), Doorknob ( D), Martin ( M) และ Chris ( C) สั่งพิซซ่า พิซซ่ารูปสี่เหลี่ยมผืนผ้าแบ่งออกเป็นชิ้นสี่เหลี่ยมจัตุรัส

เขียนโปรแกรมหรือฟังก์ชั่นที่ได้รับพิซซ่ารูปสี่เหลี่ยมผืนผ้าประกอบด้วย 0 หรือมากกว่าของแต่ละตัวอักษรกำหนดว่า:

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

2. จำนวนชิ้นต่อคนเหมือนกันสำหรับทุกคน

คุณต้องส่งออกค่าความจริง / เท็จด้วยการขึ้นบรรทัดใหม่ที่เป็นตัวเลือกที่บ่งชี้ว่าพิซซ่าที่ระบุนั้นมีความยุติธรรมหรือไม่

ผลทดสอบที่ถูกต้อง:

DDDDDDDDDDDDMCCCCCCCCCCC
DEEEEEEEEEEDMMMMMMMCCCCC
DEEEEEEEEEEDMMMCCCCCCCCC
DEEEEEEEEEEDMMMMMMMMCCCC
DDDDDDDDDDDDMMMMMMMMMMMC

DEMC

DD
EE
MC
MC

EEDDMMMCCC
EEEDDDMMCC

การทดสอบไม่ถูกต้อง:

EDM

EDMCCMDE

DDDDDDDDDDDDMCCCCCCCCCCC
DEEEEEEEEEEDMMMMMMMCCCCC
DEEEEEEEEEEMDMMCCCCCCCCC
DEEEEEEEEEEDMMMMMMMMCCCC
DDDDDDDDDDDDMMMMMMMMMMMC

DDMMEECC
DMMEECCC

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

Pyth, 53 ไบต์

!f-lJs.z*4lu&G{smfqT@JY@UJ+Ld[Z1_1Klh.z_K)G]xJT)"CDEM

สาธิต

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

เพื่อเติมน้ำท่วมมันเริ่มต้นด้วยการเกิดขึ้นบนซ้ายของตัวอักษรแต่ละตัวจากนั้นสร้างเพื่อนบ้านทั้งหมดของสถานที่ตั้งที่พบจนถึงตัวกรองสำหรับสถานที่ที่มีตัวอักษรที่เหมาะสมและทำซ้ำจนกว่าจะหยุดการเปลี่ยนแปลง

หอยทาก 129

พิมพ์ 1 สำหรับพิซซ่าที่ยุติธรรมและ 0 สำหรับพิซซ่าที่ไม่เป็นธรรม

&
={(t\Dt\Et\Ct\M),!(t.}{(o\D)+l^D,=~u{^D=(r^D,~},~|o\E`+l^E,=~u{^E=(r^E,~},~|o\C`+l^C,=~u{^C=(r^C,~},~|o\M`+l^M,=~u{^M=(r^M,~},~

รุ่นที่ขยาย:

&
={ (t\Dt\Et\Ct\M), !(t.)}   {
(o\D)+ l^D,=~ u{^D=(r^D,~)}, ~ |
(o\E)+ l^E,=~ u{^E=(r^E,~)}, ~ |
(o\C)+ l^C,=~ u{^C=(r^C,~)}, ~ |
(o\M)+ l^M,=~ u{^M=(r^M,~)}, ~

&หมายความว่ารูปแบบต้องตรงกันทุกตำแหน่งในกริด บรรทัดแรกตรวจสอบจำนวนเท่ากันของแต่ละ E, D, M, C โดยใช้คำสั่งการส่งผ่านทางไกลtซึ่งเป็นวิธีที่ดีในการสร้างโปรแกรมที่มีความซับซ้อนแบบแฟคทอเรียล หากอินพุตมีขนาดไม่เท่ากันและมีหลายยูนิตสำหรับแต่ละ 4 mods โปรแกรมจะหยุดทำงานมากหรือน้อยตลอดไป หลังจากนั้นจะมีการตรวจสอบเส้นทางที่ต่อเนื่องไปยังอินสแตนซ์บนซ้ายของตัวอักษรใดก็ได้ที่รูปแบบเริ่มต้น

CJam, 93

qN/_z,:W;s:A,,:B_{{{_B=_@-}g}%$}:F;{a+_Af=)#{F~B\@t:B}|;}:U;W>{_W-U}/{W%},{_(U}/BFe`0f=_1<4*=

ลองออนไลน์

นี่เป็นเวลานานที่น่าขันเพราะ CJam ยังไม่มีในตัวเติมน้ำท่วมหรือค้นหาสหภาพ ฉันใช้งานUnion-findในโปรแกรม

คำอธิบาย:

qN/_         read input, split into lines and duplicate
z,:W;        transpose, get length (original width) and store in W
s:A          convert to string (without newlines) and store in A
,,           make an array [0..n-1] (n = pizza size)
:B_          store in B (initial structure) and duplicate (will be used in 2 loops)
{…}:F;       define function F ("Find" for multiple indices and sort)
  {…}%       for each value (x)
    {…}g     do…while
      _B=    duplicate x and get B[x]
      _@-    leave a B[x] on the stack and calculate B[x] - x
              if non-zero, repeat the loop with B[x]
  $          sort the results
{…}:U;       define function U ("Union" for 2 indices)
  a+         make an array of the 2 indices
  _Af=       get the corresponding letters from A
  )#         check if the letters are different
  {…}|       if not, execute…
    F~       call F on the array and dump the 2 results on the stack
    B\@t     join the sets - B[bigger index] = smaller index
    :B       store back in B
  ;          pop the last value (either array if indices or B)
W>           remove the first row of indices
{…}/         for each index
  _W-        duplicate and subtract W ("go up")
  U          call U to join sets if they match
{W%},        remove the first column of indices
{…}/         for each index
  _(         duplicate and decrement ("go left")
  U          call U to join sets if they match
BF           call F on B, to get the final sets and sort
e`           RLE encoding
0f=          keep only the repetition counts
_1<4*=       check if it's the first value (if any) repeated 4 times

JavaScript (ES6), 153 166

ใช้สตริงแม่แบบมีการขึ้นบรรทัดใหม่ที่มีความสำคัญและนับ

ทดสอบการเรียกใช้ตัวอย่างข้อมูลใน FireFox

f=z=>![...'CDEM'].some(c=>((l=p=>z[p]==c&&[-1,1,w,-w].map(o=>l(p+o),z[p]='',++k))(z.indexOf(c),h=k,k=0),~h&&h-k),w=~z.search`
`,z=[...z],k=-1)&z.join``-1

// Ungolfed
U=z=>{
  w = ~z.search`\n`
  z = [...z]
  fill = p=>(
    c = z[p],
    z[p] = '',
    [-1,1,w,-w].forEach(o=>z[o+=p] == c && fill(o)),
    ++k
  )
  h = -1
  r = ['C','D','E','M'].every( c =>(
    k = 0,
    y = z.indexOf(c),
    y >= 0 && fill(y),
    v = h >= 0 ? h == k : true,
    h = k,
    v
  ))
  return r & 1-z.join``
}  

// Test
out=x=>O.innerHTML+=x+'\n';

// Valid test cases
valid=[`DDDDDDDDDDDDMCCCCCCCCCCC
DEEEEEEEEEEDMMMMMMMCCCCC
DEEEEEEEEEEDMMMCCCCCCCCC
DEEEEEEEEEEDMMMMMMMMCCCC
DDDDDDDDDDDDMMMMMMMMMMMC`,
`DEMC`,
`DD
EE
MC
MC`,
`EEDDMMMCCC
EEEDDDMMCC`];
out('Valid')
valid.forEach(t=>out(t+'\n'+f(t)+'\n'));
invalid=[`EDM`,
`EDMCCMDE`,
`DDDDDDDDDDDDDD`,         
`DDDDDDDDDDDDMCCCCCCCCCCC
DEEEEEEEEEEDMMMMMMMCCCCC
DEEEEEEEEEEMDMMCCCCCCCCC
DEEEEEEEEEEDMMMMMMMMCCCC
DDDDDDDDDDDDMMMMMMMMMMMC`,
`DDMMEECC
DMMEECCC`
];
out('Invalid')
invalid.forEach(t=>out(t+'\n'+f(t)+'\n'))

<pre id=O></pre>

Javascript ES6, 360

ตรวจสอบตัวเลข C, D, E, M ที่เท่ากันจากนั้นเติมน้ำท่วมและตรวจสอบตัวอักษรที่ไม่ได้ใช้งาน ไม่ใช่ผู้ชนะ แต่ฉันต้องลอง

i=>(I=i.split`
`.map(e=>e.split``),c=(i[m='match'](/C/g)||[])[l='length'],a=(x,y,z)=>{if(I[x][y]!=z)return;I[x][y]=0;x>0&&a(x-1,y,z);x<I[l]-1&&a(x+1,y,z);y>0&&a(x,y-1,z);y<I[0][l]-1&&a(x,y+1,z)},![...'CDEM'].some(k=>{if((i[m](eval(`/${k}/g`))||[])[l]!=c)return 1;I.some((w,x)=>(g=-1<(y=w.indexOf(k)),g&&a(x,y,k),g));})&&!I.map(e=>e.join``).join``[m](/[CDEM]/))

ซอ

JavaScript ES6, 328 318 316 269 178

l=>(d=[0,0,0,0],s=[...l.split`
`.join``].map(i=>(d["EDMC".search(i)]++,i)),!l||d.every(i=>i==d[0])&&(s.every((r,i)=>[1,-1,X=l.split`
`[0].length,-X].some(o=>s[o+i]==r))||d[0]<2))

คำอธิบาย:

l => (
  d = [0,0,0,0],          // array containing each letter count
  s = [...l.split`                    
`.join``]                 // removes newlines from input and converts it into array
  .map(i => (             // loops through the array
    d["EDMC".search(i)]++ // increases letter count
    ,i)),                 // returns unchanged value in order to preserve original array
  !l                      // input is empty
  || d.every(i=>i==d[0])  // each letter count is equal
  && (
    s.every((r, i) =>     // there is no orphaned letters 
      [1,-1,X=l.split`
`[0].length,-X]           // letters on respectively: right, left, bottom, top
      .some               // at least one of them
        (o=>s[o+i]==r))   // equals original letter
    || d[0] < 2           // count of each letter equals 1
  )
)