/lessons/goodies.ml
http://github.com/cago/tryocaml · OCaml · 9 lines · 9 code · 0 blank · 0 comment · 2 complexity · 00b40fedfd73813b3bf993db754d7637 MD5 · raw file
- let find_in good_input input =
- try
- let len = String.length good_input in
- for i = 0 to String.length input - len do
- if String.sub input i len = good_input then
- raise Exit
- done;
- false
- with Exit -> true