結果

問題 No.148 試験監督（3）
ユーザー 👑 hos.lyrichos.lyric
提出日時 2015-02-13 10:30:27
言語 D
(dmd 2.106.1)
結果
AC  
実行時間 769 ms / 1,000 ms
コード長 1,043 bytes
コンパイル時間 785 ms
コンパイル使用メモリ 94,392 KB
実行使用メモリ 6,136 KB
最終ジャッジ日時 2023-09-02 19:55:10
合計ジャッジ時間 6,776 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 194 ms
4,368 KB
testcase_01 AC 291 ms
4,368 KB
testcase_02 AC 629 ms
4,368 KB
testcase_03 AC 694 ms
4,372 KB
testcase_04 AC 769 ms
4,372 KB
testcase_05 AC 570 ms
4,368 KB
testcase_06 AC 432 ms
5,324 KB
testcase_07 AC 654 ms
5,068 KB
testcase_08 AC 728 ms
5,304 KB
testcase_09 AC 61 ms
6,136 KB
testcase_10 AC 61 ms
5,552 KB
testcase_11 AC 2 ms
4,368 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.bigint,std.conv,std.stdio,std.string;int M=10^^9+7,S=4600000,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);z.i;z=n%2?y:M-y;}else{z=1;if(n%S>S/2){for(;n%S;)z=z*++n%M;z.i;}else{for(;n%S;)z=z*n--%M;y=z;}z=0;foreach(j;0..5)z=z<<6|`    !9)KE"DUX8B>30# U[O$..MV)WVR>^QX>C$BJ'D\72-I[-7PZUN=C?V(:E'$E-"/-<P:>Z.6(0>0#WV?#W/MUVC%9GCZG_U6KYMS9R]T%E1Q.DFYHIM28MFJ;M[1.P<TP^Q 9^WZJ6HEY=]5M*)@IVNL7 /)(*0B3#W8Q:V%Z33B83\Y$1I@ZB_88' V_;HV)7G11J+7U$00) Y6QO#,T[VG6<+/_Y*1"@3TU5?"ZPIDH%2GH,4T]W0!B>^6;#?JE$(@?<PFXADDX]FH:*OF34,L9@HM,^:O&%7$P:6[UCMNI(F\\KHY"P8!E_"VJ3Q76A80/G4'RNL'7VE "!EP4X$#V%5I9,>::$'?L8W6ZIV^F1L+(,>E.DN(JTJ$PIT7?[G:=[;-O3PYZMS+JG _ML+;',_:IQ \WFA&?S$J,#C7%/'GPM,Y+C1]^18/P<05]<2JUZ4.SAU<XR2V&TJND6D[#AI>Z[V[R/5:NU#0UDU(1EV\09<==3L<S^M0\0Z$4E:R.:>J$2 ';U4;#!]>3\+[IS$B\!K.KE`[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);z.i;a=a*y%M;}a.writeln;}}
0