Advertisement
Guest User

Untitled

a guest
Sep 1st, 2015
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.15 KB | None | 0 0
  1. Do[
  2. If[SameQ[v1[[i]], o1[[y]]],
  3. v2[[i]] = o2[[y]];
  4. y++,
  5. If[v1[[i]] < o1[[y]],
  6. v2[[i]] = o2[[y - 1]],
  7. y++]],
  8. {i, 1, Length[v1]}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement