Submission #536366

Source Code Expand

let (a, b, c, d) = Scanf.scanf "%d %d %d %d\n" (fun a b c d -> (a, b, c, d)) (* 入力 *)

let (e, f) = (float_of_int(b) /. float_of_int(a), float_of_int(d) /. float_of_int(c))

let _ = if e = f then print_string "DRAW\n"
        else if e > f then print_string "TAKAHASHI\n"
        else print_string "AOKI\n"

Submission Info

Submission Time
Task A - 勝率計算
User jtwp470
Language OCaml (4.02.1)
Score 100
Code Size 318 Byte
Status AC
Exec Time 110 ms
Memory 1060 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 33
Set Name Test Cases
Sample subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.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, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, 9.txt, subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt
Case Name Status Exec Time Memory
0.txt AC 25 ms 1052 KB
1.txt AC 23 ms 1056 KB
10.txt AC 23 ms 864 KB
11.txt AC 110 ms 876 KB
12.txt AC 25 ms 1060 KB
13.txt AC 23 ms 1052 KB
14.txt AC 25 ms 1056 KB
15.txt AC 25 ms 860 KB
16.txt AC 24 ms 1052 KB
17.txt AC 25 ms 972 KB
18.txt AC 25 ms 1044 KB
19.txt AC 25 ms 928 KB
2.txt AC 25 ms 1056 KB
20.txt AC 22 ms 1056 KB
21.txt AC 24 ms 1048 KB
22.txt AC 23 ms 928 KB
23.txt AC 23 ms 1060 KB
24.txt AC 23 ms 1056 KB
25.txt AC 23 ms 1052 KB
26.txt AC 28 ms 928 KB
27.txt AC 25 ms 1052 KB
28.txt AC 26 ms 936 KB
29.txt AC 24 ms 932 KB
3.txt AC 26 ms 1048 KB
4.txt AC 24 ms 928 KB
5.txt AC 26 ms 928 KB
6.txt AC 25 ms 924 KB
7.txt AC 24 ms 1048 KB
8.txt AC 23 ms 1036 KB
9.txt AC 25 ms 1048 KB
subtask0_sample_01.txt AC 24 ms 932 KB
subtask0_sample_02.txt AC 23 ms 1052 KB
subtask0_sample_03.txt AC 25 ms 928 KB