結果

問題 No.487 2017 Calculation(2017の計算)
ユーザー hebiyanhebiyan
提出日時 2017-05-23 15:26:21
言語 OCaml
(5.1.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 433 bytes
コンパイル時間 240 ms
コンパイル使用メモリ 16,880 KB
最終ジャッジ日時 2023-07-30 07:04:02
合計ジャッジ時間 765 ms
ジャッジサーバーID
(参考情報)
judge12 / judge5
このコードへのチャレンジ(β)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
File "Main.ml", line 3, characters 2-32:
3 |   Big_int.power_int_positive_int n m
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: Unbound module Big_int

ソースコード

diff #

let pow n m =
  Big_int.power_int_positive_int n m

let big_add n m = Big_int.add_int_big_int m n

let big_mod n m = Big_int.mod_big_int n (Big_int.big_int_of_int m)

let answer m = Big_int.string_of_big_int
                 (big_mod (big_add (pow 2017 4034) 2017) m)

let () = Scanf.sscanf (read_line ()) "%d"
                      (fun m ->
                       print_string (answer m);
                       print_string "\n")
0