parrot-studio/paizen.rb

## paizen.rb
height, width = gets.split(' ').map(&:to_i)

# bitとして扱う
lines = []
(1..height).each do |h|
  lines << gets.chomp.to_i(2)
end

# 対象を解析
targets = {}
tickets = []
gets.to_i.times do
  wh, ww = gets.split(' ').map(&:to_i)
  tickets << [ww, wh]
  targets[ww] = true if ww <= width
end

# 盤面をparse
memo = Hash.new{|h,k| h[k] = Hash.new(0)}
targets.keys.each do |tw|
  wm = memo[tw]
  val = ("1" * tw).to_i(2)
  (width - tw + 1).times do
    count = 0
    height.times do |vi|
      if lines[vi] & val == 0
        count += 1
      else
        (1..count).each{|c| wm[c] += (count - c + 1)} if count > 0
        count = 0
      end
    end
    (1..count).each{|c| wm[c] += (count - c + 1)} if count > 0
    val = (val << 1)
  end
end

# 最終結果
tickets.each do |key|
  puts memo[key.first][key.last]
end
	height, width = gets.split(' ').map(&:to_i)

	# bitとして扱う
	lines = []
	(1..height).each do \|h\|
	lines << gets.chomp.to_i(2)
	end

	# 対象を解析
	targets = {}
	tickets = []
	gets.to_i.times do
	wh, ww = gets.split(' ').map(&:to_i)
	tickets << [ww, wh]
	targets[ww] = true if ww <= width
	end

	# 盤面をparse
	memo = Hash.new{\|h,k\| h[k] = Hash.new(0)}
	targets.keys.each do \|tw\|
	wm = memo[tw]
	val = ("1" * tw).to_i(2)
	(width - tw + 1).times do
	count = 0
	height.times do \|vi\|
	if lines[vi] & val == 0
	count += 1
	else
	(1..count).each{\|c\| wm[c] += (count - c + 1)} if count > 0
	count = 0
	end
	end
	(1..count).each{\|c\| wm[c] += (count - c + 1)} if count > 0
	val = (val << 1)
	end
	end

	# 最終結果
	tickets.each do \|key\|
	puts memo[key.first][key.last]
	end