Submission #2711743

Source Code Expand

open Batteries
open Printf
let () =
  let n,m = Scanf.scanf "%d %d " (fun a b -> a,b) in

  let fn = float_of_int (n mod 12) in
  let fm = float_of_int m in
  let ma = fm /. 60. *. 360. in
  let na = (fn /. 12. *. 360.) +. ma /. 12. in

  let ans = abs_float (na -. ma) in
  let ans = if ans > 180. then 360. -. ans else ans in

  Printf.printf "%f\n" @@ ans

Submission Info

Submission Time
Task B - 時計盤
User nasuch
Language OCaml (4.02.3)
Score 100
Code Size 373 Byte
Status AC
Exec Time 2 ms
Memory 3072 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 35
Set Name Test Cases
Sample subtask0_1.txt, subtask0_2.txt, subtask0_3.txt, subtask0_4.txt
All 0.txt, 1.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 2.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 3.txt, 30.txt, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, 9.txt, subtask0_1.txt, subtask0_2.txt, subtask0_3.txt, subtask0_4.txt
Case Name Status Exec Time Memory
0.txt AC 2 ms 1024 KB
1.txt AC 2 ms 1024 KB
10.txt AC 2 ms 1024 KB
11.txt AC 2 ms 1024 KB
12.txt AC 2 ms 1024 KB
13.txt AC 2 ms 1024 KB
14.txt AC 2 ms 1024 KB
15.txt AC 2 ms 1024 KB
16.txt AC 2 ms 1024 KB
17.txt AC 2 ms 3072 KB
18.txt AC 2 ms 1024 KB
19.txt AC 2 ms 1024 KB
2.txt AC 2 ms 1024 KB
20.txt AC 2 ms 1024 KB
21.txt AC 2 ms 1024 KB
22.txt AC 2 ms 1024 KB
23.txt AC 2 ms 1024 KB
24.txt AC 2 ms 1024 KB
25.txt AC 2 ms 1024 KB
26.txt AC 2 ms 1024 KB
27.txt AC 2 ms 1024 KB
28.txt AC 2 ms 3072 KB
29.txt AC 2 ms 1024 KB
3.txt AC 2 ms 1024 KB
30.txt AC 2 ms 1024 KB
4.txt AC 2 ms 1024 KB
5.txt AC 2 ms 1024 KB
6.txt AC 2 ms 1024 KB
7.txt AC 2 ms 1024 KB
8.txt AC 2 ms 1024 KB
9.txt AC 2 ms 1024 KB
subtask0_1.txt AC 2 ms 1024 KB
subtask0_2.txt AC 2 ms 1024 KB
subtask0_3.txt AC 2 ms 1024 KB
subtask0_4.txt AC 2 ms 1024 KB