Submission #27751046

---

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[a]<<i).minmax
		J[a] = (J[a]<<j).minmax
	}
}
Z = I.keys.each{|a|
	i0,i1 = I[a]
	j0,j1 = J[a]
	if S<(i1-i0+1)*(j1-j0+1)
		I.delete a
		J.delete a
	end
}.size

p Z-(I.values.inject([],:|).repeated_combination(2).map{|ii|
	i0,i1 = ii.sort
	w = S/(i1-i0+1)
	next 0 if w<1

	en = Hash.new{|h,j|h[j]=[]}
	ex = Hash.new{|h,j|h[j]=[]}
	I.each{|a,(i2,i3)|
		next if i2<i0 || i1<i3
		j2,j3 = J[a]
		en[j2]<<a
		ex[j3]<<a
	}
	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)

Submission Info

Judge Result