結果

問題 No.2961 Shiny Monster Master
ユーザー ducktailducktail
提出日時 2024-11-17 20:55:23
言語 OCaml
(5.1.0)
結果
TLE  
実行時間 -
コード長 519 bytes
コンパイル時間 1,738 ms
コンパイル使用メモリ 21,704 KB
実行使用メモリ 33,408 KB
最終ジャッジ日時 2024-11-17 20:57:34
合計ジャッジ時間 124,183 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
13,640 KB
testcase_01 AC 6 ms
13,640 KB
testcase_02 AC 2 ms
13,644 KB
testcase_03 AC 5 ms
13,764 KB
testcase_04 AC 2 ms
13,772 KB
testcase_05 AC 800 ms
19,616 KB
testcase_06 AC 183 ms
15,136 KB
testcase_07 AC 1,540 ms
27,648 KB
testcase_08 TLE -
testcase_09 AC 31 ms
22,816 KB
testcase_10 TLE -
testcase_11 TLE -
testcase_12 TLE -
testcase_13 AC 21 ms
13,768 KB
testcase_14 TLE -
testcase_15 TLE -
testcase_16 AC 306 ms
15,652 KB
testcase_17 TLE -
testcase_18 TLE -
testcase_19 TLE -
testcase_20 TLE -
testcase_21 TLE -
testcase_22 AC 60 ms
14,752 KB
testcase_23 TLE -
testcase_24 TLE -
testcase_25 TLE -
testcase_26 TLE -
testcase_27 AC 883 ms
20,136 KB
testcase_28 AC 262 ms
20,256 KB
testcase_29 AC 333 ms
15,396 KB
testcase_30 AC 668 ms
22,692 KB
testcase_31 TLE -
testcase_32 TLE -
testcase_33 TLE -
testcase_34 TLE -
testcase_35 TLE -
testcase_36 AC 944 ms
15,008 KB
testcase_37 TLE -
testcase_38 AC 1,558 ms
15,780 KB
testcase_39 TLE -
testcase_40 TLE -
testcase_41 AC 179 ms
13,764 KB
testcase_42 TLE -
testcase_43 AC 356 ms
13,988 KB
testcase_44 TLE -
testcase_45 AC 1 ms
13,768 KB
testcase_46 TLE -
testcase_47 TLE -
testcase_48 AC 123 ms
13,860 KB
testcase_49 AC 1,335 ms
15,776 KB
testcase_50 TLE -
testcase_51 TLE -
testcase_52 AC 907 ms
18,980 KB
testcase_53 AC 389 ms
16,676 KB
testcase_54 AC 265 ms
15,396 KB
testcase_55 TLE -
testcase_56 TLE -
testcase_57 AC 484 ms
25,856 KB
testcase_58 AC 1,553 ms
16,800 KB
testcase_59 AC 1,077 ms
33,408 KB
testcase_60 TLE -
testcase_61 AC 1,748 ms
11,136 KB
testcase_62 TLE -
testcase_63 TLE -
testcase_64 AC 119 ms
13,184 KB
testcase_65 TLE -
testcase_66 AC 2 ms
6,820 KB
testcase_67 AC 4 ms
6,816 KB
testcase_68 AC 3 ms
6,816 KB
testcase_69 AC 3 ms
6,816 KB
testcase_70 AC 3 ms
6,816 KB
testcase_71 AC 2 ms
6,816 KB
testcase_72 AC 3 ms
6,816 KB
testcase_73 AC 4 ms
6,816 KB
testcase_74 TLE -
testcase_75 TLE -
testcase_76 TLE -
権限があれば一括ダウンロードができます

ソースコード

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