結果

問題 No.766 金魚すくい
ユーザー ciel
提出日時 2018-12-24 01:59:24
言語 Ruby
(3.4.1)
結果
AC  
実行時間 671 ms / 1,500 ms
コード長 332 bytes
コンパイル時間 454 ms
コンパイル使用メモリ 7,424 KB
実行使用メモリ 32,128 KB
最終ジャッジ日時 2024-09-25 10:54:07
合計ジャッジ時間 14,337 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 42
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

M=10**9+7;I=[1,1];*F=I;*R=I;N,K,P,*V=$<.read.split.map &:to_i;V.sort!
2.upto([N+K,100].max){|i|I<<z=(M-M/i)*I[M%i]%M;F<<i*F[-1]%M;R<<z*R[-1]%M}
Q=(100-P)*I[100]%M
P=P*I[100]%M
r=s=0
N.times{|i|r=(r+P.pow(K,M)*Q.pow(i,M)*F[K+i-1]*R[i]*R[K-1]*s)%M;s=(s+V[N-i-1])%M}
K.times{|i|r=(r+P.pow(i,M)*Q.pow(N,M)*F[N+i-1]*R[i]*R[N-1]*s)%M}
p r
0