trie <- trie(keys = c("afford", "affair", "available", "binary", "bind", "blind"),
values = c("afford", "affair", "available", "binary", "bind", "blind"))
longest_match(trie, "binder")
Run the code above in your browser using DataLab