結果

問題 No.2961 Shiny Monster Master
ユーザー ducktail
提出日時 2024-11-17 20:55:23
言語 OCaml
(5.2.1)
結果
TLE  
実行時間 -
コード長 519 bytes
コンパイル時間 1,738 ms
コンパイル使用メモリ 21,704 KB
実行使用メモリ 33,408 KB
最終ジャッジ日時 2024-11-17 20:57:34
合計ジャッジ時間 124,183 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 39 TLE * 38
権限があれば一括ダウンロードができます

ソースコード

diff # 

open Printf
open Scanf

let solve rr la l r =
  let f x a = if x < a then 0 else (x - a) / rr + 1 in
  List.map (fun a -> f r a - f (l - 1) a) la |> List.fold_left (+) 0

let () =
  let id x = x in
  scanf "%d %d " (fun rr n ->
      let la = List.init n (fun _ -> scanf "%d " id) in
      let q = scanf "%d " id in
      let rec loop i =
        if i = 0 then ()
        else begin
            scanf "%d %d " (fun l r -> printf "%d\n" @@ solve rr la l r) ;
            loop (i - 1)
          end in
      loop q
    )
0