Submission #3385257

---

Source Code Expand

var
	n,i,l,r:Longint;
	a,v:array[1..100001]of Longint;
	ans:int64;
function power(a,b:int64):int64;
var s:int64;
begin
	if b=0 then power:=1
	else begin
		s:=power(a*a mod 1000000007,b div 2);
		if b mod 2=1 then s:=s*a mod 1000000007;
		power:=s;
	end;
end;
function C(a,b:int64):int64;
var s,t:int64;i:Longint;
begin
	if(b<0)or(b>a)then begin
		C:=0;
		exit;
	end;
	s:=1;
	t:=1;
	for i:=1 to b do begin
		s:=s*(a-i+1)mod 1000000007;
		t:=t*i mod 1000000007;
	end;
	C:=s*power(t,1000000005)mod 1000000007;
end;
begin
	read(n);
	for i:=1 to n+1 do begin
		read(a[i]);
		if v[a[i]]=0 then v[a[i]]:=i
		else begin
			l:=v[a[i]]-1;
			r:=n+1-i;
		end;
	end;
	for i:=1 to n+1 do writeln((C(n+1,i)-C(l+r,i-1))mod 1000000007);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result