When I try to figure out this problemthis problem,I write such code:
words = Catenate[ WordList[#, Language -> "English", IncludeInflections -> True] & /@ {"KnownWords", "Stopwords"}]; string = StringReplace[ "What is the best approach to a problem like this in Mathematica?", " " -> ""]; StringCases[string, __?(MemberQ[words, ToLowerCase[#]] &)] {"WhatisthebestapproachtoaproblemlikethisinMathematica"}
But I am confused why I get whole string?What's mistake I have made?