結果

問題 No.147 試験監督（2）
ユーザー yuppe19 😺yuppe19 😺
提出日時 2015-09-07 23:32:21
言語 Nim
(2.0.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,314 bytes
コンパイル時間 804 ms
コンパイル使用メモリ 65,728 KB
最終ジャッジ日時 2024-04-27 02:09:58
合計ジャッジ時間 1,440 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(11, 16) Error: type mismatch
Expression: <p
  [1] p: int

Expected one of (first mismatch at [position]):
[1] proc `<`(x, y: bool): bool
[1] proc `<`(x, y: char): bool
[1] proc `<`(x, y: float): bool
[1] proc `<`(x, y: float32): bool
[1] proc `<`(x, y: int16): bool
[1] proc `<`(x, y: int32): bool
[1] proc `<`(x, y: int8): bool
[1] proc `<`(x, y: pointer): bool
[1] proc `<`(x, y: string): bool
[1] proc `<`(x, y: uint): bool
[1] proc `<`(x, y: uint16): bool
[1] proc `<`(x, y: uint32): bool
[1] proc `<`(x, y: uint64): bool
[1] proc `<`(x, y: uint8): bool
[1] proc `<`[Enum: enum](x, y: Enum): bool
[1] proc `<`[T: tuple](x, y: T): bool
[1] proc `<`[T](x, y: ptr T): bool
[1] proc `<`[T](x, y: ref T): bool
[1] proc `<`[T](x, y: set[T]): bool
[2] proc `<`(x, y: int): bool
[2] proc `<`(x, y: int64): bool

ソースコード

diff # 

import strutils, sequtils

const MOD = int(1e9) + 7

proc matmul(a: var seq[seq[int]], b: var seq[seq[int]]): seq[seq[int]] =
  var
    p = a.len
    q = b[0].len
    r = b.len
  result = newSeqWith(p, newSeq[int](q))
  for i in 0.. <p:
    for k in 0.. <r:
      for j in 0.. <q:
         result[i][j] += a[i][k] * b[k][j] mod MOD
         result[i][j] = result[i][j] mod MOD

proc matpow(a: var seq[seq[int]], n: var int): seq[seq[int]] =
  var p = a.len
  result = newSeqWith(p, newSeq[int](p))
  for i in 0.. <p:
    for j in 0.. <p:
      result[i][j] = if i==j: 1 else: 0
  while n > 0:
    if (n and 1) == 1: result = matmul(result, a)
    a = matmul(a, a)
    n = n shr 1

proc to_modint(s: string, md: int): int =
  result = 0
  var n = s.len
  for i in 0.. <n:
    result = (result * 10 + (s[i].ord - '0'.ord)) mod md
  if result == 0:
    result = md - 1

proc mod_pow(a: var int, n: var int, md: int): int =
  result = 1
  while n > 0:
    if (n and 1) == 1: result = result * a mod md
    a = a * a mod md
    n = n shr 1

var
  n = stdin.readLine.parseInt
  res = 1

for i in 0.. <n:
  var
    cd = stdin.readLine.split
    c = cd[0].parseInt + 1
    d = cd[1].to_modint(MOD - 1)
    mat = @[@[1, 1], @[1, 0]]
    x = matpow(mat, c)[0][0]
    z = mod_pow(x, d, MOD)
  res = res * z mod MOD

echo res
0