結果
問題 | No.29 パワーアップ |
ユーザー |
![]() |
提出日時 | 2017-08-10 12:42:16 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 3 ms / 5,000 ms |
コード長 | 500 bytes |
コンパイル時間 | 238 ms |
コンパイル使用メモリ | 21,572 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 00:07:57 |
合計ジャッジ時間 | 1,030 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 22 |
ソースコード
let () = let n = Scanf.scanf "%d " (fun i -> i) in let t = Array.make 10 0 in for i = 0 to n - 1 do let a, b, c = Scanf.scanf "%d %d %d " (fun a b c -> a, b, c) in let a, b, c = a - 1, b - 1, c - 1 in t.(a) <- t.(a) + 1; t.(b) <- t.(b) + 1; t.(c) <- t.(c) + 1; done; let cnt = ref 0 in for i = 0 to 9 do if t.(i) >= 2 then begin cnt := !cnt + t.(i) / 2; t.(i) <- t.(i) mod 2; end done; Array.fold_left (+) 0 t / 4 + !cnt |> Printf.printf "%d\n"