結果

問題 No.148 試験監督(3)
ユーザー 👑 hos.lyrichos.lyric
提出日時 2015-02-13 09:57:32
言語 D
(dmd 2.106.1)
結果
WA  
実行時間 -
コード長 1,041 bytes
コンパイル時間 4,185 ms
コンパイル使用メモリ 91,812 KB
実行使用メモリ 5,964 KB
最終ジャッジ日時 2023-09-02 19:54:37
合計ジャッジ時間 9,576 ms
ジャッジサーバーID
(参考情報)
judge15 / judge13
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 194 ms
4,368 KB
testcase_01 AC 292 ms
4,368 KB
testcase_02 AC 629 ms
4,368 KB
testcase_03 AC 698 ms
4,372 KB
testcase_04 AC 770 ms
4,368 KB
testcase_05 WA -
testcase_06 AC 426 ms
5,948 KB
testcase_07 AC 649 ms
4,428 KB
testcase_08 AC 722 ms
5,428 KB
testcase_09 AC 49 ms
5,632 KB
testcase_10 AC 50 ms
5,964 KB
testcase_11 AC 1 ms
4,372 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);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|`    !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\`[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