Submission #1103562


Source Code Expand

let () = Scanf.scanf "%d %d" (fun a b ->
  print_endline
    begin match compare ((a + 11) mod 13) ((b + 11) mod 13) with
    | 1 -> "Alice"
    | 0 -> "Draw"
    | -1 -> "Bob"
    end)

Submission Info

Submission Time
Task A - One Card Poker
User fetburner
Language OCaml (4.02.3)
Score 100
Code Size 191 Byte
Status AC
Exec Time 1 ms
Memory 2432 KB

Compile Error

File "./Main.ml", line 3, characters 4-131:
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a value that is not matched:
2

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt
Case Name Status Exec Time Memory
sample_01.txt AC 1 ms 384 KB
sample_02.txt AC 1 ms 384 KB
sample_03.txt AC 1 ms 384 KB
subtask_1_01.txt AC 1 ms 384 KB
subtask_1_02.txt AC 1 ms 384 KB
subtask_1_03.txt AC 1 ms 384 KB
subtask_1_04.txt AC 1 ms 384 KB
subtask_1_05.txt AC 1 ms 2432 KB
subtask_1_06.txt AC 1 ms 384 KB
subtask_1_07.txt AC 1 ms 384 KB