結果

問題 No.187 中華風 (Hard)
ユーザー te-shte-sh
提出日時 2017-05-09 12:40:47
言語 D
(dmd 2.106.1)
結果
AC  
実行時間 1,109 ms / 3,000 ms
コード長 1,167 bytes
コンパイル時間 1,525 ms
コンパイル使用メモリ 150,840 KB
実行使用メモリ 7,436 KB
最終ジャッジ日時 2024-06-12 19:06:22
合計ジャッジ時間 13,564 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 3 ms
6,812 KB
testcase_01 AC 2 ms
6,944 KB
testcase_02 AC 60 ms
7,404 KB
testcase_03 AC 58 ms
7,352 KB
testcase_04 AC 1,033 ms
7,380 KB
testcase_05 AC 1,036 ms
7,332 KB
testcase_06 AC 1,036 ms
7,388 KB
testcase_07 AC 1,032 ms
7,356 KB
testcase_08 AC 1,108 ms
7,432 KB
testcase_09 AC 1,103 ms
7,328 KB
testcase_10 AC 1,109 ms
7,332 KB
testcase_11 AC 1,034 ms
7,416 KB
testcase_12 AC 1,035 ms
7,408 KB
testcase_13 AC 8 ms
6,940 KB
testcase_14 AC 8 ms
6,944 KB
testcase_15 AC 49 ms
7,420 KB
testcase_16 AC 50 ms
7,420 KB
testcase_17 AC 1 ms
6,944 KB
testcase_18 AC 3 ms
6,944 KB
testcase_19 AC 1 ms
6,940 KB
testcase_20 AC 736 ms
7,368 KB
testcase_21 AC 1 ms
6,940 KB
testcase_22 AC 1,039 ms
7,436 KB
testcase_23 AC 1 ms
6,940 KB
testcase_24 AC 1 ms
6,940 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;
import std.typecons;  // Tuple, Nullable, BigFlags
import std.bigint;    // BigInt

const p = 10^^9 + 7;

void main()
{
  auto n = readln.chomp.to!size_t;
  auto xi = new BigInt[](n), yi = new BigInt[](n);
  foreach (ref x, ref y; lockstep(xi, yi)) {
    auto rd = readln.split.to!(BigInt[]);
    x = rd[0]; y = rd[1];
  }

  auto z = xi[0], l = yi[0];

  foreach (i; 1..n) {
    auto r = calc(z, l, xi[i], yi[i]); z = r[0]; l = r[1];
    if (l == -1) {
      writeln(-1);
      return;
    }
  }

  writeln((z == 0 ? l : z) % p);
}

auto calc(T)(T x1, T y1, T x2, T y2)
{
  auto g = euclid(y1, y2);
  if (x1 % g != x2 % g) return Tuple!(T, T)(BigInt(-1), BigInt(-1));

  T m, n;
  exEuclid(y1, y2, m, n);
  m *= (x2 - x1) / g;

  auto l = y1 / g * y2;

  return Tuple!(T, T)(((m * y1 + x1) % l + l) % l, l);
}

pure T euclid(T)(T a, T b)
{
  if (a < b) return euclid(b, a);
  auto c = a % b;
  return c == 0 ? b : euclid(b, c);
}

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