Problem:
Acrophobia

C: 高所恐怖症

高杉やよいは，超売れっ子アイドルである．
そんな彼女には，1つ苦手なものがある．
高いところだ・・・．彼女は，極度の高所恐怖症なのである．
彼女は今回，プロデューサーの不手際により，バラエティ番組で次のようなチャレンジに挑戦することになってしまった．

今回のロケは，とある忍者屋敷のとある一室で行われる．
この部屋の床には，正方形のタイルが敷き詰められており，いくつかのタイルが抜け落ちて穴になっている．
この穴から落ちると数メートル下の池にまっさかさまである．
やよいのチャレンジ内容は，この部屋の指定された場所からスタートし，部屋の中に置かれた全ての巻物を回収し，ゴール地点まで持っていくことである．

やよいは，部屋の中を以下のルールに従って移動できる．

あるタイルから隣のタイルへ移動するとき，上下左右のタイルにのみ移動することができる．

穴に近くない場合，隣のタイルへ移動するためには，1秒だけ時間がかかる．

穴に近づいた場合，やよいは怖がってしまい図C-1のように移動時間がかかる．例えば，図中の矢印のように，[2][2]から[1][2]へ移動するためには，3秒かかる．

複数の穴が近くにある場合，最も近くにある穴に対して怖がる．

巻物を取るためにかかる時間は，0と仮定してよい．

図C-1: 穴の近くの移動時間

やよいは，なるべく早くこのチャレンジを終わらせたいと考えている．
あなたの仕事は，このチャレンジを終了するための最短時間を求めるプログラムを書き，やよいを助けてあげることである．

Input

忍者屋敷の床情報が与えられる．

まず，1行目に部屋の大きさを表す，WとHがスペース区切りで入力される(2 <= W, H <= 100)．
続くH行の各行には，W文字の文字列が入力される．
床情報を表す文字には，以下の種類がある．

'.' : 歩ける床

'#' : 穴

'S' : やよいが開始時に立っている場所

'G' : やよいが辿りつくべき場所

'M' : 巻物が置いてある場所

'S'と'G'と'M'は，歩ける床である．
'S'と'G'はそれぞれ，部屋の中にちょうど1個存在する．全ての巻物が揃っていない状態でゴールを通過しても構わない．
'M'は，部屋の中に最小で1個，最大で5個存在する．

Output

全ての巻物を集めて，スタートからゴールへたどり着くための最短タイムを1行に出力せよ．入力データには，必ずそのようなルートがあると仮定してよい．

行の最後には，改行を出力すること．

Sample Input 1

3 4
S.M
...
...
M.G

Sample Output 1

9

Sample Input 2

4 4
S..M
....
...#
#..G

Sample Output 2

18

Sample Input 3

11 7
M.........M
...........
...#.S.#...
...........
...#.G.#...
...........
M.........M

Sample Output 3

62

Solution in JAVA (judge verdict: Accepted)

import java.util.Arrays;
import java.util.LinkedList;
import java.util.Scanner;

public class Main {
	MyScanner sc = new MyScanner();
	Scanner sc2 = new Scanner(System.in);
	final int MOD = 1000000007;
	int[] dx = { 1, 0, 0, -1 };
	int[] dy = { 0, 1, -1, 0 };
	int[] dx2 = { 1, 0, 0, -1, 1, -1, -1, 1 };
	int[] dy2 = { 0, 1, -1, 0, 1, 1, -1, -1 };

