Advertisement
Guest User

caml tp pasteur

a guest
Mar 22nd, 2016
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. let kmp u=
  2. let n = string_length u in
  3. let l = make_vect n 0 in
  4. for i=2 to (n-1) do
  5.     let j = ref (i-1) in
  6.     while (!j>0 && u.[l.(!j)]!=u.[i]) do
  7.         j := l.(!j)
  8.     done;
  9.     if u.[l.(!j)]=u.[i] then l.(i) <- l.(!j)+1
  10.     done;
  11. l;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement