(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 41001, 1055] NotebookOptionsPosition[ 37266, 958] NotebookOutlinePosition[ 39031, 1010] CellTagsIndexPosition[ 38988, 1007] WindowTitle->StringIntersectingQ | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Check whether two strings have any intersecting characters:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7482799902448864`*^9, 3.7482800014080024`*^9}, { 3.7482805403428907`*^9, 3.748280541197976*^9}, {3.748280941837036*^9, 3.7482809524650984`*^9}, {3.762880216573242*^9, 3.762880219078971*^9}, { 3.7632039781400633`*^9, 3.7632039852120733`*^9}}, CellID->761567521], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/StringIntersectingQ"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "StringIntersectingQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringIntersectingQ"], BoxID -> "StringIntersectingQ", Selectable->False], "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748279971652027*^9, 3.748279978151677*^9}, 3.7482804097388315`*^9, 3.748280614729328*^9, 3.748280918290682*^9, 3.748281543134169*^9}, CellLabel->"In[64]:=", CellID->160240361], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482799785787196`*^9, 3.748280491705027*^9, 3.7482806932791824`*^9, 3.7482809189617486`*^9, 3.748281591166169*^9}, CellLabel->"Out[64]=", CellID->338294008] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/StringIntersectingQ"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "StringIntersectingQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringIntersectingQ"], BoxID -> "StringIntersectingQ", Selectable->False], "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482809272935815`*^9, 3.748280928512704*^9}, 3.748281543754169*^9}, CellLabel->"In[65]:=", CellID->912460157], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482809298798404`*^9, 3.748281593130169*^9}, CellLabel->"Out[65]=", CellID->209770392] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["All characters are supported:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7482800111819797`*^9, 3.7482800487747383`*^9}, { 3.748280116507511*^9, 3.748280126228483*^9}}, CellID->218089747], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"str1", ",", "str2"}], "}"}], "=", RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"1", ";;", "2"}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748280151052965*^9, 3.7482802246513243`*^9}}, CellLabel->"In[66]:=", CellID->682064872], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"\:1f0c\[Nu]\[Delta]\[Rho]\[Alpha] \[Mu]\[Omicron]\[Iota] \ \:1f14\[Nu]\[Nu]\[CurlyEpsilon]\[Pi]\[CurlyEpsilon], \[CapitalMu]\[Omicron]\ \:1fe6\[Sigma]\[Alpha], \[Pi]\[Omicron]\[Lambda]\:03cd\[Tau]\[Rho]\[Omicron]\ \[Pi]\[Omicron]\[Nu], \:1f43\[FinalSigma] \[Mu]\:03ac\[Lambda]\[Alpha] \[Pi]\ \[Omicron]\[Lambda]\[Lambda]\:1f70\\n\[Pi]\[Lambda]\:03ac\[Gamma]\[Chi]\ \[Theta]\[Eta], \:1f10\[Pi]\[CurlyEpsilon]\:1f76 \ \[CapitalTau]\[Rho]\[Omicron]\:03af\[Eta]\[FinalSigma] \:1f31\[CurlyEpsilon]\ \[Rho]\:1f78\[Nu] \[Pi]\[Tau]\[Omicron]\[Lambda]\:03af\[CurlyEpsilon]\[Theta]\ \[Rho]\[Omicron]\[Nu] \:1f14\[Pi]\[CurlyEpsilon]\[Rho]\[Sigma]\[CurlyEpsilon]\ \[CenterDot]\\n\[Pi]\[Omicron]\[Lambda]\[Lambda]\:1ff6\[Nu] \[Delta]' \:1f00\ \[Nu]\[Theta]\[Rho]\:03ce\[Pi]\[Omega]\[Nu] \ \:1f34\[Delta]\[CurlyEpsilon]\[Nu] \ \:1f04\[Sigma]\[Tau]\[CurlyEpsilon]\[Alpha] \[Kappa]\[Alpha]\:1f76 \ \[Nu]\:03cc\[Omicron]\[Nu] \:1f14\[Gamma]\[Nu]\[Omega],\\n\[Pi]\[Omicron]\ \[Lambda]\[Lambda]\:1f70 \[Delta]' \:1f45 \[Gamma]' \:1f10\[Nu] \[Pi]\:03cc\ \[Nu]\[Tau]\:1ff3 \[Pi]\:03ac\[Theta]\[CurlyEpsilon]\[Nu] \:1f04\[Lambda]\ \[Gamma]\[CurlyEpsilon]\[Alpha] \:1f43\[Nu] \[Kappa]\[Alpha]\[Tau]\:1f70 \ \[Theta]\[Upsilon]\[Mu]\:03cc\[Nu],\\n\:1f00\[Rho]\[Nu]\:03cd\[Mu]\ \[CurlyEpsilon]\[Nu]\[Omicron]\[FinalSigma] \:1f25\[Nu] \[Tau]\[CurlyEpsilon] \ \[Psi]\[Upsilon]\[Chi]\:1f74\[Nu] \[Kappa]\[Alpha]\:1f76 \[Nu]\:03cc\[Sigma]\ \[Tau]\[Omicron]\[Nu] \:1f11\[Tau]\[Alpha]\:03af\[Rho]\[Omega]\[Nu].\"\>", ",", "\<\"\:1f00\[Lambda]\[Lambda]' \[Omicron]\:1f50\[Delta]' \:1f67\ \[FinalSigma] \:1f11\[Tau]\:03ac\[Rho]\[Omicron]\[Upsilon]\[FinalSigma] \ \:1f10\[Rho]\[Rho]\:03cd\[Sigma]\[Alpha]\[Tau]\[Omicron], \:1f31\:03ad\[Mu]\ \[CurlyEpsilon]\[Nu]\:03cc\[FinalSigma] \ \[Pi]\[CurlyEpsilon]\[Rho]\[CenterDot]\\n\[Alpha]\:1f50\[Tau]\:1ff6\[Nu] \ \[Gamma]\:1f70\[Rho] \[Sigma]\[CurlyPhi]\[CurlyEpsilon]\[Tau]\:03ad\[Rho]\ \:1fc3\[Sigma]\[Iota]\[Nu] \:1f00\[Tau]\[Alpha]\[Sigma]\[Theta]\[Alpha]\ \[Lambda]\:03af\:1fc3\[Sigma]\[Iota]\[Nu] \ \:1f44\[Lambda]\[Omicron]\[Nu]\[Tau]\[Omicron],\\n\[Nu]\:03ae\[Pi]\[Iota]\ \[Omicron]\[Iota], \[Omicron]\:1f33 \[Kappa]\[Alpha]\[Tau]\:1f70 \[Beta]\ \[Omicron]\:1fe6\[FinalSigma] \ \:1f59\[Pi]\[CurlyEpsilon]\[Rho]\:03af\[Omicron]\[Nu]\[Omicron]\[FinalSigma] \ \:1f28\[CurlyEpsilon]\[Lambda]\:03af\[Omicron]\[Iota]\[Omicron]\\n\:1f24\ \[Sigma]\[Theta]\[Iota]\[Omicron]\[Nu]\[CenterDot] \[Alpha]\:1f50\[Tau]\:1f70\ \[Rho] \:1f41 \[Tau]\[Omicron]\:1fd6\[Sigma]\[Iota]\[Nu] \:1f00\[CurlyPhi]\ \[CurlyEpsilon]\:03af\[Lambda]\[CurlyEpsilon]\[Tau]\[Omicron] \[Nu]\:03cc\ \[Sigma]\[Tau]\[Iota]\[Mu]\[Omicron]\[Nu] \:1f26\[Mu]\[Alpha]\[Rho].\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.748280209093769*^9, 3.74828022621148*^9}, 3.7482809771635685`*^9, 3.748281596799169*^9}, CellLabel->"Out[66]=", CellID->583725731] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/StringIntersectingQ"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "StringIntersectingQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringIntersectingQ"], BoxID -> "StringIntersectingQ", Selectable->False], "[", RowBox[{"str1", ",", " ", "str2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748279971652027*^9, 3.748279978151677*^9}, { 3.74828005718858*^9, 3.748280097148576*^9}, {3.748280147163576*^9, 3.748280149157776*^9}, {3.7482802281456738`*^9, 3.748280229859845*^9}, 3.7482804129451523`*^9, 3.748280620877943*^9, 3.7482809792697787`*^9, 3.748281545056169*^9}, CellLabel->"In[67]:=", CellID->351005702], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482799785787196`*^9, 3.748280100083869*^9, 3.748280230378897*^9, 3.748280549968853*^9, 3.748280713839238*^9, 3.748280979863838*^9, 3.748281598008169*^9}, CellLabel->"Out[67]=", CellID->866218096] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell["\<\ See if some English words intersect their Spanish translations:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.748281093622122*^9, 3.748281124047079*^9}, { 3.748281607759169*^9, 3.748281654952169*^9}}, CellID->167704006], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AssociationMap", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["StringIntersectingQ", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/StringIntersectingQ"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "StringIntersectingQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringIntersectingQ"], BoxID -> "StringIntersectingQ", Selectable->False], "[", RowBox[{"#", ",", RowBox[{"First", "[", RowBox[{"WordTranslation", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "]"}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482811269117923`*^9, 3.7482813269987817`*^9}, 3.748281546156169*^9}, CellLabel->"In[68]:=", CellID->322001508], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"mother\"\>", "\[Rule]", "True"}], ",", RowBox[{"\<\"infant\"\>", "\[Rule]", "False"}], ",", RowBox[{"\<\"truck\"\>", "\[Rule]", "True"}], ",", RowBox[{"\<\"piano\"\>", "\[Rule]", "True"}], ",", RowBox[{"\<\"happy\"\>", "\[Rule]", "False"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7482811909003925`*^9, 3.7482813284456367`*^9}, 3.7482816589211693`*^9}, CellLabel->"Out[68]=", CellID->197860499] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"StringIntersectingQ | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[632, 23, 168, 7, 70, "Subsection",ExpressionUUID->"af03b884-f848-447e-9dd6-2e6c586b62cc", CellID->462042388], Cell[803, 32, 385, 6, 70, "Text",ExpressionUUID->"15dc9e94-045d-43df-b359-d9b29abe6869", CellID->761567521], Cell[CellGroupData[{ Cell[1213, 42, 7369, 185, 70, "Input",ExpressionUUID->"b3839efa-5f16-4aab-8d69-7352c94d1361", CellID->160240361], Cell[8585, 229, 233, 5, 70, "Output",ExpressionUUID->"f6849215-e253-4fed-bd53-da0a1beab4a2", CellID->338294008] }, Open ]], Cell[CellGroupData[{ Cell[8855, 239, 7300, 184, 70, "Input",ExpressionUUID->"05d2c2ad-bd81-4cac-b113-2c9c429cc096", CellID->912460157], Cell[16158, 425, 161, 4, 70, "Output",ExpressionUUID->"5307c814-5022-4d75-87b5-646370d7fcfd", CellID->209770392] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16368, 435, 159, 7, 70, "Subsection",ExpressionUUID->"9e0a2437-c3c6-443e-a258-3897517f62e0", CellID->964056545], Cell[16530, 444, 203, 4, 70, "Text",ExpressionUUID->"989ba5d5-9d95-4301-8299-ce12f5b45144", CellID->218089747], Cell[CellGroupData[{ Cell[16758, 452, 462, 14, 70, "Input",ExpressionUUID->"5727a35a-fdd3-4596-b28c-bf612adeb3b3", CellID->682064872], Cell[17223, 468, 2902, 45, 70, "Output",ExpressionUUID->"c7564567-d94b-47a1-a0a5-623cff782dd8", CellID->583725731] }, Open ]], Cell[CellGroupData[{ Cell[20162, 518, 7505, 187, 70, "Input",ExpressionUUID->"e9f9f7b4-7895-45eb-9d6b-18cd669cf91b", CellID->351005702], Cell[27670, 707, 276, 6, 70, "Output",ExpressionUUID->"d3788e2b-2b56-4512-8277-55aefbd6c17d", CellID->866218096] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[27995, 719, 166, 7, 70, "Subsection",ExpressionUUID->"aba09931-f3bd-4e95-a9ef-5bed81da07ac", CellID->568056528], Cell[28164, 728, 241, 6, 70, "Text",ExpressionUUID->"3795978b-5e92-49a6-9ba8-640fa06eeafd", CellID->167704006], Cell[CellGroupData[{ Cell[28430, 738, 8274, 201, 70, "Input",ExpressionUUID->"14410839-adb4-46ca-9898-a13459805999", CellID->322001508], Cell[36707, 941, 531, 13, 70, "Output",ExpressionUUID->"d02e1daa-9e33-4c52-8d9f-fa474bad0652", CellID->197860499] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)