C #, 530 ไบต์
เสร็จสิ้นโปรแกรม C # รับอินพุตเป็นบรรทัดเดียวจาก STDIN และส่งออกบรรทัดเดียวไปยัง STDOUT โดยมีส่วนท้าย ""
นี่ค่อนข้างนาน ... และมีวิธีการทำซ้ำ x / y / z มากเกินไป แต่ฉันไม่สามารถลดความรู้สึกที่เหมาะสมลงได้และมีการสอบภายใน 2 ชั่วโมงอาจกลับมาที่พรุ่งนี้
using Q=System.Console;class P{static void Main(){int q=9,w=0,e=9,r=0,t=9,u=0,i=0,x=0,y=0,z=0,p=0;System.Action V=()=>{z=(int)System.Math.Sqrt(i);p=(x=i-z*z)%2;x/=2;y=(++z*z--+~i)/2;},W=()=>{Q.Write(i+","+(x<0|y++<0|z>7?"X":""+(z*z+2*x+1-p))+" ");};foreach(var g in Q.ReadLine().Split(',')){i=int.Parse(g);V();q=q>x?x:q;w=w<x?x:w;e=e>y?y:e;r=r<y?y:r;t=t>z?z:t;u=u<z?z:u;}for(i=64;i-->0;){V();if(!(x<q|x>w|y<e|y>r|z<t|z>u))if(p>0){if(y==r)W();if(x++==w)W();x--;if(z--==t)W();}else{if(y--==e)W();if(x--==q)W();x++;if(z++==u)W();}}}}
แผนภาพนี้จะอธิบายสิ่งที่เกิดขึ้นส่วนใหญ่
ยอมรับว่าเนื่องจากเราไม่สามารถมีส่วนที่มีความกว้าง 0 ส่วน "หกเหลี่ยม" จะเป็นรูปร่างที่ถูกที่สุดเสมอ (และมีประโยชน์ในการให้ห่านอวกาศมีพื้นที่มากที่สุด)
โปรแกรมทำงานโดยการแปลดัชนีเซลล์อินพุตแรกทั้งหมดเป็น x / y / z coords และค้นหา min / max ของแต่ละ x / y / z
z = floor(root(i))
x = floor((i - z^2) / 2)
y = floor((z+1)^2 - i - 1) / 2)
p = (i - z^2) % 2
ต่อไปจะผ่านแต่ละดัชนีเซลล์และตรวจสอบว่าเหมาะสมกับขอบเขต 'หกเหลี่ยม' ที่เราได้อธิบายไว้หรือไม่ ถ้าเป็นเช่นนั้นมันจะตรวจสอบว่ามันอยู่บนขอบที่รุนแรงของขอบเขต (เช่น x = xmin หรือ y = ymax) และเพิ่มขอบที่สอดคล้องกันถ้ามันเป็น มันต้องหาดัชนีของขอบที่อยู่ข้างๆ สำหรับ x และ z เราแค่เพิ่ม / ลดพวกมันตามที่เราต้องการจากนั้นใช้สูตรต่อไปนี้:
i = z^2 + 2*x + (1-p)
ขอให้สังเกตว่า "ความเท่าเทียมกัน" เปลี่ยนแปลงอยู่เสมอและ y นั้นไม่เกี่ยวข้อง สำหรับ y เราไม่จำเป็นต้องเปลี่ยนแปลงอะไรเลย แต่โค้ดนั้นค่อนข้างยุ่งเพราะมันต้องทำการตรวจสอบขอบเขต "สามเหลี่ยม" เพื่อตรวจสอบว่าเซลล์ถัดไปควรเป็น "X" หรือไม่
ตัวอย่างการแก้ปัญหา (เซลล์ที่มีห่านจากมุมทั้งสาม):
Input
2,50,62
Output
62,63 61,X 59,X 57,X 55,X 53,X 51,X 50,49 48,X 36,X 35,X 25,X 24,X 16,X 15,X 9,X 8,X 4,X 3,X 2,0 1,X
รหัส Tidier พร้อมความคิดเห็น:
using Q=System.Console;
class P
{
static void Main()
{
int q=9,w=0,e=9,r=0,t=9,u=0, // min/max x/y/z/ (init min high, and max low)
i=0, // index of cell we are looking at
x=0,y=0,z=0,p=0; // x,y,z dimension
System.Action V=()=>
{ // translates the index into x/y/z/p
z=(int)System.Math.Sqrt(i);
p=(x=i-z*z)%2; // 'parity'
x/=2; // see p assignment
y=(++z*z--+~i)/2; // ~i == -i - 1
},
W=()=>
{ // writes out the edge of i, and the cell described by x/z/inverse of p (the inversion of p handles y +/-)
Q.Write(i+","+ // write out the edge
(x<0|y++<0|z>7?"X":""+(z*z+2*x+1-p)) // either X (if we go out of 'trianlge' bounds), or we translate x/z/inverse of p into an index
+" "); // leaves a trailing space (as shown in example output)
};
foreach(var g in Q.ReadLine().Split(',')) // for each cell with geese
{
i=int.Parse(g); // grab index of cell
V(); // compute x/y/z/p
q=q>x?x:q; // sort out mins/maxes
w=w<x?x:w;
e=e>y?y:e;
r=r<y?y:r;
t=t>z?z:t;
u=u<z?z:u;
// code like the above suggests a solution with a couple of arrays would be better...
// I've not had success with that yet, but maybe in a couple of days I will try again
}
for(i=64;i-->0;) // for each cell
{
V(); // compute x/y/z/p
if(!(x<q|x>w|y<e|y>r|z<t|z>u)) // if we are inside the 'hex' bounds
if(p>0)
{ // x max, y max, z min
// these checks check that we are on the extremes of the 'hex' bounds,
// and set up the appropriate vars for W calls to put the edges in
// must do y first, because W modifies it for us (saves 2 bytes in the next block)
if(y==r) // don't need the ++ (can't go out of 'trianlge' bounds)
W();
if(x++==w)
W();
x--;
if(z--==t)
W();
//z++; not used again
}
else
{ // x min, y min, z max
if(y--==e) // do need the -- (used for 'trianlge' bounds checking)
W();
// y is reset in W, as such
if(x--==q)
W();
x++;
if(z++==u)
W();
//z--; not used again
}
}
}
}
