Optimise `MatchNodes()`

[ms609]

This is a major bottleneck on Preordering a tree with node labels.
Example file

trees <- read.tree("1-all_genetrees.txt")
profvis::profvis(trees <- Preorder(trees))