Strip a set of characters from a string: Difference between revisions

Content added Content deleted

Inline

@@ Line 20: / Line 20: @@
   let rec aux i j =
     if i >= len then String.sub res 0 j
-    else match String.contains cs s.[i] with
+    else if String.contains cs s.[i] then
-    | true ->
+      aux (succ i) (j)
+    else begin
-        aux (succ i) (j)
-    | false ->
+      res.[j] <- s.[i];
-        res.[j] <- s.[i];
+      aux (succ i) (succ j)
+    end
-        aux (succ i) (succ j)
   in
   aux 0 0</lang>