C #, 604 ไบต์
โปรแกรมที่สมบูรณ์ยอมรับอินพุต (โครงร่างที่ตัดบรรทัดไม่มีมิติ) จาก STDIN, เอาต์พุตไปยัง STDOUT
using C=System.Console;class P{static void Main(){int w=0,W,i,j,t,k,l,c;string D="",L;for(;(L=C.ReadLine())!=null;D+=L)w=L.Length;var R=new[]{-1,0,1,w,-w};L="X";for(W=i=D.Length;i-->0;){var M=new int[W];for(k=j=i;i>0;){M[j]=++k;t=j+R[c=D[j]%5];if(t<0|t>=W|c<3&t/w!=j/w|c>2&t%w!=j%w)break;j=t;if((l=M[j])>0){var J=new int[W+1];System.Func<int,int>B=null,A=s=>J[s]<0?0:J[k=B(s)]=k==W?k:i;B=x=>J[x]==x?x:B(J[x]);for(i=J[W]=W;i>0;)J[--i]=M[i]<l?i%w<1|i%w>w-2|i<w|i>W-w?W:i:-1;for(;i<W;)if(J[++i]<0)l=D[i]%5/2-1;else{A(i-1);if(i>w)A(i-w);}for(c=W;i-->0;L=""+(c>2?c:0)*l)c-=J[i]<0?0:B(i)/W;}}}C.WriteLine(L);}}
โปรแกรมทำงานโดยการอ่านครั้งแรกในรูปแบบไม่จำเป็นต้องพูดแล้ววนซ้ำทุกเซลล์ จากนั้นเราจะเรียกใช้ 'งู' จากแต่ละเซลล์ซึ่งตามลูกศรจนกว่ามันจะวิ่งออกจากขอบหรือวิ่งเข้าไปในตัวเอง ถ้ามันวิ่งเข้าหาตัวเองเราก็รู้ว่าเราพบลูป (หรือสิ่งใดสิ่งหนึ่ง "> <") และมันก็รู้ว่างูอยู่ในลูปมากแค่ไหน
เมื่อเรารู้ว่าเรามีการวนรอบเรารู้ว่าเซลล์ใดที่อยู่ในวงและเราสร้างแผนที่จากแต่ละเซลล์ (+1 ด้วยเหตุผล) เพื่อตัวมันเอง-1(หมายถึงมันอยู่ในวง) หรือW(ความกว้างทั้งหมด) ถ้ามันอยู่บนขอบ (หรือ +1 (ซึ่งอยู่ที่ดัชนีW) เพื่อทำให้สิ่งต่าง ๆ ง่ายขึ้นอีก)
ในขณะที่เราทำสิ่งนี้เรายังพบทิศทางที่องค์ประกอบ 'last' ของ loop มี (นั่นคือองค์ประกอบสุดท้ายของ loop ในแถวสุดท้ายที่มี element จาก loop on it) องค์ประกอบนี้จะต้องเป็น "<" หรือ "^" และสิ่งนี้บอกเรา clockness (CW / CCW) ของวง (แปลเป็น -1 / + 1)
จากนั้นเราจะทำการ disjoin set pass ซึ่งกำหนดองค์ประกอบทั้งหมดที่อยู่นอกลูปให้กับWชุด จากนั้นเราจะลบจำนวนเหล่านี้จากWการรับจำนวนที่มีอยู่และในวง หากตัวเลขนี้น้อยกว่า 3 เราจะแทนที่ด้วย 0 เราคูณนี่ด้วยความเป็นนาฬิกาตั้งเป็นผลลัพธ์และจะหนีออกจากลูปสำหรับลูปซึ่งผลลัพธ์จะออกมา
อย่างไรก็ตามหากสิ่งที่กล่าวมาข้างต้นส่วนใหญ่ไม่เคยเกิดขึ้น (เพราะไม่มีงูตัวใดที่เคยพบตัวเอง) ดังนั้นผลลัพธ์จะยังคงเป็น "X" และนั่นคือผลลัพธ์
using C=System.Console;
class P
{
static void Main()
{
int w=0, // width
W, // full length
i, // used for iterating over all the cells
j, // keeps track of where the snake as got to
t, // t is next j
k, // how far along the snake we are, kind of
// later on, k is used as temp for A
l, // stores a threshold for how far along the snake the loop starts
// later on, l stores the last seen pointer - this tells us the clockness
c; // the translated direction
// later on, c is a backwards-count
string D="", // D is the map
L; // used for reading lines, and then storing the result
// might not be the best yay of doing this
for(;(L=C.ReadLine())!=null; // read a line, while we can
D+=L) // add the line to the map
w=L.Length; // record the width
var R=new[]{-1,0,1,w,-w}; // direction table (char%5) - might be able to replace this array with some bit bashing/ternary
L="X"; // can't seem to fit this in anywhere... (don't strictly need to re-use L)
for(W=i=D.Length;i-->0;) // for each cell, we send a 'snake' to try to find the loop from that cell
{
var M=new int[W]; // stores how far along the snake this point is
for(k=j=i; // k's value doesn't really matter, as long as it's not stupidly big
i>0;) // the i>0 check is just for when we return (see comment at the end of the code)
{
M[j]=++k; // store snake point and advance distance
t=j+R[c=D[j]%5]; // t is position after move (translate <>v^ to 0234 (c is direction))
//c=D[j]%5; // translate <>v^ to 0234 (c is direction)
//t=j+R[c]; // t is position after move
if(t<0|t>=W|c<3&t/w!=j/w|c>2&t%w!=j%w)
break; // hit an edge - will always happen if we don't find a loop - give up on this snake
j=t; // move to new position
if((l=M[j])>0) // we've been here before...
{
// disjoint sets (assign all the edges to one set, assign all the ones on the line to another set, do adjacent disjoint, return size-outteredge (minus if necessary)
var J=new int[W+1]; // looks like we can reuse M for this
System.Func<int,int>B=null,
// whatever s points at should point to i, unless s points to W, in which case it should keep point to W
A=s=>J[s]<0?0:J[k=B(s)]=k==W?k:i;
// read the value this points to
B=x=>J[x]==x?x:B(J[x]);
for(i=J[W]=W;i>0;)
J[--i]=M[i]<l? // if we are not part of the loop
i%w<1|i%w>w-2|i<w|i>W-w? // if we are on the edge
W: // on the edge
i: // not on the edge
-1; // this is on the loop
// now fill in
// we don't have to worry about wrapping, the important bit being an un-wrapping closed loop
// i = 0
for(;i<W;)
if(J[++i]<0) // we are on the loop
l=D[i]%5/2-1; // last one must be ^(4) or <(0)
else{ // can probably crush this into an l returning l assigning term (with if above)
A(i-1);
if(i>w)
A(i-w);
}
// now count the number of non-edges
for(c=W; // assume everything is a non-edge
i-->0;
L=""+(c>2?c:0)*l) // set output to be number of non-edges * clockness (or 0 if too few)
c-=J[i]<0?0:B(i)/W; // subtract 1 if an edge (B(i) is W), othewise 0
// at this point, i is 0, so we will fall out of all the loops
}
}
}
C.WriteLine(L); // output result
}
}