Problem:
Score : 600 points

Problem Statement

There are N dots in a two-dimensional plane. The coordinates of the i-th dot are (x_i, y_i).

We will repeat the following operation as long as possible:

Choose four integers a, b, c, d (a \neq c, b \neq d) such that there are dots at exactly three of the positions (a, b), (a, d), (c, b) and (c, d), and add a dot at the remaining position.

We can prove that we can only do this operation a finite number of times. Find the maximum number of times we can do the operation.

Constraints

1 \leq N \leq 10^5

1 \leq x_i, y_i \leq 10^5

If i \neq j, x_i \neq x_j or y_i \neq y_j.

All values in input are integers.

Input

Input is given from Standard Input in the following format:

N
x_1 y_1
:
x_N y_N

Output

Print the maximum number of times we can do the operation.

Sample Input 1

3
1 1
5 1
5 5

Sample Output 1

1

By choosing a = 1, b = 1, c = 5, d = 5, we can add a dot at (1, 5). We cannot do the operation any more, so the maximum number of operations is 1.

Sample Input 2

2
10 10
20 20

Sample Output 2

0

There are only two dots, so we cannot do the operation at all.

Sample Input 3

9
1 1
2 1
3 1
4 1
5 1
1 2
1 3
1 4
1 5

Sample Output 3

16

We can do the operation for all choices of the form a = 1, b = 1, c = i, d = j (2 \leq i,j \leq 5), and no more. Thus, the maximum number of operations is 16.

Solution in Rust (1.15.1) (judge verdict: Runtime Error)

use std::io::{self, BufRead};

use std::collections::{BTreeMap, BTreeSet};

fn dfs(xys: &BTreeMap<usize, BTreeSet<usize>>, yxs: &BTreeMap<usize, BTreeSet<usize>>, visited: &mut BTreeSet<(usize, usize)>, x: usize, y: usize) {
  visited.insert((x, y));
  for z in yxs.get(&y).unwrap_or(&BTreeSet::new()) {
    if x == *z {
      continue;
    }
    for w in xys.get(&x).unwrap_or(&BTreeSet::new()) {
      if y == *w {
        continue;
      }
      if visited.contains(&(*z, *w)) {
        continue;
      }
      dfs(xys, yxs, visited, *z, *w);
    }
  }
}

fn main() {
  let stdin = io::stdin();
  let mut lines = stdin.lock().lines();
  let n: usize = lines.next().unwrap().unwrap().parse().unwrap();
  let mut xys: BTreeMap<usize, BTreeSet<usize>> = BTreeMap::new();
  let mut yxs: BTreeMap<usize, BTreeSet<usize>> = BTreeMap::new();
  for _ in 0..n {
    let xs: Vec<usize> = lines.next().unwrap().unwrap().split(' ').map(|x| x.parse().unwrap()).collect();
    let (x, y) = (xs[0], xs[1]);
    if !xys.contains_key(&x) {
      xys.insert(x, BTreeSet::new());
    }
    if let Some(ys) = xys.get_mut(&x) {
      ys.insert(y);
    }
    if !yxs.contains_key(&y) {
      yxs.insert(y, BTreeSet::new());
    }
    if let Some(xs) = yxs.get_mut(&y) {
      xs.insert(x);
    }
  }
  let mut visited: BTreeSet<(usize, usize)> = BTreeSet::new();
  for (x, ys) in &xys {
    for y in ys {
      dfs(&xys, &yxs, &mut visited, *x, *y);
    }
  }
  println!("{}", visited.len() - n);
}