(* 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[ 61836, 1641] NotebookOptionsPosition[ 56746, 1514] NotebookOutlinePosition[ 58499, 1566] CellTagsIndexPosition[ 58456, 1563] WindowTitle->TallyBy | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Tally, but do not care about the capitalization:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771003856530074*^9, 3.771003872491149*^9}, 3.8594668061258183`*^9}, CellID->13078159], 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["TallyBy", "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["TallyBy", "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/TallyBy"}, "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], "TallyBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TallyBy"], BoxID -> "TallyBy", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "ToLowerCase"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771003480240439*^9, 3.771003512982767*^9}, { 3.771947267422049*^9, 3.771947269244679*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"adam\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"berta\"\>", ",", "2"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771003513272039*^9, {3.7710059655789967`*^9, 3.771005973396305*^9}, 3.7710061767921877`*^9, {3.771006213559331*^9, 3.771006237444788*^9}, 3.771006332605751*^9, 3.7710065426967907`*^9, 3.771006963236896*^9, 3.771008541207613*^9, 3.7710089287588654`*^9, {3.77225525394267*^9, 3.772255287918171*^9}, 3.772255809137546*^9, 3.772255982687728*^9, 3.7722562501733418`*^9, 3.8594671551618958`*^9}, CellLabel->"Out[1]=", CellID->1046322498] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->161219674], Cell["\<\ Return only the first entry rather than all of the entries for each \ equivalence partition:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7710061824170113`*^9, 3.7710062105267353`*^9}, { 3.771006249314743*^9, 3.7710062638672457`*^9}}, CellID->2087347277], 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["TallyBy", "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["TallyBy", "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/TallyBy"}, "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], "TallyBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TallyBy"], BoxID -> "TallyBy", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "ToLowerCase", ",", "First"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7710060579516363`*^9, 3.7710060593359213`*^9}, { 3.77100624213769*^9, 3.77100624280265*^9}}, CellLabel->"In[1]:=", CellID->738108922], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Adam\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"berta\"\>", ",", "2"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771006059776894*^9, 3.77100621288175*^9, {3.771006242977532*^9, 3.7710062651636066`*^9}, 3.771006334093355*^9, 3.771006544238433*^9, 3.771006965331649*^9, 3.771008542237322*^9, 3.771008931618453*^9, 3.772255290391897*^9, 3.772255810289649*^9, 3.772255984062405*^9, 3.772256251349884*^9, 3.859467166004889*^9}, CellLabel->"Out[1]=", CellID->475027698] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell["\<\ Tally numbers that are close to each other and only show a \"representative\" \ number:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.771003856530074*^9, 3.771003872491149*^9}, { 3.771004063704843*^9, 3.771004081684387*^9}, {3.771006555718278*^9, 3.7710065869278107`*^9}, {3.771006946550508*^9, 3.771006947534308*^9}, { 3.859466821230644*^9, 3.8594668245052023`*^9}}, CellID->507086941], 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["TallyBy", "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["TallyBy", "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/TallyBy"}, "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], "TallyBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TallyBy"], BoxID -> "TallyBy", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "1.0", ",", "1", ",", "1.0`10", ",", "2", ",", "3.0", ",", "2.9", ",", "Pi", ",", "E", ",", "0.99"}], "}"}], ",", "Round", ",", "Median"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771003480240439*^9, 3.771003512982767*^9}, { 3.771003891682317*^9, 3.771003911318996*^9}, {3.771004025170239*^9, 3.771004056922331*^9}, {3.771006269435521*^9, 3.771006270915554*^9}, { 3.771006550641128*^9, 3.771006551801158*^9}, {3.771006590844832*^9, 3.771006592205882*^9}}, CellLabel->"In[1]:=", CellID->1395106091], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`10.301029995663985", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2.95`", ",", "4"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771003513272039*^9, {3.771004022658533*^9, 3.771004057335053*^9}, 3.771005398596863*^9, 3.7710062152042923`*^9, {3.771006267074201*^9, 3.7710062713053217`*^9}, {3.7710065453062563`*^9, 3.77100655209027*^9}, { 3.771006588352676*^9, 3.7710065927193336`*^9}, {3.771006950602813*^9, 3.7710069744254923`*^9}, 3.771008543841939*^9, 3.771008932952883*^9, 3.7722559856071253`*^9, 3.7722562527767344`*^9}, CellLabel->"Out[1]=", CellID->1314756083] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->688131536], Cell["Tally words to find the largest anagram groups:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7710063053549547`*^9, 3.771006325242228*^9}, { 3.771006979758657*^9, 3.771006981514279*^9}, {3.7729048673161864`*^9, 3.7729048682831864`*^9}}, CellID->974648862], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tallies", "=", 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["TallyBy", "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["TallyBy", "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/TallyBy"}, "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], "TallyBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TallyBy"], BoxID -> "TallyBy", Selectable->False], "[", RowBox[{ RowBox[{"DictionaryLookup", "[", "]"}], ",", RowBox[{"Sort", "@*", "Characters", "@*", "ToLowerCase"}], ",", "Identity"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TakeLargestBy", "[", RowBox[{"tallies", ",", "Last", ",", "10"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7710057332401733`*^9, 3.771005746262656*^9}, { 3.7710062211093493`*^9, 3.771006222173766*^9}, {3.771006276075459*^9, 3.77100629872223*^9}, {3.772256033624897*^9, 3.7722560346919193`*^9}}, CellLabel->"In[1]:=", CellID->1463604908], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"ates\"\>", ",", "\<\"east\"\>", ",", "\<\"East\"\>", ",", "\<\"eats\"\>", ",", "\<\"etas\"\>", ",", "\<\"sate\"\>", ",", "\<\"seat\"\>", ",", "\<\"teas\"\>"}], "}"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"least\"\>", ",", "\<\"slate\"\>", ",", "\<\"Stael\"\>", ",", "\<\"stale\"\>", ",", "\<\"steal\"\>", ",", "\<\"tales\"\>", ",", "\<\"teals\"\>", ",", "\<\"Tesla\"\>"}], "}"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"carets\"\>", ",", "\<\"caster\"\>", ",", "\<\"caters\"\>", ",", "\<\"crates\"\>", ",", "\<\"reacts\"\>", ",", "\<\"recast\"\>", ",", "\<\"traces\"\>"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"ales\"\>", ",", "\<\"Elsa\"\>", ",", "\<\"lase\"\>", ",", "\<\"leas\"\>", ",", "\<\"Lesa\"\>", ",", "\<\"sale\"\>", ",", "\<\"seal\"\>"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"abets\"\>", ",", "\<\"baste\"\>", ",", "\<\"bates\"\>", ",", "\<\"Bates\"\>", ",", "\<\"beast\"\>", ",", "\<\"beats\"\>", ",", "\<\"betas\"\>"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"elan\"\>", ",", "\<\"lane\"\>", ",", "\<\"Lane\"\>", ",", "\<\"lean\"\>", ",", "\<\"Lean\"\>", ",", "\<\"Lena\"\>", ",", "\<\"Neal\"\>"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"capers\"\>", ",", "\<\"crapes\"\>", ",", "\<\"pacers\"\>", ",", "\<\"parsec\"\>", ",", "\<\"recaps\"\>", ",", "\<\"scrape\"\>", ",", "\<\"spacer\"\>"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"notes\"\>", ",", "\<\"onset\"\>", ",", "\<\"Seton\"\>", ",", "\<\"steno\"\>", ",", "\<\"stone\"\>", ",", "\<\"Stone\"\>", ",", "\<\"tones\"\>"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Ingres\"\>", ",", "\<\"reigns\"\>", ",", "\<\"resign\"\>", ",", "\<\"sering\"\>", ",", "\<\"signer\"\>", ",", "\<\"singer\"\>", ",", "\<\"Singer\"\>"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"opts\"\>", ",", "\<\"post\"\>", ",", "\<\"Post\"\>", ",", "\<\"pots\"\>", ",", "\<\"spot\"\>", ",", "\<\"stop\"\>", ",", "\<\"tops\"\>"}], "}"}], ",", "7"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.771005726788351*^9, 3.771005747140032*^9}, { 3.7710062164304123`*^9, 3.77100622349367*^9}, {3.77100627493773*^9, 3.771006299432733*^9}, 3.771006338262396*^9, {3.771006975770396*^9, 3.771006983751363*^9}, 3.7710085451940193`*^9, 3.771008934283976*^9, 3.772255997925827*^9, 3.77225603541271*^9, 3.7722562558204536`*^9}, CellLabel->"Out[1]=", CellID->1688211097] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ Cell[BoxData[ StyleBox["TallyBy", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is related to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Tally", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Tally", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.771004123500716*^9, 3.77100413179161*^9}}, CellID->1768451605], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"numbers", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", "150"}], "]"}]}], ";"}], "\[IndentingNewLine]", 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["TallyBy", "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["TallyBy", "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/TallyBy"}, "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], "TallyBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TallyBy"], BoxID -> "TallyBy", Selectable->False], "[", RowBox[{"numbers", ",", "Identity", ",", "First"}], "]"}], "===", RowBox[{"Tally", "[", "numbers", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7710040925900517`*^9, 3.771004134977025*^9}, { 3.771008550071763*^9, 3.7710085525530167`*^9}}, CellLabel->"In[1]:=", CellID->1913803897], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.771004118242145*^9, 3.771004135332241*^9}, 3.771004225744121*^9, 3.771005400408951*^9, {3.77100854629195*^9, 3.771008552861175*^9}, 3.771008936615539*^9, 3.772256047182022*^9, 3.772256258852865*^9}, CellLabel->"Out[1]=", CellID->460359180] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1007841797], Cell[TextData[{ Cell[BoxData[ StyleBox["TallyBy", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is related to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CountsBy", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CountsBy", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.771006398178789*^9, 3.7710064309099407`*^9}, { 3.772256059349491*^9, 3.772256059986464*^9}}, CellID->1089700320], 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["TallyBy", "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["TallyBy", "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/TallyBy"}, "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], "TallyBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TallyBy"], BoxID -> "TallyBy", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "StringLength"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7710063949454603`*^9, 3.77100639494698*^9}, { 3.7710064384370127`*^9, 3.7710064890177517`*^9}, {3.7722560686651793`*^9, 3.7722560687924833`*^9}}, CellLabel->"In[1]:=", CellID->495519229], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.771006441960183*^9, 3.771006489451406*^9}, 3.771008556096939*^9, 3.771008937723234*^9, {3.7722560620256433`*^9, 3.772256069147808*^9}, 3.772256261161194*^9}, CellLabel->"Out[1]=", CellID->1136751778] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CountsBy", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "StringLength"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7710063949454603`*^9, 3.77100639494698*^9}, { 3.7710064384370127`*^9, 3.7710064890177517`*^9}}, CellLabel->"In[2]:=", CellID->250098737], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"1", "\[Rule]", "1"}], ",", RowBox[{"5", "\[Rule]", "1"}], ",", RowBox[{"3", "\[Rule]", "2"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.771006441960183*^9, 3.771006489451406*^9}, 3.771008556096939*^9, 3.771008937724696*^9, {3.7722560640280247`*^9, 3.772256070268149*^9}, 3.7722562619385147`*^9}, CellLabel->"Out[2]=", CellID->273041235] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"TallyBy | 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[620, 23, 168, 7, 70, "Subsection",ExpressionUUID->"85736698-7b99-42b6-bee7-99dcafe74374", CellID->462042388], Cell[791, 32, 196, 4, 70, "Text",ExpressionUUID->"3729b0e8-0d5f-4170-872b-ddc2be251b12", CellID->13078159], Cell[CellGroupData[{ Cell[1012, 40, 7305, 185, 70, "Input",ExpressionUUID->"5d141837-9261-4240-af3d-83dc4fb737eb", CellID->443871870], Cell[8320, 227, 691, 16, 70, "Output",ExpressionUUID->"987d5628-db78-4c75-8b42-18a12717ab1b", CellID->1046322498] }, Open ]], Cell[CellGroupData[{ Cell[9048, 248, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"497e696a-50bf-4d60-85df-b37295f9a484", CellID->161219674], Cell[9195, 254, 277, 7, 70, "Text",ExpressionUUID->"dd783e0b-6464-4744-9add-21f770aa984c", CellID->2087347277], Cell[CellGroupData[{ Cell[9497, 265, 7324, 186, 70, "Input",ExpressionUUID->"81a4f603-c500-41c6-a634-d9d14a4400b4", CellID->738108922], Cell[16824, 453, 606, 15, 70, "Output",ExpressionUUID->"099982fc-38f3-4d41-a9e0-b5b5a9d99e16", CellID->475027698] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17491, 475, 166, 7, 70, "Subsection",ExpressionUUID->"1dacf5fa-67a9-4ccb-8b2e-48f9ac690392", CellID->568056528], Cell[17660, 484, 413, 9, 70, "Text",ExpressionUUID->"cf3f7974-2b11-4bb7-8dd2-24faac16c27a", CellID->507086941], Cell[CellGroupData[{ Cell[18098, 497, 7530, 189, 70, "Input",ExpressionUUID->"655f4402-1895-4308-924b-71aa9e90e273", CellID->1395106091], Cell[25631, 688, 757, 18, 70, "Output",ExpressionUUID->"3f684a56-8d67-47fa-bbe9-d0d72bbf3c22", CellID->1314756083] }, Open ]], Cell[CellGroupData[{ Cell[26425, 711, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"19e5ab58-aef5-4f76-9cbf-d4c2e62e6747", CellID->688131536], Cell[26572, 717, 272, 5, 70, "Text",ExpressionUUID->"0298751a-6133-4a9b-877b-1395a21746f1", CellID->974648862], Cell[CellGroupData[{ Cell[26869, 726, 7946, 193, 70, "Input",ExpressionUUID->"d4ae8424-93eb-4a56-940e-3c53715e9996", CellID->1463604908], Cell[34818, 921, 3135, 72, 70, "Output",ExpressionUUID->"5e452182-d16e-4c32-bab1-e562e7c73c8e", CellID->1688211097] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[38014, 1000, 178, 7, 70, "Subsection",ExpressionUUID->"ae17cc61-ed1c-4ef9-bfaf-53d4ea14f74b", CellID->754506620], Cell[38195, 1009, 743, 24, 70, "Text",ExpressionUUID->"a0264eb7-f93c-41c7-b449-62615ba774ee", CellID->1768451605], Cell[CellGroupData[{ Cell[38963, 1037, 7664, 192, 70, "Input",ExpressionUUID->"3253c631-8d90-499e-9fbe-374c468927e9", CellID->1913803897], Cell[46630, 1231, 326, 7, 70, "Output",ExpressionUUID->"fa849fab-da7c-4d94-9b33-a2a41f1bc37d", CellID->460359180] }, Open ]], Cell[CellGroupData[{ Cell[46993, 1243, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"e420c580-2764-4bef-b067-af446854cd3c", CellID->1007841797], Cell[47141, 1249, 801, 25, 70, "Text",ExpressionUUID->"7eea3e6c-4a5f-4e16-a585-7bbce790d235", CellID->1089700320], Cell[CellGroupData[{ Cell[47967, 1278, 7358, 186, 70, "Input",ExpressionUUID->"251c8e7a-7416-44df-8004-51f6e1b5ae84", CellID->495519229], Cell[55328, 1466, 481, 14, 70, "Output",ExpressionUUID->"2def1ff5-078a-42da-8354-5f2feb2d674e", CellID->1136751778] }, Open ]], Cell[CellGroupData[{ Cell[55846, 1485, 397, 11, 70, "Input",ExpressionUUID->"543d95f8-25a5-4772-b1dc-0d4c4c0ecfb4", CellID->250098737], Cell[56246, 1498, 460, 11, 70, "Output",ExpressionUUID->"6a89f0c0-2c54-487b-acde-c2e49c1322c7", CellID->273041235] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)