結果
問題 | No.520 プロジェクトオイラーへの招待 |
ユーザー | ciel |
提出日時 | 2017-05-30 01:44:08 |
言語 | Ruby (3.3.0) |
結果 |
AC
|
実行時間 | 360 ms / 4,000 ms |
コード長 | 331 bytes |
コンパイル時間 | 43 ms |
コンパイル使用メモリ | 7,552 KB |
実行使用メモリ | 13,312 KB |
最終ジャッジ日時 | 2024-09-21 18:17:33 |
合計ジャッジ時間 | 1,850 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 92 ms
12,288 KB |
testcase_01 | AC | 94 ms
12,288 KB |
testcase_02 | AC | 91 ms
12,032 KB |
testcase_03 | AC | 189 ms
13,312 KB |
testcase_04 | AC | 233 ms
13,312 KB |
testcase_05 | AC | 360 ms
13,184 KB |
testcase_06 | AC | 91 ms
12,032 KB |
コンパイルメッセージ
Syntax OK
ソースコード
M=10**9+7;I=[1,1];*F=I;*R=I 2.upto(999){|i|I<<z=(M-M/i)*I[M%i]%M;F<<i*F[-1]%M;R<<z*R[-1]%M} f=->(a,b,c){(F[a+b+c-1]*R[b-1]*R[a+c]+g(a-1,b,c-1))%M} def g(a,b,c) $memo[[a,c]]||=F[a+b+c]*R[b-1]*R[a+c+1]%M+(a>0?g(a-1,b,c):F[b+c]*R[b]*R[c]%M)+(c>0?g(a,b,c-1):F[a+b]*R[a]*R[b]%M)%M end gets;$<.map{|e|$memo={};p f[*e.split.map(&:to_i)]}