BFS(八数码) POJ 1077 || HDOJ 1043 Eight

//#include <bits/stdc++.h>
#include<iostream>
#include<algorithm>
#include<string>
#include<stack>
#include<queue>
#include <cstring>
#include<map>
#include<stdio.h>
#include<stdlib.h>
#include<ctype.h>
#include<time.h>
#include<math.h>
using namespace std;

const int N = 362880 + 5;
const int MOD = 1e6 + 7;
int dx[4] = {-1, 1, 0, 0};
int dy[4] = {0, 0, -1, 1};
char dir[4] = {'u', 'd', 'l', 'r'};
struct Point	{
int s, d;
string str;
Point () {}
Point (int s, int d, string str) : s (s), d (d), str (str) {}
};
struct Hash_table	{
struct Edge	{
int v, nex;
}edge[MOD];
int head[MOD], e;
void init(void)	{
memset (head, -1, sizeof (head));
e = 0;
}
bool insert(int x)	{
int u = (x % MOD + MOD) % MOD;
for (int i=head[u]; ~i; i=edge[i].nex)	{
if (edge[i].v == x)	return false;
}
edge[e].v = x;	edge[e].nex = head[u];
head[u] = e++;
return true;
}
}ha;
int vis
, fact[9];

void decode(int x, int *b)	{
for (int i=8; i>=0; --i)	{
b[i] = x % 10;
x /= 10;
}
}

int encode(int *b)	{
int ret = 0;
for (int i=0; i<9; ++i)	{
ret = ret * 10 + b[i];
}
return ret;
}

int find_0(int *b)	{
for (int i=0; i<9; ++i)	{
if (b[i] == 0)	return i;
}
return -1;
}

bool check(int x, int y)	{
if (x < 0 || x >= 3 || y < 0 || y >= 3)	return false;
else	return true;
}

void print(int *b)	{
for (int i=0; i<9; ++i)	{
printf ("%d ", b[i]);
if (i == 2 || i == 5 || i == 8)	puts ("");
}
}

void init(void)	{
fact[0] = 1;
for (int i=1; i<9; ++i)	fact[i] = fact[i-1] * i;
memset (vis, false, sizeof (vis));
}

bool can_insert(int *b)	{
int code = 0;
for (int i=0; i<9; ++i)	{
int cnt = 0;
for (int j=i+1; j<9; ++j)	if (b[j] < b[i])	cnt++;
code += fact[8-i] * cnt;
}
if (vis[code])	return false;
else	{
vis[code] = true;
return true;
}
}

void BFS(int *a)	{
init ();
int ans[9] = {1, 2, 3, 4, 5, 6, 7, 8, 0};
int s = encode (a);
queue<Point> que;	que.push (Point (s, 0, ""));
while (!que.empty ())	{
Point u = que.front ();	que.pop ();
int b[9];
decode (u.s, b);
if (memcmp (ans, b, sizeof (b)) == 0)	{
int len = u.str.length ();
for (int i=0; i<len; ++i)	{
printf ("%c", u.str[i]);
}
puts ("");
return ;
}
int p = find_0 (b);
int x = p / 3, y = p % 3;
for (int i=0; i<4; ++i)	{
int tx = x + dx[i], ty = y + dy[i];
if (!check (tx, ty))	continue;
int p2 = tx * 3 + ty;
int t[9];
memcpy (t, b, sizeof (b));
t[p] = t[p2];	t[p2] = 0;
int v = encode (t);
//if (!ha.insert (v))	continue;
if (!can_insert (t))	continue;
que.push (Point (v, u.d + 1, u.str + dir[i]));
}
}
puts ("unsolvable");
}

int main(void)	{
char c[9];
int a[9];
while (scanf ("%c %c %c %c %c %c %c %c %c", &c[0], &c[1], &c[2], &c[3], &c[4], &c[5], &c[6], &c[7], &c[8]) == 9)	{
for (int i=0; i<9; ++i)	{
if (c[i] >= '1' && c[i] <= '9')	{
a[i] = c[i] - '0';
}
else	a[i] = 0;
}
BFS (a);
}

return 0;
}

#include <bits/stdc++.h>
using namespace std;

const int N = 362880 + 5;
int dx[4] = {-1, 1, 0, 0};
int dy[4] = {0, 0, -1, 1};
char dir[4] = {'d', 'u', 'r', 'l'};
struct Point	{
int s;
int b[9];
};
struct Ans	{
char dir;
int fa;
}ans
;
int fact[9];

int find_0(int *b)	{
for (int i=0; i<9; ++i)	{
if (b[i] == 9)	return i;
}
return -1;
}

bool check(int x, int y)	{
if (x < 0 || x >= 3 || y < 0 || y >= 3)	return false;
else	return true;
}

void init(void)	{
fact[0] = 1;
for (int i=1; i<9; ++i)	fact[i] = fact[i-1] * i;
for (int i=0; i<N; ++i)	ans[i].fa = -1;
}

int Cantor(int *b)	{
int code = 0;
for (int i=0; i<9; ++i)	{
int cnt = 0;
for (int j=i+1; j<9; ++j)	if (b[j] < b[i])	cnt++;
code += fact[8-i] * cnt;
}
return code;
}

void BFS()	{
init ();
Point sta;
for (int i=0; i<9; ++i)	{
sta.b[i] = i + 1;
}
sta.s = 0;	ans[sta.s].fa = 0;
queue<Point> que;	que.push (sta);
while (!que.empty ())	{
Point u = que.front ();	que.pop ();
int p = find_0 (u.b);
int x = p / 3, y = p % 3;
for (int i=0; i<4; ++i)	{
Point v = u;
int tx = x + dx[i], ty = y + dy[i];
if (!check (tx, ty))	continue;
int p2 = tx * 3 + ty;
swap (v.b[p], v.b[p2]);
v.s = Cantor (v.b);
if (ans[v.s].fa != -1)	continue;
ans[v.s].dir = dir[i];
ans[v.s].fa = u.s;
que.push (v);
}
}
}

int main(void)	{
BFS ();
char c[55];
int a[9];
while (gets (c))	{
int j = 0;
for (int i=0; c[i]; ++i)	{
if (c[i] >= '0' && c[i] <= '8')	{
a[j++] = c[i] - '0';
}
else if (c[i] == 'x')	a[j++] = 9;
}
int s = Cantor (a);
if (ans[s].fa == -1)	puts ("unsolvable");
else	{
while (s != 0)	{
printf ("%c", ans[s].dir);
s = ans[s].fa;
}
puts ("");
}
}

return 0;
}