結果

問題 No.695 square1001 and Permutation 4
コンテスト
ユーザー te-sh
提出日時 2018-07-11 15:47:38
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 1,232 ms / 7,000 ms
コード長 1,178 bytes
コンパイル時間 1,424 ms
コンパイル使用メモリ 113,224 KB
実行使用メモリ 41,344 KB
最終ジャッジ日時 2024-06-13 01:25:31
合計ジャッジ時間 8,148 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 12
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.container, std.conv, std.math, std.range, std.typecons, std.stdio, std.string;
import std.bigint;

auto rdsp(){return readln.splitter;}
void pick(R,T)(ref R r,ref T t){t=r.front.to!T;r.popFront;}
void readV(T...)(ref T t){auto r=rdsp;foreach(ref v;t)pick(r,v);}
void readA(T)(size_t n,ref T[]t){t=new T[](n);auto r=rdsp;foreach(ref v;t)pick(r,v);}

const mod1 = 168647939L, mod2 = 592951213L, mod = mod1*mod2;

void main()
{
  int n, m; readV(n, m);
  int[] x; readA(m, x);

  auto n2 = (n+1)/2, c = new uint[](n2);
  auto calc(int mod)
  {
    c[] = 0; c[0] = 1;
    foreach (i; 1..n2)
      foreach (j; 0..m)
        if (i >= x[j]) (c[i] += c[i-x[j]]) %= mod;

    auto r = 0uL;
    foreach (j; 0..m)
      foreach (i; max(0, n2-x[j])..min(n-x[j], n2))
        (r += c[i].to!ulong*c[n-1-(i+x[j])].to!ulong) %= mod;

    return r.to!long;
  }

  auto r1 = BigInt(calc(mod1)), r2 = BigInt(calc(mod2));
  long a, b; exEuclid(mod1, mod2, a, b);
  writeln(((r1*b*mod2+r2*a*mod1)%mod+mod)%mod);
}

pure T exEuclid(T)(T a, T b, ref T x, ref T y)
{
  auto g = a;
  x = 1;
  y = 0;
  if (b) {
    g = exEuclid(b, a%b, y, x);
    y -= a/b*x;
  }
  return g;
}
0