ADS spoj – Quảng cáo

Nguồn đề bài: http://vn.spoj.com/problems/ADS/

1. Đề bài ADS spoj

Nhân dịp Tết sắp đến công ty Jelly-for-Kids quyết định tăng cường việc quảng bá sản phẩm đến người tiêu dùng. Vì thế giám đốc marketing, ông Fruit-Jelly muốn gửi đi số lượng nhân viên tối đa có thể, làm nhiệm vụ tiếp thị tại đại lý trong thành phố

Trong thành phố có m con đường, n đại lý bán kẹo (đánh số từ 1 đến n). Mỗi con đường chỉ nối trực tiếp giữa 2 đại lý, và được ký hiệu bằng chỉ số của 2 đại lý mà nó nối. Đồng thời, giữa 2 đại lý bất kỳ có không quá 1 con đường nối chúng

Ông Fruit-Jelly nghĩ rằng, ông ta sẽ quản lý nhân viên dễ hơn nếu xếp mỗi người tiếp thị trên những hành trình có tính chất thứ tự. Tức là những đại lý bán kẹo trên hành trình đó thỏa các điều kiện sau

Có đường nối trực tiếp giữa 2 đại lý liên tiếp nhau trên hành trình

Từ một đại lý bất kỳ trong hành trình có thể đi qua tất cả các đoạn đường trong hành trình đó rồi trở về nơi xuất phát mà không đi qua đoạn đường nào quá một lần

Hành trình phân công cho mỗi nhân viên phải có ít nhất một đoạn đường chưa có nhân viên nào khác đi tiếp thị.

Mỗi nhân viên chỉ di chuyển trên hành trình mà anh ta được phân công. Hãy tính số lượng nhân viên tối đa mà ông Fruit-Jelly có thể xếp việc, và hành trình cụ thể mà mỗi người được xếp.

Input

Dòng đầu là 2 số tự nhiên N và M (N<=2000) (M<=5000)

Trong M dòng tiếp theo, mỗi dòng ghi 2 số nguyên mô tả một đoạn đường, mỗi đoạn đường được mô tả bởi chỉ số của 2 đại lý mà nó nối.

Output

Dòng đầu tiên ghi Q là số lượng nhân viên tối đa tìm được

Example

Input:
5 6
1 2
2 4
4 5
3 5
1 3
2 3

Output:
2

2. Gợi Ý ADS spoj

Đáp án = M – N + số thành phần liên thông

3. Code tham khảo ADS spoj

 const   fi='';
        nmax=2000;
var
        f:text;
        n,m:word;
        a:array[1..nmax,1..nmax] of byte;
        dd:array[1..nmax] of boolean;

procedure docfile;
var     i,j:word;
        x,y:word;
begin
        assign(f,fi); reset(f);
        readln(f,n,m);
        fillchar(a,sizeof(a),0);
        for i:=1 to m do
                begin
                        readln(f,x,y);
                        a[x,y]:=1;
                        a[y,x]:=1;
                end;
        close(f);
end;

procedure DFS(i:word);
var     j:word;
begin
        dd[i]:=true;
        for j:=1 to n do
                if (not dd[j]) and (a[i,j]=1) then
                        dfs(j);
end;

function SPT:longint;
var     i:word;
        sl:longint;
begin
        sl:=1;
        fillchar(dd,sizeof(dd),false);
        dfs(1);
        for i:=1 to n do
                if not dd[i] then
                        begin
                                dfs(i);
                                inc(sl);
                        end;
        exit(sl);
end;

begin
        docfile;
        writeln(m-n+spt);
end.