結果
| 問題 | No.135 とりあえず1次元の問題 |
| ユーザー |
 maimai8
|
| 提出日時 | 2020-08-18 14:59:47 |
| 言語 | OCaml (5.1.0) |
| 結果 |
TLE
|
| 実行時間 | - |
| コード長 | 706 bytes |
| コンパイル時間 | 236 ms |
| コンパイル使用メモリ | 21,704 KB |
| 実行使用メモリ | 20,588 KB |
| 最終ジャッジ日時 | 2024-04-17 09:10:39 |
| 合計ジャッジ時間 | 13,053 ms |
|
ジャッジサーバーID （参考情報） |
judge2 / judge4 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | TLE | - |
| testcase_01 | -- | - |
| testcase_02 | -- | - |
| testcase_03 | -- | - |
| testcase_04 | -- | - |
| testcase_05 | -- | - |
| testcase_06 | -- | - |
| testcase_07 | -- | - |
| testcase_08 | -- | - |
| testcase_09 | -- | - |
| testcase_10 | -- | - |
| testcase_11 | -- | - |
| testcase_12 | -- | - |
| testcase_13 | -- | - |
| testcase_14 | -- | - |
| testcase_15 | -- | - |
| testcase_16 | -- | - |
| testcase_17 | -- | - |
| testcase_18 | -- | - |
| testcase_19 | -- | - |
| testcase_20 | -- | - |
| testcase_21 | -- | - |
| testcase_22 | -- | - |
| evil01.txt | -- | - |
ソースコード
let () =
let rec unique_element list =
let rec _unique_element l s = match l with
| [] -> s
| first :: rest ->
if List.exists (fun e -> e = first) s then _unique_element rest s
else _unique_element rest (s @ [first])
in _unique_element list [] in
let n = Scanf.scanf "%d\n" (fun x -> x) in
let lst = Array.to_list (Array.init n (fun _ -> Scanf.scanf "%d " (fun x -> x))) in
let slst = unique_element (List.fast_sort compare lst) in
Printf.printf "%d\n"
(if List.length slst < 2 then 0
else fst (List.fold_left
(fun (ans, bfr) x -> if abs(bfr - x) < ans then (abs(bfr - x), x) else (ans, x))
(max_int, List.hd slst) (List.tl slst)))