Submission #1867610

---

Source Code Expand

(* split a string [s] at every char [c], and return the list of sub-strings *)
let split s c =
  let len = String.length s in
  let rec iter pos to_rev =
    if pos = len then List.rev ("" :: to_rev) else
      try
        let pos2 = String.index_from s pos c in
        if pos2 = pos then iter (pos+1) ("" :: to_rev) else
          iter (pos2+1) ((String.sub s pos (pos2-pos)) :: to_rev)
      with Not_found -> List.rev ( String.sub s pos (len-pos) :: to_rev )
  in
  iter 0 [];;

let calc_opt ks =
  let rec iter ks = 
    match ks with
    | [] -> ()
    | x0 :: xs ->
       try
         let x1 = List.hd xs in
         let () = print_string ((string_of_int (min x0 x1)) ^ " ") in iter xs
       with
       | _ -> print_endline (string_of_int x0 ^ " ")
  in
  match ks with
  | [] -> ()
  | x :: _ -> iter (x :: ks);;

(* let n = int_of_string (input_line stdin);; *)

let _ = input_line stdin;;

let ks = List.map int_of_string (split (input_line stdin) ' ');;

calc_opt ks;;

(* let concat ls = List.fold_left (fun x y -> x ^ y) "" ls;;
 * 
 * let calc ks =
 *   let rec iter ks = 
 *     match ks with
 *     | [] -> []
 *     | x0 :: xs ->
 *        try
 *          let x1 = List.hd xs in (min x0 x1) :: (iter xs)
 *        with
 *        | _ -> [x0] in
 *   match ks with
 *   | [] -> []
 *   | x :: _ -> iter (x :: ks);; *)

(* calc ks
 * |> List.map (fun x -> (string_of_int x) ^ " ")
 * |> concat
 * |> print_endline;; *)

Submission Info

Judge Result