朋友

题目描述

经过六年的努力，小明终于被一所知名中学录取。优秀的小明总是对一些奇奇怪怪的事情感兴趣，这次他想知道谁在这所新学校拥有的朋友最多，由于大家都才刚报到，所以小明只知道大家两两之间是否是朋友关系。

输入

输入文件friend.in的第一行有两个整数n和m，n表示总人数，m表示总关系数。
接下来n行，每行有2个以空格隔开的整数a和b，表示a和b是朋友，a和b均为1到n之间的整数。不会给出重复的朋友关系。

输出

输出文件friend.out中仅有一行，表示朋友数最多的人所拥有的朋友，每两个整数之间用空格隔开，按照字典序从小到大输出。如果存在多个人朋友数都是最多的情况，请输出字典序最小的那人的答案，具体见样例。

样例输入

3 3
1 2
2 3
1 3

样例输出

2 3

数据范围限制

50%的数据，1 <= n <= 10
80%的数据，1 <= n <= 1000
100%的数据，1 <= n <= 10000，m <= 500000

提示

1、2、3均拥有2个朋友，因此输出字典序较小的1的朋友即可。
1的朋友为2和3，按照字典序从小到大输出，数字之间用空格隔开。

TJ

直接暴力……

BC

var        n,m,i,x,y:longint;        p:array[1..10000,1..10000]of boolean;        nl:array[1..10000,1..2]of int64;procedure kp(l,r:longint);var        i,j,mid,mid1:longint;        t:array[1..2]of int64;begin        i:=l;        j:=r;        mid:=nl[(l+r)div 2,2];        mid1:=nl[(l+r)div 2,1];        repeat                while (nl[i,2]>mid)or(nl[i,2]=mid)and(nl[i,1]<mid1) do inc(i);                while (nl[j,2]<mid)or(nl[j,2]=mid)and(nl[j,1]>mid1) do dec(j);                if i<=j then                begin                        t:=nl[i];                        nl[i]:=nl[j];                        nl[j]:=t;                        inc(i);                        dec(j);                end;        until i>j;        if l<j then kp(l,j);        if i<r then kp(i,r);end;begin        assign(input,'friend.in');reset(input);        assign(output,'friend.out');rewrite(output);        readln(n,m);        for i:=1 to m do        begin                readln(x,y);                p[x,y]:=true;                p[y,x]:=true;                inc(nl[x,2]);                inc(nl[y,2]);        end;        for i:=1 to n do nl[i,1]:=i;        kp(1,n);        for i:=1 to n do if p[nl[1,1],i] then write(i,' ');        writeln;        close(input);close(output);end.