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

Question

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

例如，我需要搜索单词“lollypop”在不包含单词“candy”的列表中出现的次数。

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

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

我尝试添加 StringFreeQ 来排除“candy”，并尝试添加 Nor ，其中需要添加 > 或者在字符串搜索中，但我不确定如何做到这一点/将其放在哪里/它们..？

基本上，我需要一个“this”而不是“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”在列表中出现的次数，该列表不包括“可修改”，则：

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

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

while

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

排除“plate”，因此该列表为 1。

但我对你的评论感到困惑（“此代码正在返回我正在运行其他搜索的列表的初步选择，因此我需要保持列表完整”哪个列表？上面的代码都保持完整）所以我一定还缺少一些东西。