Submission #3385268

---

Source Code Expand

var
	n,i,l,r:Longint;
	a,v:array[1..100001]of Longint;
	ans:int64;
	fac:array[0..100001]of 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;
begin
	if(b<0)or(b>a)then begin
		C:=0;
		exit;
	end;
	C:=fac[a]*power(fac[a-b],1000000005)mod 1000000007*power(fac[b],1000000005)mod 1000000007;
end;
begin
	fac[0]:=1;
	for i:=1 to 100001 do fac[i]:=fac[i-1]*i mod 1000000007;
	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