Submission #18397451

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
H,W = gets.split.map(&:to_i)
G = $<.read+?#*W
P = Hash.new{|h,k| h[k] = [] }
i = 0
while i = G.index(/[a-z]+/,i)
  $&.chars{|c|
    P[c] << i
    i += 1
  }
end
t,T = 0,[nil]*(~H*~W)
*q = G.index ?S
until q.empty?
  q.size.times{
    i = q.shift
    T[i] and next or T[i] = t
    case c = G[i]
    when ?G
      p t
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

H,W = gets.split.map(&:to_i)
G = $<.read+?#*W

P = Hash.new{|h,k| h[k] = [] }
i = 0
while i = G.index(/[a-z]+/,i)
	$&.chars{|c|
		P[c] << i
		i += 1
	}
end

t,T = 0,[nil]*(~H*~W)
*q = G.index ?S
until q.empty?
	q.size.times{
		i = q.shift
		T[i] and next or T[i] = t
		case c = G[i]
		when ?G
			p t
			exit
		when ?#,"\n"
		else
			q << i+1 unless T[i+1]
			q << i-1 unless T[i-1]
			q << i-~W unless T[i-~W]
			q << i+~W unless T[i+~W]
			q.concat c.select{|j| T[j].nil? } if c = P.delete(c)
		end
	}
	t += 1
end
p~0

Submission Info

Judge Result