Kiểm tra chuỗi con tại Ocaml

Question

Ai đó có thể giúp tôi trong việc mã hóa kiểm tra chuỗi con hiệu quả trong OCaml không? Cho hai chuỗi, kiểm tra xem chuỗi đầu tiên có chứa chuỗi thứ hai không?

Sử dụng mô-đun Str, chúng tôi có thể thực hiện việc này không?

Answer 1

Something như thế này có thể làm việc:

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

Dưới đây là một số xét nghiệm của hàm:

# 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