Submission #345767

---

Source Code Expand

let (|>) x f = f x

let explode s =
  let rec exp i l =
    if i < 0 then l else exp (i - 1) (s.[i] :: l) in
  exp (String.length s - 1) []

let solve s =
  let rec divide acc cs =
    match acc, cs with
    | (c,n) :: acs, x :: xs ->
        if c = x then divide ((c,n+1) :: acs) xs
        else divide ((x,1) :: acc) xs
    | [],  x :: xs -> divide ((x,1) :: acc) xs
    | _, _ -> List.rev acc
  in
  explode s
  |> divide []
  |> List.map (fun (c,n) -> Printf.sprintf "%c%d" c n)
  |> String.concat ""

let () =
  Scanf.scanf "%s " solve
  |> print_endline

Submission Info

Judge Result