Submission #27752007

---

Source Code Expand

(H,W,S),*A = $<.map{|ln| ln.split.map(&:to_i) }

I = Hash.new{|h,a|h[a]=[]}
J = Hash.new{|h,a|h[a]=[]}
A.each_with_index{|r,i|
	r.each_with_index{|a,j|
		I[a]<<i
		J[a]<<j
	}
}
Z = I.keys.each{|a|
	i0,i1 = I[a] = I[a].minmax
	j0,j1 = J[a] = J[a].minmax
	if S<(i1-i0+1)*(j1-j0+1)
		I.delete a
		J.delete a
	end
}.size
Is = I.values.inject([],:|).sort

p Z-(Is.map.with_index{|i0,i|
	is = Hash.new{|h,i|h[i]=[]}
	I.each{|a,(i1,i2)|
		is[i2]<<a if i0<=i1
	}
	en = Hash.new{|h,j|h[j]=[]}
	ex = Hash.new{|h,j|h[j]=[]}
	next Is[i..].map{|i1|
		is[i1].each{|a|
			j0,j1 = J[a]
			en[j0]<<a
			ex[j1]<<a
		}
		w = S/(i1-i0+1)
		next 0 if w<1

		js = (en.keys|ex.keys).sort
		as,j2 = {},js[r=0]
		next js.map{|j1|
			while j2 && j2-j1<w
				ex[j2].each{|a|
					as[a] ||= 1
				}
				j2 = js[r+=1]
			end
			z = as.values.sum
			en[j1].each{|a|
				as[a] = 0
			}
			next z
		}.max||0
	}.max||0
}.max||0)

Submission Info

Judge Result