Problem:
最古の遺跡

問題

昔, そこには集落があり, 多くの人が暮らしていた. 人々は形も大きさも様々な建物を建てた. だが, それらの建造物は既に失われ, 文献と, 遺跡から見つかった柱だけが建造物の位置を知る手がかりだった.

文献には神殿の記述がある. 神殿は上から見ると正確に正方形になっており, その四隅には柱があった. 神殿がどの向きを向いていたかはわからない. また, 辺上や内部に柱があったかどうかもわからない. 考古学者たちは, 遺跡から見つかった柱の中で, 正方形になっているもののうち, 面積が最大のものが神殿に違いないと考えた.

柱の位置の座標が与えられるので, 4 本の柱でできる正方形のうち面積が最大のものを探し, その面積を出力するプログラムを書け. なお, 正方形の辺は座標軸に平行とは限らないことに注意せよ.

例

下の図の例では, 10 本の柱があり, 座標 (4, 2), (5, 2), (5, 3), (4, 3) にある 4 本と座標 (1, 1), (4, 0), (5, 3), (2, 4) にある 4 本が正方形をなしている. 面積が最大の正方形は後者で, その面積は 10 である.

入力

入力は複数のデータセットからなる．各データセットは以下の形式で与えられる．入力はゼロ１つを含む行で終了する．

1 行目には, 遺跡から見つかった柱の本数 n が書かれている.

2 行目から n + 1 行目までの n 行の各々には, 柱の x 座標と y 座標が空白区切りで書かれている.

1 本の柱が 2 度以上現れることはない.

n は 1 ≤ n ≤ 3000 を満たす整数であり, 柱の x 座標と y 座標は 0 以上 5000 以下の整数である.

採点用データのうち, 配点の 30% 分は 1 ≤ n ≤ 100 を満たし, 配点の 60% 分は1 ≤ n ≤ 500 を満たす.

データセットの数は 10 を超えない．

出力

データセットごとに 1 個の整数を出力する. 4 本の柱からなる正方形が存在する場合は, そのような正方形のうち面積が最大のものの面積を出力し, そのような正方形が存在しない場合は 0 を出力せよ.

入出力例

入力例

10
9 4
4 3
1 1
4 2
2 4
5 8
4 0
5 3
0 5
5 2
10
9 4
4 3
1 1
4 2
2 4
5 8
4 0
5 3
0 5
5 2
0

出力例

10
10

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

Solution in Ruby (judge verdict: Wrong Answer)

require "set"

class Point
  def initialize(x, y)
    @x = x
    @y = y
  end
  attr_reader :x, :y

  def hash
    n = (self.x + self.y + 1)
    n * (n + 1) / 2 + self.y
  end

  def eql?(other)
    self.x == other.x and self.y == other.y
  end
end

class Square
  include Comparable

  def initialize(point_a = nil, point_b = nil)
    if point_b
      @area = (point_a.x - point_b.x)**2 + (point_a.y - point_b.y)**2
    else
      @area = 0
    end
  end
  attr_reader :area

  def <=>(other)
    self.area <=> other.area
  end
end

def check_square(points, point_a, point_b)
  diff_x = point_a.x - point_b.x
  diff_y = point_a.y - point_b.y

  p1 = Point.new(point_a.x + diff_y, point_a.y - diff_x)
  p2 = Point.new(point_b.x + diff_y, point_b.y - diff_x)
  p3 = Point.new(point_a.x - diff_y, point_a.y + diff_x)
  p4 = Point.new(point_b.x - diff_y, point_b.y + diff_x)

  if points.include? p1 and points.include? p2
    return Square.new(p1, p2)
  end

  if points.include? p3 and points.include? p4
    return Square.new(p3, p4)
  end
end

def main_calc(points)
  max_square = Square.new
  enum_a = points.each

  (points.length-1).times do |i|
    point_a = enum_a.next
    enum_b = points.each
    i.times { enum_b.next }

    (points.length-i-2).times do
      point_b = enum_b.next
      if square = check_square(points, point_a, point_b)
        max_square = square if max_square < square
      end
    end
  end

  max_square.area
end

output = []
open("input.txt") do |f|
  loop do 
    count = f.readline.chomp.to_i
    break if count == 0

    points = Set.new
    count.times do
      line = f.readline.chomp
      x, y = line.split(" ").map(&:to_i)
      #points << Point.new(x, y)
    end
    output << 0 #main_calc(points) 
  end
end

open("output.txt", "w") do |f|
  f.write output.join("\n")
end