我有一个像下面这样的单词列表：
a <-c ("swipe","swiped", "electric", "blower", "shock", "wipe", "capacitor", "resistor")
我有一个这样的句子需要拆分：
b <- c("swipedshockelectricwipeblower")
我需要以下输出：
c <- ("swiped", "shock", "electric", "wipe", "blower")
而且我不需要下面的输出（因为在单词列表中同时有滑动和滑动）
c_wrong <- ("swipe", "d", "shock", "electric", "wipe", "blower")