結果
問題 |
No.716 距離
|
ユーザー |
|
提出日時 | 2020-07-24 13:34:49 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 3 ms / 2,000 ms |
コード長 | 386 bytes |
コンパイル時間 | 419 ms |
コンパイル使用メモリ | 21,448 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 01:50:08 |
合計ジャッジ時間 | 1,689 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 40 |
ソースコード
let () = Scanf.scanf "%d\n" @@ fun n -> let arr = Array.init n @@ fun i -> Scanf.scanf "%d " @@ fun d -> (i, d) in let minN = Array.fold_left (fun (ans, bfr) (i, n) -> if i = 0 then (ans, n) else if ans > n - bfr then (n-bfr, n) else (ans, n)) (max_int, snd arr.(0)) arr in let maxN = (snd arr.(n-1)) - (snd arr.(0)) in Printf.printf "%d\n%d\n" (fst minN) maxN