(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 4771, 161] NotebookOptionsPosition[ 3700, 128] NotebookOutlinePosition[ 4024, 144] CellTagsIndexPosition[ 3981, 141] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Find unique integer cases. ", "Text", CellChangeTimes->{{3.7559794237158127`*^9, 3.7559794668465*^9}, { 3.755979677585816*^9, 3.755979722855756*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"UniqueCases\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["UniqueCases"], BoxID -> "UniqueCases", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2."}], "}"}], ",", "_Integer"}], "]"}]], "Input", CellChangeTimes->{{3.755973169789324*^9, 3.755973188994316*^9}, { 3.75597336074142*^9, 3.755973361931511*^9}, 3.755974250788033*^9, { 3.7559793735822268`*^9, 3.7559793828285093`*^9}}, CellLabel->"In[4]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", "1", "}"}]], "Output", CellChangeTimes->{ 3.755973190614975*^9, 3.755973362913331*^9, {3.755979374961363*^9, 3.755979383465981*^9}}, CellLabel->"Out[4]=", CellID->325716638] }, Open ]], Cell[TextData[{ "Compare with ", Cell[BoxData[ ButtonBox["Cases", BaseStyle->"Link"]], "InlineFormula"], "." }], "Text", CellChangeTimes->{{3.7559794237158127`*^9, 3.7559794668465*^9}, { 3.755979654034289*^9, 3.755979662441639*^9}}, CellID->430082999], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2."}], "}"}], ",", "_Integer"}], "]"}]], "Input", CellChangeTimes->{{3.755979295473442*^9, 3.755979359806017*^9}}, CellLabel->"In[2]:=", CellID->1191049677], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.7559793616061153`*^9}, CellLabel->"Out[2]=", CellID->326964748] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"a12bcbd2-aec7-490e-8098-bf2e1e1aa4ca", CellID->462042388], Cell[639, 25, 177, 3, 70, "Text",ExpressionUUID->"0841aadb-467a-4f5b-8348-8da97d20f238", CellID->13078159], Cell[CellGroupData[{ Cell[841, 32, 1891, 53, 70, "Input",ExpressionUUID->"332cd4de-3333-4379-9ba9-583b1b025b67", CellID->443871870], Cell[2735, 87, 210, 6, 70, "Output",ExpressionUUID->"e1439b6d-f118-43c8-835c-630231c17d36", CellID->325716638] }, Open ]], Cell[2960, 96, 263, 9, 70, "Text",ExpressionUUID->"4ffdacf8-be66-499a-a5e5-2b1abe2231a5", CellID->430082999], Cell[CellGroupData[{ Cell[3248, 109, 261, 8, 70, "Input",ExpressionUUID->"30c6da92-0202-4f24-a501-87ea209044dc", CellID->1191049677], Cell[3512, 119, 160, 5, 70, "Output",ExpressionUUID->"e4f3d590-351c-4c80-862b-4be3bdb0901d", CellID->326964748] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)