Submission #4317397

Source Code Expand

let rec gcd m n = match m,n with | m,0 -> m | m,n -> gcd n (m mod n);;
Scanf.(Array.(scanf " %d" @@ fun n ->
  let a = init n (fun _ -> scanf " %d" @@ fun v -> v)
  in print_int @@ fold_left gcd a.(0) a))

Submission Info

Submission Time
Task C - Monsters Battle Royale
User sk0
Language OCaml (4.02.3)
Score 300
Code Size 207 Byte
Status AC
Exec Time 34 ms
Memory 5120 KiB

Judge Result

Set Name All Sample
Score / Max Score 300 / 300 0 / 0
Status
AC × 21
AC × 3
Set Name Test Cases
All 0_random_1, 0_random_2, 0_random_3, 0_random_4, 1_normal_1, 1_normal_2, 1_normal_3, 1_normal_4, 1_normal_5, 1_normal_6, 2_corner_1, 2_corner_2, 2_corner_3, 2_corner_4, 2_corner_5, 2_corner_6, 2_corner_7, 2_corner_8, sample_01, sample_02, sample_03
Sample sample_01, sample_02, sample_03
Case Name Status Exec Time Memory
0_random_1 AC 22 ms 4736 KiB
0_random_2 AC 34 ms 4864 KiB
0_random_3 AC 1 ms 384 KiB
0_random_4 AC 1 ms 384 KiB
1_normal_1 AC 9 ms 2816 KiB
1_normal_2 AC 24 ms 3200 KiB
1_normal_3 AC 34 ms 5120 KiB
1_normal_4 AC 34 ms 3456 KiB
1_normal_5 AC 1 ms 384 KiB
1_normal_6 AC 1 ms 384 KiB
2_corner_1 AC 32 ms 5120 KiB
2_corner_2 AC 33 ms 3456 KiB
2_corner_3 AC 1 ms 384 KiB
2_corner_4 AC 33 ms 5120 KiB
2_corner_5 AC 32 ms 3456 KiB
2_corner_6 AC 11 ms 4736 KiB
2_corner_7 AC 11 ms 2944 KiB
2_corner_8 AC 16 ms 3072 KiB
sample_01 AC 1 ms 384 KiB
sample_02 AC 1 ms 384 KiB
sample_03 AC 1 ms 384 KiB