Submission #642817

Source Code Expand

let _ =
  let n = float_of_string (read_line ()) in
  let ftoi = int_of_float in
  let f x = (1.0 +. n) *. (n /. 2.0) in
  print_int (ftoi ((f n) *. 10000.0 *. (1. /. n)));
  print_newline ()

Submission Info

Submission Time
Task A - AtCoder社の給料
User lambdasawa
Language OCaml (3.12.1)
Score 100
Code Size 198 Byte
Status AC
Exec Time 25 ms
Memory 972 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 14
Set Name Test Cases
All 00_sample_01.txt, 00_sample_02.txt, test_100.txt, test_14.txt, test_29.txt, test_4.txt, test_42.txt, test_48.txt, test_54.txt, test_59.txt, test_71.txt, test_72.txt, test_84.txt, test_96.txt
Case Name Status Exec Time Memory
00_sample_01.txt AC 25 ms 928 KB
00_sample_02.txt AC 24 ms 928 KB
test_100.txt AC 24 ms 924 KB
test_14.txt AC 23 ms 924 KB
test_29.txt AC 24 ms 928 KB
test_4.txt AC 24 ms 924 KB
test_42.txt AC 25 ms 928 KB
test_48.txt AC 22 ms 920 KB
test_54.txt AC 24 ms 928 KB
test_59.txt AC 25 ms 864 KB
test_71.txt AC 25 ms 972 KB
test_72.txt AC 24 ms 920 KB
test_84.txt AC 24 ms 928 KB
test_96.txt AC 24 ms 924 KB