提出 #4317397

ソースコード 拡げる

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

提出情報

提出日時
問題 C - Monsters Battle Royale
ユーザ sk0
言語 OCaml (4.02.3)
得点 300
コード長 207 Byte
結果 AC
実行時間 34 ms
メモリ 5120 KiB

ジャッジ結果

セット名 All Sample
得点 / 配点 300 / 300 0 / 0
結果
AC × 21
AC × 3
セット名 テストケース
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
ケース名 結果 実行時間 メモリ
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