Problem:
Score : 300 points

Problem Statement

There are N cities numbered 1 through N, and M bidirectional roads numbered 1 through M.
Road i connects City A_i and City B_i.

Snuke can perform the following operation zero or more times:

Choose two distinct cities that are not directly connected by a road, and build a new road between the two cities.

After he finishes the operations, it must be possible to travel from any city to any other cities by following roads (possibly multiple times).

What is the minimum number of roads he must build to achieve the goal?

Constraints

2 \leq N \leq 100,000

1 \leq M \leq 100,000

1 \leq A_i < B_i \leq N

No two roads connect the same pair of cities.

All values in input are integers.

Input

Input is given from Standard Input in the following format:

N M
A_1 B_1
:
A_M B_M

Output

Print the answer.

Sample Input 1

3 1
1 2

Sample Output 1

1

Initially, there are three cities, and there is a road between City 1 and City 2.

Snuke can achieve the goal by building one new road, for example, between City 1 and City 3.
After that,

We can travel between 1 and 2 directly.

We can travel between 1 and 3 directly.

We can travel between 2 and 3 by following both roads (2 - 1 - 3).

Solution in Common Lisp (SBCL 2.0.3) (judge verdict: Accepted)

;;;; union find tree
(defun make-uft (n)
  (let ((parent (make-array (list (1+ n))))
        (rank (make-array (list (1+ n)))))
    (loop :for i :from 0 :to n
          :do (setf (aref parent i) i))
    (cons parent rank)))

(defun find-root (uft x)
  (let ((p nil)
        (stack nil))
    (loop :with stack := nil
          :while (/= (aref (car uft) x) x)
          :do (push x stack)
          :do (setf x (aref (car uft) x))
          :finally (setf p x))
    (loop :for y :in stack
          :do (setf (aref (car uft) y) p))
    p))

(defun union-nodes (uft x y)
  (let ((x-root (find-root uft x))
        (y-root (find-root uft y)))
    (cond ((> (aref (cdr uft) x-root) (aref (cdr uft) y-root))
           (setf (aref (car uft) y-root) x-root))
          ((< (aref (cdr uft) x-root) (aref (cdr uft) y-root))
           (setf (aref (car uft) x-root) y-root))
          ((/= x-root y-root)
           (setf (aref (car uft) y-root) x-root)
           (incf (aref (cdr uft) x-root))))))

(defun same-root (uft x y)
  (= (find-root uft x) (find-root uft y)))

;;;; main
(let* ((n (read))
       (m (read))
       (uft (make-uft n)))
  (loop :for _ :from 1 :to m
        :for a := (read)
        :for b := (read)
        :do (union-nodes uft a b))
  (loop :with cnt := 0
        :for i :from 2 :to n
        :do (unless (same-root uft 1 i)
              (union-nodes uft 1 i)
              (incf cnt))
        :finally (format t "~A~%" cnt)))