結果
問題 | No.526 フィボナッチ数列の第N項をMで割った余りを求める |
ユーザー |
![]() |
提出日時 | 2017-08-17 15:24:05 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 94 ms / 2,000 ms |
コード長 | 228 bytes |
コンパイル時間 | 379 ms |
コンパイル使用メモリ | 21,704 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 00:25:32 |
合計ジャッジ時間 | 1,305 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 12 |
ソースコード
let fib (n, m) = if n < 2 then 0 else let rec doit i x y = if i = n then x else doit (i + 1) y ((x + y) mod m) in doit 2 1 1 let () = Scanf.scanf "%d %d " (fun n m -> n, m) |> fib |> Printf.printf "%d\n"