RosettaCodeData/Task/Strip-comments-from-a-string/OCaml/strip-comments-from-a-string-2.ml

let strip_comments =
  let print = ref true in
  String.iter (function
    | ';' | '#' -> print := false
    | '\n' -> print_char '\n'; print := true
    | c -> if !print then print_char c)
Initial data commit 2023-07-01 11:58:00 -04:00			`let strip_comments =`
			`let print = ref true in`
			`String.iter (function`
			`\| ';' \| '#' -> print := false`
			`\| '\n' -> print_char '\n'; print := true`
			`\| c -> if !print then print_char c)`