結果

問題 No.803 Very Limited Xor Subset
ユーザー ikd
提出日時 2019-03-18 15:19:38
言語 Nim
(2.2.0)
結果
AC  
実行時間 7 ms / 2,000 ms
コード長 1,253 bytes
コンパイル時間 3,477 ms
コンパイル使用メモリ 66,020 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-07-01 22:40:18
合計ジャッジ時間 5,202 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 43
権限があれば一括ダウンロードができます

ソースコード

diff # 

import strutils, sequtils

proc gauss(a: var seq[seq[int]]): int =
  let (n, m) = (a.len, a[0].len)
  var rk = 0
  for j in 0..<(m - 1):
    var pv = -1
    for i in rk..<n:
      if a[i][j] == 1:
        pv = i
        break
    if pv >= 0:
      swap(a[rk], a[pv])
      for i in (rk + 1)..<n:
        if a[i][j] == 1:
          for j2 in j..<m:
            a[i][j2] = a[i][j2] xor a[rk][j2]
      rk += 1
  for i in rk..<n:
    if a[i][m - 1] > 0:
      rk = -1
      break
  return rk

proc main() =
  let
    nmx = stdin.readLine.strip.split.map(parseInt)
    (n, m, x) = (nmx[0], nmx[1], nmx[2])
    a = stdin.readLine.strip.split.map(parseInt)
    lrs = (0..<m).mapIt(stdin.readLine.strip.split.map(parseInt))
    b = 33

  var mat = newSeqWith(b + m, newSeq[int](n + 1))
  for i in 0..<b:
    for j in 0..<n:
      if ((a[j] shr i) and 1) == 1:
        mat[i][j] = 1
  for i in 0..<b:
    if ((x shr i) and 1) == 1:
      mat[i][n] = 1
  for i in 0..<m:
    for j in (lrs[i][1] - 1)..(lrs[i][2] - 1):
      mat[b + i][j] = 1
    mat[b + i][n] = lrs[i][0]
  let rk = gauss(mat)
  if rk < 0:
    echo 0
  else:
    var
      ans: int64 = 1
      mo: int64 = 1000000000 + 7
    for _ in 0..<(n - rk):
      ans = ans * 2 mod mo
    echo ans
main()
0