Classroom

Description

在幻想乡，上白泽慧音是以知识渊博闻名的老师。春雪异变导致人间之里的很多道路都被大雪堵塞，使有的学生不能顺利地到达慧音所在的村庄。因此慧音决定换一个能够聚集最多人数的村庄作为新的教学地点。人间之里由N个村庄（编号为1..N）和M条道路组成，道路分为两种一种为单向通行的，一种为双向通行的，分别用1和2来标记。如果存在由村庄A到达村庄B的通路，那么我们认为可以从村庄A到达村庄B，记为(A,B)。当(A,B)和(B,A)同时满足时，我们认为A,B是绝对连通的，记为。绝对连通区域是指一个村庄的集合，在这个集合中任意两个村庄X,Y都满足。现在你的任务是，找出最大的绝对连通区域，并将这个绝对连通区域的村庄按编号依次输出。若存在两个最大的，输出字典序最小的，比如当存在1,3,4和2,5,6这两个最大连通区域时，输出的是1,3,4。

Input

第1行：两个正整数N,M 
第2..M+1行：每行三个正整数a,b,t, t = 1表示存在从村庄a到b的单向道路，t = 2表示村庄a,b之间存在双向通行的道路。保证每条道路只出现一次。 

Output

第1行： 1个整数，表示最大的绝对连通区域包含的村庄个数。 
第2行：若干个整数，依次输出最大的绝对连通区域所包含的村庄编号。 

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

 

3
1 3 5

 

type
  arr=array[0..30000] of longint;
 var
  fz:arr;
  n,i,la,a,b,c:longint;
  l:array[0..2] of longint;
  f:array[0..2] of arr;
 procedure down(a,b:longint);
 begin
  writeln(b);
  writeln(a);
  close(input);
  close(output);
  halt;
end;
procedure prt(a:arr;l:longint);
var
  i:longint;
begin
  write(a[l]);
  for i:=l-1 downto 1 do
  begin
  if a[i]<10 then write('000',a[i])
  else if a[i]<100 then write('00',a[i])
  else if a[i]<1000 then write('0',a[i])
  else write(a[i]);
  end;
  writeln;
end;
procedure add(l1:longint;var l3:longint;var a,b,c:arr);
var
  i,x:longint;
begin
  i:=1;
  x:=0;
  while (i<=l1) do
  begin
    x:=a[i]+b[i]+x div 10000;
    c[i]:=x mod 10000;
    inc(i);
  end;
  c[i]:=x div 10000;
  if c[i]>0 then l3:=l1+1
  else l3:=l1;
end;
begin
  readln(n);
  f[0][1]:=1;
  l[0]:=1;
  f[1][1]:=2;
  l[1]:=1;
  a:=0;
  b:=1;
  c:=2;
  if n=1 then down(0,1);
  if n=2 then down(1,4);
  for i:=2 to n-3 do
  begin
  add(l[b],l[c],f[a],f[b],f[c]);
  a:=(a+1) mod 3;
  b:=(b+1) mod 3;
  c:=(c+1) mod 3;
  end;
  for i:=1 to l[b] do
  fz[i]:=f[b][i];
  la:=l[b];
  f[0][1]:=2;
  l[0]:=1;
  a:=0;
  b:=1;
    for i:=2 to n do
    begin
    add(l[a],l[b],f[a],f[a],f[b]);
    a:=ord(odd(a+1));
    b:=ord(odd(b+1));
    end;
    prt(f[a],l[a]);
    prt(fz,la);
end.