shubhamkumar13 · October 12, 2020 00:51
diff --git a/str_to_strlst.ml b/str_to_strlst.ml
 let str_to_strlst = fun str ->
  let rec loop = fun acc str ->
  match String.head str with
  | Some(x) when x = ',' -> loop acc (tail str)
  | Some(x) -> loop (x :: acc) (tail str)
  | None -> acc in
  loop [] str |> List.map (Printf.sprintf "%c") |> List.rev
	let str_to_strlst = fun str ->
	let rec loop = fun acc str ->
	match String.head str with
	\| Some(x) when x = ',' -> loop acc (tail str)
	\| Some(x) -> loop (x :: acc) (tail str)
	\| None -> acc in
	loop [] str \|> List.map (Printf.sprintf "%c") \|> List.rev
No results found