結果
問題 |
No.182 新規性の虜
|
ユーザー |
|
提出日時 | 2016-10-20 23:12:37 |
言語 | OCaml (5.2.1) |
結果 |
TLE
|
実行時間 | - |
コード長 | 569 bytes |
コンパイル時間 | 318 ms |
コンパイル使用メモリ | 19,700 KB |
実行使用メモリ | 20,264 KB |
最終ジャッジ日時 | 2024-10-08 23:53:22 |
合計ジャッジ時間 | 6,989 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 5 TLE * 1 -- * 21 |
ソースコード
let group_by cmp lst = let rec group_by' lst result = match lst with | [] -> result | x::xs -> let value = cmp x in let lst1, lst2 = List.partition (fun v -> value = cmp v) lst in group_by' lst2 ((value, lst1)::result) in group_by' lst [] let id x = x let () = let _ = read_line () in let alst = read_line () |> Str.split (Str.regexp_string " ") in group_by id alst |> List.map (fun (key, vlst) -> List.length vlst) |> List.filter (( = ) 1) |> List.length |> print_int; print_newline ()