Problem:
チーズ (Cheese)

問題

今年も JOI 町のチーズ工場がチーズの生産を始め，ねずみが巣から顔を出した．JOI 町は東西南北に区画整理されていて，各区画は巣，チーズ工場，障害物，空き地のいずれかである．ねずみは巣から出発して全てのチーズ工場を訪れチーズを 1 個ずつ食べる．

この町には，N 個のチーズ工場があり，どの工場も１種類のチーズだけを生産している．チーズの硬さは工場によって異なっており，硬さ 1 から N までのチーズを生産するチーズ工場がちょうど 1 つずつある．

ねずみの最初の体力は 1 であり，チーズを 1 個食べるごとに体力が 1 増える．ただし，ねずみは自分の体力よりも硬いチーズを食べることはできない．

ねずみは，東西南北に隣り合う区画に 1 分で移動することができるが，障害物の区画には入ることができない．チーズ工場をチーズを食べずに通り過ぎることもできる．すべてのチーズを食べ終えるまでにかかる最短時間を求めるプログラムを書け．ただし，ねずみがチーズを食べるのにかかる時間は無視できる．

入力

入力は H+1 行ある．1 行目には 3 つの整数 H，W，N (1 ≤ H ≤ 1000，1 ≤ W ≤ 1000，1 ≤ N ≤ 9) がこの順に空白で区切られて書かれている．2 行目から H+1 行目までの各行には，'S'，'1', '2', ..., '9'，'X'，'.' からなる W 文字の文字列が書かれており，各々が各区画の状態を表している．北から i 番目，西から j 番目の区画を (i,j) と記述することにすると (1 ≤ i ≤ H, 1 ≤ j ≤ W)，第 i+1 行目の j 番目の文字は，区画 (i,j) が巣である場合は 'S' となり，障害物である場合は 'X' となり，空き地である場合は '.' となり，硬さ 1, 2, ..., 9 のチーズを生産する工場である場合はそれぞれ '1', '2', ..., '9' となる．入力には巣と硬さ 1, 2, ..., N のチーズを生産する工場がそれぞれ 1 つずつある．他のマスは障害物または空き地であることが保証されている．ねずみは全てのチーズを食べられることが保証されている．

出力

すべてのチーズを食べ終えるまでにかかる最短時間（分）を表す整数を 1 行で出力せよ．

入出力例

入力例 1

3 3 1
S..
...
..1

出力例 1

4

入力例 2

4 5 2
.X..1
....X
.XX.S
.2.X.

出力例 2

12

入力例 3

10 10 9
.X...X.S.X
6..5X..X1X
...XXXX..X
X..9X...X.
8.X2X..X3X
...XX.X4..
XX....7X..
X..X..XX..
X...X.XX..
..X.......

出力例 3

91

問題文と自動審判に使われるデータは、情報オリンピック日本委員会が作成し公開している問題文と採点用テストデータです。

Solution in C (judge verdict: Memory Limit Exceeded)

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
char m[1002][1002];
char r[1002][1002];
struct node {
  unsigned x:6;
  unsigned y:6;
  unsigned l:6;
  struct node* n;
} *qs,*qe;
typedef struct node st;
void push(int x,int y,int l)
{
  st *p = qe;
  if(qe == NULL){
    qe = (st *)(malloc(sizeof(st)));;
    qs = qe;
  }else{
    p->n = (st *)(malloc(sizeof(st)));
    qe = p->n;
  }
  qe->x = x;
  qe->y = y;
  qe->l = l;
  qe->n = NULL;
}
st *pop()
{
  st *p = qs;
  if(qs == NULL) return NULL;
  qs = qs->n;
  if(qs == NULL) qe = NULL;
  return p;
}
void flush()
{
  st *p = qs;
  while(p != NULL){
    qs = qs->n;
    free(p);
    p = qs;
  }
  qe = NULL;
}
int search(int* x,int* y,int d)
{
  st *p;
  int l;
  memset(r,0,sizeof(r));
  flush();
  push(*x,*y,0);
  while((p = pop()) != NULL){
    if(m[p->y][p->x] == d){
      *x = p->x;
      *y = p->y;
      l = p->l;
      free(p);
      return l;
    }
    r[p->y][p->x] = 1;
    if(m[p->y][(p->x)-1] == d) {
      *x = (p->x)-1;
      *y = p->y;
      l = p->l+1;
      free(p);
      return l;
    }else if(m[p->y][(p->x)+1] == d) {
      *x = (p->x)+1;
      *y = p->y;
      l = p->l+1;
      free(p);
      return l;
    }else if(m[(p->y)-1][p->x] == d) {
      *x = p->x;
      *y = (p->y)-1;
      l = p->l+1;
      free(p);
      return l;
    }else if(m[(p->y)+1][p->x] == d) {
      *x = p->x;
      *y = (p->y)+1;
      l = p->l+1;
      free(p);
      return l;
    }
    if(m[p->y][(p->x)-1] != -1 && r[p->y][(p->x)-1] == 0)
      push((p->x)-1,p->y,(p->l)+1);
    if(m[p->y][(p->x)+1] != -1 && r[p->y][(p->x)+1] == 0)
      push((p->x)+1,p->y,(p->l)+1);
    if(m[(p->y)-1][p->x] != -1 && r[(p->y)-1][p->x] == 0)
      push(p->x,(p->y)-1,(p->l)+1);
    if(m[(p->y)+1][p->x] != -1 && r[(p->y)+1][p->x] == 0)
      push(p->x,(p->y)+1,(p->l)+1);
    free(p);
  }
}
int main(){
  int h,w,n,i,j,xs,ys,t=0;
  char c;
  memset(m,-1,sizeof(m));
  scanf("%d%d%d\n",&h,&w,&n);
  for(i=1;i<=h;i++){
    for(j=1;j<=w;j++){
      scanf("%c",&c);
      if(c=='S'){
	xs = j; ys = i;
	m[i][j] = 0;
      }else if(c=='X'){
	m[i][j] = -1;
      }else if(c=='.'){
	m[i][j] = 0;
      }else{
	m[i][j] = c-'0';
      }
    }
    scanf("\n");
  }
  for(i=1;i<=n;i++){
    t+=search(&xs,&ys,i);
  }
  printf("%d\n",t);
  return 0;
}