結果

問題 No.148 試験監督（3）
ユーザー 👑 hos.lyrichos.lyric
提出日時 2015-02-13 09:56:40
言語 D
(dmd 2.106.1)
結果
AC  
実行時間 902 ms / 1,000 ms
コード長 1,031 bytes
コンパイル時間 1,258 ms
コンパイル使用メモリ 109,568 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-06-12 02:16:33
合計ジャッジ時間 7,433 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 188 ms
5,248 KB
testcase_01 AC 316 ms
5,248 KB
testcase_02 AC 651 ms
5,376 KB
testcase_03 AC 701 ms
5,376 KB
testcase_04 AC 683 ms
5,376 KB
testcase_05 AC 617 ms
5,376 KB
testcase_06 AC 469 ms
5,376 KB
testcase_07 AC 902 ms
5,376 KB
testcase_08 AC 709 ms
5,376 KB
testcase_09 AC 50 ms
5,376 KB
testcase_10 AC 51 ms
5,376 KB
testcase_11 AC 1 ms
5,376 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.bigint,std.conv,std.stdio,std.string;int M=10^^9+7,S=4700000,q;long y,z,a,b,e;void i(long n){y=1;for(e=M-2;e;e/=2,n=n*n%M)if(e&1)y=y*n%M;}void f(int n){if(n>M/2){f(M-1-n);i(z);z=n%2?y:M-y;}else{z=1;if(n%S>S/2){for(;n%S;)z=z*++n%M;i(z);}else{for(;n%S;)z=z*n--%M;y=z;}z=0;foreach(j;0..5)z=z<<6|`    !=T^$N7Q ?5" )351S;,]M&3G V/FYT#,%LJCD5SSZ9K6 ?G1ANE)NYLP*D.F.<J!&A"[B)?;-, "A(VIV!U;F2(BBYU<H'!%(!W5H?%NF[#</8+])%Z$PG4-&&1YQ#ST/Y-:NP3:L2>Y>YJHN.[*%)G!C=C.HI'3-93/[F4F!:C9XZWV'^F[5S6-NT"_;'KP<_YLGC="#!\?[*C7?H!AB0Q#L#4XPD8UM"ZPID@R+"] ^WQSY6%:MW[-F.*JBC$S/8B$BFDG@NC50Q@-P_#V=8'"=GJV3U0(%)(3$=&)CWZ$KM&^/JZ1XN9NS?\'Z6+&NT*%EGA4 0!Q.=#M@D7IZ$PX,18W_X?.;X;6P@MFHN)?Q7H(LOU4VQ]["+/3&UP.<R= 79IDIL>2 MMFEV"FT9U%#.U(ET;03<6VHN R&X) J(0PR@G#"(8!,CC :ZW8N)/QJ$SJND6DK\1,U1*Q'G>B^V#!E%CV)5W$;?)J5"A>.8'V,7/CKQ=1HYM/U.O?S8@E".=O2$@1@A\G$V`[n/S*5+j]-32;z=z*y%M;}}void main(){foreach(t;0..readln.chomp.to!int){auto s=readln.split;BigInt C=s[0],P=s[1],r=C+1-P,l=r-P;a=0;if(l>=0&&l/M==r/M){f(r%M);a=z;f(l%M);i(z);a=a*y%M;}a.writeln;}}
0