Mathematica - 从字符串搜索中排除字符串

Question

我正在尝试选择表格中出现频率最高的关键词。 我需要在列表中搜索不包含给定的第二个、第三个、第四个等单词的单词的出现次数。

例如，我需要搜索“棒棒糖”一词出现在不包含“糖果”一词的列表中的次数。

此代码将返回单词“lollypop”出现的次数：

rt = Parallelize@
 Cases[MemoizeTable["Candy_table.txt"], 
  x_List /; 
   MemberQ[x, 
    s_String /; 
     StringMatchQ[s, ("*lollypop*"), IgnoreCase -> True]], {1}];

我尝试添加StringFreeQ 以排除“糖果”，并尝试添加Nor，其中有人会在字符串搜索中添加Or，但我不知道该怎么做/放在哪里/他们..？

基本上，我需要一个"this" BUT NOT "that" 代码。

Answer 1

excludeList = {"candy", "other"};
toCount = "lollypop";

numberOfToCount[list_, tocount_, excludeList_] := 
  If[And @@ ((! MemberQ[list, #]) & /@ excludeList), 
     Count[list, tocount], 
     "Excluded"];

用法：

numberOfToCount[{"lollypop", "lollypop", "the beatles"}, toCount, excludeList]
numberOfToCount[{"lollypop", "lollypop", "candy"}, toCount, excludeList]

(*
-> 2
-> Excluded
*)

Answer 2

要获取单词，请尝试例如

dl = DictionaryLookup[];

Select[dl, 
 StringFreeQ[#, ___ ~~ "ies" ~~ ___] && 
 StringMatchQ[#, ___ ~~ "loll" ~~ ___] &]
 (*
 -> {"loll", "lolled", "lolling", "lollipop", "lollipops", "lollop", "lolloped", "lolloping", "lollops", "lolls", "lolly"}
 *)

您可以通过在末尾添加//Count 来计算它们（比如说）。

编辑：看来我误解了你的问题。如果您要问的是：计算“canapes”出现在列表中的次数，该列表不包括“modifiable”，那么：

dl2 = {"titivation", "curving", "doppelgangers", "objurgations", 
"canapes", "invaluable", "modifiable", "dissect", "ominousness", 
"sentinel"}

If[Not@MemberQ[dl2, "modifiable"], Count[dl2, "canapes"], False]
(*
-> False
*)

同时

If[Not@MemberQ[dl2, "plate"], Count[dl2, "canapes"], False]

不包括“盘子”，因此此列表为 1。

但是我对您的 cmets 感到困惑（“此代码正在返回我正在运行其他搜索的列表的初步选择，所以我需要保持列表完整”哪个列表？它们都由上面的代码）所以我一定还是遗漏了一些东西。