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 |
|
|
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 |