RosettaCodeData/Task/Strip-comments-from-a-string/Standard-ML/strip-comments-from-a-strin...

8 lines
177 B
Standard ML

val stripComment =
let
val notMarker = fn #"#" => false | #";" => false | _ => true
open Substring
in
string o dropr Char.isSpace o takel notMarker o full
end