提出 #3332736

---

ソースコード 拡げる

var
	i:Longint;
	n,k: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
	m,sa,sb:int64;
	i:Longint;
begin
	sa:=1;
	sb:=1;
	m:=1000000007;
	for i:=1 to b do begin
		sb:=sb*i mod m;
		sa:=sa*(a-i+1)mod m;
	end;
	C:=sa*power(sb,m-2)mod m;
end;
begin
	read(n,k);
	if n>k then writeln(C(n+k-1,k))else writeln(C(n,k mod n));
end.

提出情報

コンパイルエラー

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

ジャッジ結果