結果

問題 No.487 2017 Calculation(2017の計算)
コンテスト
ユーザー hebiyan
提出日時 2017-05-23 15:26:21
言語 OCaml
(5.2.1)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 433 bytes
コンパイル時間 84 ms
コンパイル使用メモリ 17,024 KB
最終ジャッジ日時 2024-11-14 20:01:08
合計ジャッジ時間 473 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

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

ソースコード

diff #
raw source code 

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