結果
問題 | No.29 パワーアップ |
ユーザー |
|
提出日時 | 2020-09-15 16:04:47 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 435 bytes |
コンパイル時間 | 585 ms |
コンパイル使用メモリ | 21,700 KB |
実行使用メモリ | 6,824 KB |
最終ジャッジ日時 | 2024-10-09 02:04:30 |
合計ジャッジ時間 | 1,464 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 22 |
ソースコード
let () = let arr = Array.make 10 0 in Scanf.scanf "%d\n" @@ fun n -> for i = 0 to n - 1 do Scanf.scanf "%d %d %d\n" @@ fun a b c -> arr.(a-1) <- arr.(a-1)+1; arr.(b-1) <- arr.(b-1)+1; arr.(c-1) <- arr.(c-1)+1 done; let ans = ref 0 in for i = 0 to 9 do if arr.(i) >= 2 then (ans := !ans + arr.(i) / 2; arr.(i) <- arr.(i) mod 2) done; let n = Array.fold_left (+) 0 arr in Printf.printf "%d\n" (!ans + n / 4)