結果

問題 No.1535 五七五
ユーザー eseharaesehara
提出日時 2021-06-09 23:16:40
言語 OCaml
(5.1.0)
結果
TLE  
実行時間 -
コード長 1,683 bytes
コンパイル時間 1,711 ms
コンパイル使用メモリ 19,968 KB
実行使用メモリ 43,664 KB
最終ジャッジ日時 2024-05-06 16:44:15
合計ジャッジ時間 5,304 ms
ジャッジサーバーID
(参考情報)
judge5 / judge1
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
6,816 KB
testcase_01 AC 2 ms
6,816 KB
testcase_02 AC 2 ms
6,944 KB
testcase_03 AC 1 ms
6,944 KB
testcase_04 TLE -
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 -- -
testcase_23 -- -
権限があれば一括ダウンロードができます

ソースコード

diff #

module Cp : sig
  val string_1_list_of_string: string -> string list
  val split_on_char: char -> string -> string list
  val read_int_list: unit -> int list
end =
struct
  let string_1_list_of_string x =
    String.to_seq x
    |> List.of_seq
    |> List.map (String.make 1);;

  let split_on_char sep s =
    (* from OCaml Standard Library 4.12 *)
    let r = ref [] in
    let j = ref (String.length s) in
    for i = String.length s - 1 downto 0 do
      if String.unsafe_get s i = sep then begin
        r := String.sub s (i + 1) (!j - i - 1) :: !r;
        j := i
      end
    done;
    String.sub s 0 !j :: !r;;

  let read_int_list () =
    read_line () |> split_on_char ' ' |> List.map int_of_string;;
end

let rec puyopuyo lst abc =
  match abc with
  | [] -> true
  | hd::tl ->
    match lst with
    | [] -> false
    | lhd::_ when hd < lhd -> false
    | lhd::ltl when hd = lhd -> puyopuyo ltl tl
    | lhd::ltl when hd > lhd -> puyopuyo ltl ((hd - lhd) :: tl)
    | _ -> failwith "WTF !!!! ( o____o ) !!!!"

let rec solve lst abc result =
  match lst with
  | [] -> failwith "WTF!!!"
  | _ when List.length lst < 3 -> result
  | _::tl ->
    if (puyopuyo lst abc)
    then solve tl abc (result + 1)
    else solve tl abc result;;

let rec start lst abc = solve lst abc 0;;

let rec length_of_string s =
  Cp.split_on_char ' ' s
  |> List.map String.length;;

let test_string = "kaeru pyoko pyoko mi pyoko pyoko awasete pyoko pyoko mu pyoko pyoko";;
let test_list = length_of_string test_string;;


let () =
  read_line () |> ignore;
  let abc = Cp.read_int_list () in
  let lst = length_of_string (read_line ()) in
  solve lst abc 0 |> print_int;
  print_newline ();;
0