(* 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[ 40334, 1038] NotebookOptionsPosition[ 36604, 941] NotebookOutlinePosition[ 38365, 993] CellTagsIndexPosition[ 38322, 990] WindowTitle->StringDisjointQ | 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 are disjoint:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7482799902448864`*^9, 3.7482800014080024`*^9}, { 3.7482805403428907`*^9, 3.748280541197976*^9}, {3.748280941837036*^9, 3.7482809524650984`*^9}}, CellID->993246618], 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["StringDisjointQ", "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["StringDisjointQ", "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/StringDisjointQ"}, "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], "StringDisjointQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringDisjointQ"], BoxID -> "StringDisjointQ", Selectable->False], "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748279971652027*^9, 3.748279978151677*^9}, 3.7482804097388315`*^9, 3.748280614729328*^9, 3.748280918290682*^9}, CellLabel->"In[40]:=", CellID->625078211], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482799785787196`*^9, 3.748280491705027*^9, 3.7482806932791824`*^9, 3.7482809189617486`*^9}, CellLabel->"Out[40]=", CellID->780522727] }, 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["StringDisjointQ", "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["StringDisjointQ", "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/StringDisjointQ"}, "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], "StringDisjointQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringDisjointQ"], BoxID -> "StringDisjointQ", Selectable->False], "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482809272935815`*^9, 3.748280928512704*^9}}, CellLabel->"In[41]:=", CellID->634508981], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482809298798404`*^9}, CellLabel->"Out[41]=", CellID->982344217] }, 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[42]:=", CellID->372151904], 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}, CellLabel->"Out[42]=", CellID->333961461] }, 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["StringDisjointQ", "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["StringDisjointQ", "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/StringDisjointQ"}, "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], "StringDisjointQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringDisjointQ"], BoxID -> "StringDisjointQ", 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}, CellLabel->"In[43]:=", CellID->712873885], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482799785787196`*^9, 3.748280100083869*^9, 3.748280230378897*^9, 3.748280549968853*^9, 3.748280713839238*^9, 3.748280979863838*^9}, CellLabel->"Out[43]=", CellID->434430827] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell["\<\ See if two words are disjoint in two languages that share an alphabet:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.748281093622122*^9, 3.748281124047079*^9}}, CellID->61816187], 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["StringDisjointQ", "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["StringDisjointQ", "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/StringDisjointQ"}, "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], "StringDisjointQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["StringDisjointQ"], BoxID -> "StringDisjointQ", Selectable->False], "[", RowBox[{"#", ",", RowBox[{"First", "[", RowBox[{"WordTranslation", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "]"}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482811269117923`*^9, 3.7482813269987817`*^9}}, CellLabel->"In[58]:=", CellID->519184665], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"mother\"\>", "\[Rule]", "False"}], ",", RowBox[{"\<\"infant\"\>", "\[Rule]", "True"}], ",", RowBox[{"\<\"truck\"\>", "\[Rule]", "False"}], ",", RowBox[{"\<\"piano\"\>", "\[Rule]", "False"}], ",", RowBox[{"\<\"happy\"\>", "\[Rule]", "True"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7482811909003925`*^9, 3.7482813284456367`*^9}}, CellLabel->"Out[58]=", CellID->468805868] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"StringDisjointQ | 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[628, 23, 168, 7, 70, "Subsection",ExpressionUUID->"22a2cbe9-e7dc-40d3-9e24-306a2d6b9b48", CellID->462042388], Cell[799, 32, 266, 5, 70, "Text",ExpressionUUID->"fbde1c84-ba36-4865-86e1-7df56cb2f785", CellID->993246618], Cell[CellGroupData[{ Cell[1090, 41, 7265, 181, 70, "Input",ExpressionUUID->"c51b5b86-3221-42ec-8dfb-561491568b55", CellID->625078211], Cell[8358, 224, 212, 5, 70, "Output",ExpressionUUID->"f7a625b1-e7d9-4912-bc79-910502f4258b", CellID->780522727] }, Open ]], Cell[CellGroupData[{ Cell[8607, 234, 7196, 180, 70, "Input",ExpressionUUID->"c676634e-9fb3-4527-9804-760e896eebd5", CellID->634508981], Cell[15806, 416, 138, 4, 70, "Output",ExpressionUUID->"c96ce3a9-ae7e-4310-9779-9670bffd063c", CellID->982344217] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15993, 426, 159, 7, 70, "Subsection",ExpressionUUID->"e51767ec-3fe6-4dae-9d7e-7291e2798349", CellID->964056545], Cell[16155, 435, 203, 4, 70, "Text",ExpressionUUID->"e89ed171-13cb-4ad9-9537-9fcafdf9fcec", CellID->218089747], Cell[CellGroupData[{ Cell[16383, 443, 462, 14, 70, "Input",ExpressionUUID->"3f844b5f-1a79-40c2-841a-46244d8fe2dc", CellID->372151904], Cell[16848, 459, 2880, 45, 70, "Output",ExpressionUUID->"f8c5f606-dc50-4a20-a940-c2b7933e8c96", CellID->333961461] }, Open ]], Cell[CellGroupData[{ Cell[19765, 509, 7401, 183, 70, "Input",ExpressionUUID->"ea285a4b-7e12-419e-b96c-b23f0a4e0299", CellID->712873885], Cell[27169, 694, 255, 6, 70, "Output",ExpressionUUID->"689f2e33-b2e1-4f77-b0f8-34fe90f008c3", CellID->434430827] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[27473, 706, 166, 7, 70, "Subsection",ExpressionUUID->"3c2c34ec-37b2-481c-a36a-b8d3875268d1", CellID->568056528], Cell[27642, 715, 198, 5, 70, "Text",ExpressionUUID->"2e722eb2-0dc9-4857-bd8d-1283e080b6b9", CellID->61816187], Cell[CellGroupData[{ Cell[27865, 724, 8204, 199, 70, "Input",ExpressionUUID->"10fc23d6-52ce-49a6-add9-fcb6393b0385", CellID->519184665], Cell[36072, 925, 504, 12, 70, "Output",ExpressionUUID->"51e3d0fe-47ab-45aa-a048-d8d357456e32", CellID->468805868] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)