/lessons/goodies.ml

1let find_in good_input input =
2  try
3    let len = String.length good_input in
4    for i = 0 to String.length input - len  do
5      if String.sub input i len = good_input then
6        raise Exit
7    done;
8    false
9  with Exit -> true