Problem:
平面に長方形のシートが何枚か置かれている. これらのシートで覆われている部分の面積や周長を求めるプログラムを作成せよ.

ただし, 平面を座標平面とみなしたとき, シートの配置は次の条件 (1), (2) を満たすものとする.

(1) 各シートの長方形の 4 頂点の x, y 座標は全て 0 以上 10000 以下の整数であり, 長方形の各辺は x 軸, または y 軸に平行である.

(2) シートの枚数は高々 10000 枚以下である.

入力データ の 1 行目に長方形の個数 n と問題の種類を表す整数 r が空白で区切って書かれている. 2 行目以降の各行には, 各シートの左下頂点座標 (x1, y1) と右上頂点座標 (x2, y2) の座標値が x1, y1, x2, y2 の順で空白で区切って書いてある.

出力には r = 1 のとき 1 行目に面積を, r = 2 のとき 1 行目に面積, 2 行目に周囲の長さを出力する. いずれの場合も最後に改行を入れること.

また, テストデータの 40% では長方形の頂点の座標が 0 以上 100 以下で, そのうちの 1/2 では面積だけを求める問題である. さらに, 全体の 1/2 は面積だけを求める問題である.

入力例１

入力例２

入力例３

入力例４

5 1

5 2

2 2

3 2

0 0 3 2

0 0 3 2

0 0 8 9

2 2 8 8

1 1 2 5

1 1 2 5

0 0 9 8

3 0 4 9

0 4 6 5

0 4 6 5

5 0 7 9

3 3 5 6

3 3 5 6

5 0 7 6

5 0 7 6

　

出力例１

出力例２

出力例３

出力例４

29

29

80

45

38

36

36

入力

入力は複数のデータセットからなる．n, r がともに 0 のとき入力が終了する．データセットの数は 10 を超えない．

出力

データセットごとに, r = 1 のとき 1 行目に面積を, r = 2 のとき 1 行目に面積, 2 行目に周囲の長さを出力する.

入力例

5 1
0 0 3 2
1 1 2 5
0 4 6 5
3 3 5 6
5 0 7 6
5 2
0 0 3 2
1 1 2 5
0 4 6 5
3 3 5 6
5 0 7 6
2 2
0 0 8 9
0 0 9 8
3 2
2 2 8 8
3 0 4 9
5 0 7 9
0 0

出力例

29
29
38
80
36
45
36

上記問題文と自動審判に使われるデータは、情報オリンピック日本委員会が作成し公開している問題文と採点用テストデータです。

Solution in Ruby (judge verdict: Time Limit Exceeded)

def unite(rg,i,f)
  if rg.empty?
    rg = [i..f]
  else
    s = [rg[-1].last,f].max
    a = Array.new(s){|j|
      val = 1
      if j<i || f<j
        for k in 0..rg.size-1
          inc = rg[k].include?(j)
          break if inc
        end
        val = (inc ? 1 : 0)
      end
      val
    }
    a+=[0]
    rg = []
    while true
      idx1 = a.rindex{|x| x==1}
      break if idx.nil?
      a = a[0..idx-1]
      idx2 = a.rindex{|x| x==0}
      rg = [idx2+1..idx1]+rg
      a = a[0..idx-1]
    end
  end
  rg
end

while true
  n,r = gets.split(" ").map{|s| s.to_i}
  break if (n==0 && r==0)
  
  xrgs = [[]]
  yrgs = [[]]

  for i in 0..n-1
    x1,y1,x2,y2 = gets.split(" ").map{|s| s.to_i}
    for y in y1..y2
      xrgs[y] = unite(xrgs[y],x1,x2) rescue xrgs[y] =[x1..x2]
    end
    for x in x1..x2
      yrgs[x] = unite(yrgs[x],y1,y2) rescue yrgs[x] =[y1..y2]
    end
  end

  puts xrgs.compact.map{|arr| arr.map{|rng| rng.last-rng.first+1}}.flatten.inject(:+)
  puts (xrgs+yrgs).compact.map{|arr| arr.size}.inject(:+)*2 if r==2
end