結果

問題 No.526 フィボナッチ数列の第N項をMで割った余りを求める
ユーザー Crystal
提出日時 2024-10-05 00:14:57
言語 Crystal
(1.22.1 + ACL)
コンパイル:
crystal build -Donline_judge -o a.out --release --no-debug _filename_
実行:
./a.out
結果
AC  
実行時間 2 ms / 2,000 ms
+ 219µs
コード長 458 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 12,852 ms
コンパイル使用メモリ 336,728 KB
実行使用メモリ 9,848 KB
最終ジャッジ日時 2026-11-04 03:13:46
合計ジャッジ時間 11,900 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 13
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

def fib_rec(a, b, p, q, count, m) : UInt128
  if count == 0_u128
    return b % m
  elsif count.even?
    fib_rec(a, b, (p * p + q * q) % m, (2_u128 * p * q + q * q) % m, count // 2_u128, m)
  else
    fib_rec((b * q + a * q + a * p) % m, (b * p + a * q) % m, p, q, count - 1_u128, m)
  end
end

def fib(n, m) : UInt128
  fib_rec(1_u128, 0_u128, 0_u128, 1_u128, n, m)
end

def main
  n, m = read_line.split.map(&.to_u128)
  puts fib(n - 1_u128, m)
end

main
0