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

String.exists

Answer 3

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