	void run() {
		int w = sc.nextInt();
		int h = sc.nextInt();
		char[][] f = new char[h][w];
		int[][] hole = new int[h][w];
		for (int i = 0; i < h; i++) {
			Arrays.fill(hole[i], 1);
		}
		int num = 0;
		int sh = 0;
		int sw = 0;
		for (int i = 0; i < h; i++) {
			String in = sc.next();
			for (int j = 0; j < w; j++) {
				f[i][j] = in.charAt(j);
				if (f[i][j] == 'S') {
					sh = i;
					sw = j;
				}
				if (f[i][j] == 'M') {
					f[i][j] = (char) (num++ + '0');
				}
				if (f[i][j] == '#') {
					LinkedList<Info> que = new LinkedList<Info>();
					que.add(new Info(0, i, j));
					int cost = 3;
					while (cost != 0) {
						int s = que.size();
						for (int k = 0; k < s; k++) {
							Info now = que.poll();
							for (int l = 0; l < 8; l++) {
								int nh = now.h + dy2[l];
								int nw = now.w + dx2[l];
								if (inner(nh, nw, h, w) && hole[nh][nw] < cost) {
									hole[nh][nw] = cost;
									que.add(new Info(0, nh, nw));
								}
							}
						}
						cost--;
					}
				}
			}
		}

		LinkedList<Info> que = new LinkedList<Info>();
		int[][][] cost = new int[1 << num][h][w];
		for (int i = 0; i < 1 << num; i++) {
			for (int j = 0; j < h; j++) {
				Arrays.fill(cost[i][j], Integer.MAX_VALUE / 10);
			}
		}
		cost[0][sh][sw] = 0;
		que.add(new Info(0, sh, sw));
		int min = Integer.MAX_VALUE / 10;
		while (!que.isEmpty()) {
			Info now = que.poll();
			if (Character.isDigit(f[now.h][now.w])) {
				int m = Integer.valueOf(f[now.h][now.w] - '0');
				if (cost[now.num][now.h][now.w] < cost[now.num | (1 << m)][now.h][now.w]) {
					cost[now.num | (1 << m)][now.h][now.w] = cost[now.num][now.h][now.w];
					now.num |= 1 << m;
				}
			}
			if (f[now.h][now.w] == 'G' && now.num == (1 << num) - 1) {
				min = Math.min(min, cost[(1 << num) - 1][now.h][now.w]);
			}
			for (int i = 0; i < 4; i++) {
				int nh = now.h + dy[i];
				int nw = now.w + dx[i];
				if (inner(nh, nw, h, w) && f[nh][nw] != '#') {
					if (cost[now.num][now.h][now.w] + hole[now.h][now.w] < cost[now.num][nh][nw]) {
						cost[now.num][nh][nw] = cost[now.num][now.h][now.w] + hole[now.h][now.w];
						que.add(new Info(now.num, nh, nw));
					}
				}
			}
		}
		System.out.println(min);
	}

	class Info {
		int num;
		int h;
		int w;

		/**
		 * @param h
		 * @param w
		 */
		public Info(int num, int h, int w) {
			super();
			this.num = num;
			this.h = h;
			this.w = w;
		}
	}

	public static void main(String[] args) {
		new Main().run();
	}

	void debug(Object... o) {
		System.out.println(Arrays.deepToString(o));
	}

	void debug2(char[][] array) {
		for (int i = 0; i < array.length; i++) {
			for (int j = 0; j < array[i].length; j++) {
				System.out.print(array[i][j]);
			}
			System.out.println();
		}
	}

	void debug3(int[][] array) {
		for (int i = 0; i < array.length; i++) {
			for (int j = 0; j < array[i].length; j++) {
				System.out.print(array[i][j]);
			}
			System.out.println();
		}
	}

	boolean inner(int h, int w, int limH, int limW) {
		return 0 <= h && h < limH && 0 <= w && w < limW;
	}

	void swap(int[] x, int a, int b) {
		int tmp = x[a];
		x[a] = x[b];
		x[b] = tmp;
	}

	// find minimum i (a[i] >= border)
	int lower_bound(int a[], int border) {
		int l = -1;
		int r = a.length;

		while (r - l > 1) {
			int mid = (l + r) / 2;
			if (border <= a[mid]) {
				r = mid;
			} else {
				l = mid;
			}
		}
		// r = l + 1
		return r;
	}

	class MyScanner {
		int nextInt() {
			try {
				int c = System.in.read();
				while (c != '-' && (c < '0' || '9' < c))
					c = System.in.read();
				if (c == '-')
					return -nextInt();
				int res = 0;
				do {
					res *= 10;
					res += c - '0';
					c = System.in.read();
				} while ('0' <= c && c <= '9');
				return res;
			} catch (Exception e) {
				return -1;
			}
		}

		double nextDouble() {
			return Double.parseDouble(next());
		}

		long nextLong() {
			return Long.parseLong(next());
		}

		String next() {
			try {
				StringBuilder res = new StringBuilder("");
				int c = System.in.read();
				while (Character.isWhitespace(c))
					c = System.in.read();
				do {
					res.append((char) c);
				} while (!Character.isWhitespace(c = System.in.read()));
				return res.toString();
			} catch (Exception e) {
				return null;
			}
		}

		int[] nextIntArray(int n) {
			int[] in = new int[n];
			for (int i = 0; i < n; i++) {
				in[i] = nextInt();
			}
			return in;
		}

		int[][] nextInt2dArray(int n, int m) {
			int[][] in = new int[n][m];
			for (int i = 0; i < n; i++) {
				in[i] = nextIntArray(m);
			}
			return in;
		}

		double[] nextDoubleArray(int n) {
			double[] in = new double[n];
			for (int i = 0; i < n; i++) {
				in[i] = nextDouble();
			}
			return in;
		}

		long[] nextLongArray(int n) {
			long[] in = new long[n];
			for (int i = 0; i < n; i++) {
				in[i] = nextLong();
			}
			return in;
		}
	}
}