結果

問題 No.695 square1001 and Permutation 4
ユーザー ciel
提出日時 2020-02-08 22:24:54
言語 Crystal
(1.14.0)
結果
AC  
実行時間 1,135 ms / 7,000 ms
コード長 515 bytes
コンパイル時間 12,473 ms
コンパイル使用メモリ 296,584 KB
実行使用メモリ 41,984 KB
最終ジャッジ日時 2024-06-30 20:02:41
合計ジャッジ時間 19,014 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 12
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

def solve(v,n,q,x)
    m=n//2;r=0_i64
    (1...n-m).each{|i|v[i]=0}
    (1...n-m).each{|i|x.each{|e|
        e<=i && (v[i]=(v[i]+v[i-e])%q)
    }}
    x.each{|e|([m-e,0].max...[n-e,m].min).each{|i|
        r=(r+1_i64*v[i]*v[n-i-e-1])%q
    }}
    r
end
def pow(x,y,q)
    z=1_i64
    while y>0
        y%2>0 && (z=z*x%q)
        x=x*x%q
        y//=2
    end
    z
end
n,m=gets.not_nil!.split.map &.to_i
x=gets.not_nil!.split.map &.to_i
m1=168647939;m2=592951213
v=[0]*(n-n//2);v[0]=1
r1=solve(v,n,m1,x);r2=solve(v,n,m2,x)
rm=(r2-r1+m2)*pow(m1.to_i64,m2-2,m2)%m2
puts rm*m1+r1
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0