Submission #1867577

---

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
      match try
              Some ( String.index_from s pos c )
        with Not_found -> None
      with
          Some pos2 ->
            if pos2 = pos then iter (pos+1) ("" :: to_rev) else
              iter (pos2+1) ((String.sub s pos (pos2-pos)) :: to_rev)
        | None -> List.rev ( String.sub s pos (len-pos) :: to_rev )
  in
  iter 0 [];;

let concat ls = List.fold_left (fun x y -> x ^ y) "" ls;;

let calc ks =
  let rec iter ks = 
    match ks with
    | [] -> []
    | x0 :: [] -> [x0]
    | x0 :: x1 :: xs -> (min x0 x1) :: (iter (x1 :: xs)) in
  match ks with
  | [] -> []
  | x :: _ -> iter (x :: ks);;

let n = int_of_string (input_line stdin);;

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

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

Submission Info

Judge Result