R: find index of (best/incompletely) matching elements in two lists

Question

I have two lists of character vectors called three_letters and four_letters defined as:

three_letters <- replicate(sample(letters, size =