Ocaml中的子串检查

Question

有人可以帮我编写OCaml中有效的子字符串检查吗？给定两个字符串，检查第一个字符串是否包含第二个字符串？

使用Str模块，我们可以这样做吗？

Answer 1

这样的事可能有用：

let contains s1 s2 =
    let re = Str.regexp_string s2
    in
        try ignore (Str.search_forward re s1 0); true
        with Not_found -> false

以下是该功能的一些测试：

# contains "abcde" "bc";;
- : bool = true
# contains "abcde" "bd";;
- : bool = false
# contains "abcde" "b.";;
- : bool = false
# contains "ab.de" "b.";;
- : bool = true

Answer 2

let contains_substring search target =
    String.substr_index search target <> None