提出 #4123688

ソースコード 拡げる

let () =
  let pow b e = int_of_float @@ (float_of_int b) ** (float_of_int e) in
  let mean (n, m) =
    (pow 2 m) * (1900 * m + 100 * (n - m))
  and input = Scanf.scanf "%d %d" (fun n m -> (n, m))
  and println str = print_string (str ^ "\n")
  in
    println @@ string_of_int @@ mean input;;

提出情報

提出日時
問題 C - HSI
ユーザ nobita0918
言語 OCaml (4.02.3)
得点 300
コード長 302 Byte
結果 AC
実行時間 1 ms
メモリ 384 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 300 / 300
結果
AC × 3
AC × 14
セット名 テストケース
Sample example_0, example_1, example_2
All example_0, example_1, example_2, handmade_0, rand_0, rand_1, rand_2, rand_3, rand_4, rand_5, rand_6, rand_7, rand_8, rand_9
ケース名 結果 実行時間 メモリ
example_0 AC 1 ms 384 KiB
example_1 AC 1 ms 384 KiB
example_2 AC 1 ms 384 KiB
handmade_0 AC 1 ms 384 KiB
rand_0 AC 1 ms 384 KiB
rand_1 AC 1 ms 384 KiB
rand_2 AC 1 ms 384 KiB
rand_3 AC 1 ms 384 KiB
rand_4 AC 1 ms 384 KiB
rand_5 AC 1 ms 384 KiB
rand_6 AC 1 ms 384 KiB
rand_7 AC 1 ms 384 KiB
rand_8 AC 1 ms 384 KiB
rand_9 AC 1 ms 384 KiB