(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 297124, 6798] NotebookOptionsPosition[ 200779, 4890] NotebookOutlinePosition[ 276380, 6370] CellTagsIndexPosition[ 275696, 6347] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["DeleteAdjacentDuplicates", "Title", CellTags->"Title"], Cell["Delete adjacent duplicates from a list", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[ RowBox[{ RowBox[{"DeleteAdjacentDuplicates", " ", "//", " ", "ClearAll"}], ";"}]], "Code", InitializationCell->True, CellChangeTimes->{{3.7661733161806602`*^9, 3.766173324501401*^9}}, CellLabel->"In[7]:=", CellID->123578743], Cell[CellGroupData[{ Cell["Messages", "Subsection", CellChangeTimes->{{3.76617906690749*^9, 3.766179070767455*^9}}, CellID->52231213], Cell[TextData[{ "Messages are printed using ", Cell[BoxData[ TemplateBox[{TagBox[ ButtonBox[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ "\"ResourceFunctionMessage\"", "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ResourceFunctionMessage\""}], ResourceFunction[ ResourceObject[ Association[ "Name" -> "ResourceFunctionMessage", "UUID" -> "99f3bbb5-c9d2-4eaf-8c12-420ceb643e09", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Similar to Message, except prints as a labeled message from \ ResourceFunction with contexts hidden", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "WolframLanguageVersionRequired" -> "10.0", "SymbolName" -> "FunctionRepository`$a3f53bc84a2d413094f6f86c9a17b7f2`\ ResourceFunctionMessage", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/21023216-81de-4487-80a4-\ 0a264c4b217c"], "ShortName" -> "ResourceFunctionMessage"], ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"]], Selectable -> False], ButtonFunction :> SystemOpen[ "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage\""], Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], MouseAppearanceTag["LinkHand"]], "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage\""}, "PrettyTooltipTemplate", DisplayFunction:>(TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )]]], ":" }], "Text", CellChangeTimes->{{3.7586642621708994`*^9, 3.7586642683946915`*^9}, { 3.7586643609948125`*^9, 3.7586643850720644`*^9}, {3.7586645404822345`*^9, 3.7586645442231197`*^9}, {3.758664575275154*^9, 3.7586645773070917`*^9}, { 3.758664608979108*^9, 3.758664609779106*^9}, {3.7586648804586864`*^9, 3.7586648808006616`*^9}}, CellID->191546246], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "::", "argt"}], " ", "=", " ", "\n", "\"\<`1` called with `2` arguments; `3` or `4` arguments are \ expected.\>\""}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "::", "normal"}], " ", "=", " ", "\n", "\"\\""}], ";"}]}], "Code", CellChangeTimes->{{3.764709559731094*^9, 3.7647095776664667`*^9}, { 3.764710621776587*^9, 3.764710648058687*^9}, {3.764710687227029*^9, 3.764710706370723*^9}, {3.764729328618394*^9, 3.7647293669173937`*^9}, { 3.76472955196457*^9, 3.764729556348825*^9}, 3.76473007397965*^9, { 3.766179087270953*^9, 3.7661791410683007`*^9}}, CellLabel->"In[8]:=", CellID->1423589637] }, Open ]], Cell[CellGroupData[{ Cell["Formatting", "Subsection", CellChangeTimes->{{3.7661790729643927`*^9, 3.7661790741393423`*^9}}, CellID->360791489], Cell[TextData[{ "This uses ", Cell[BoxData[ TemplateBox[{TagBox[ ButtonBox[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ "\"FormatAsResourceFunction\"", "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"FormatAsResourceFunction\""}], ResourceFunction[ ResourceObject[ Association[ "Name" -> "FormatAsResourceFunction", "UUID" -> "a04b8cc2-23c4-424e-9846-fb9e83ff42ef", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Format a symbol as a ResourceFunction in outputs", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "WolframLanguageVersionRequired" -> "10.0", "SymbolName" -> "FunctionRepository`$9a23e344af2a439b9bf754d5e4b52c65`\ FormatAsResourceFunction", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/ef623453-1f3d-4647-a91c-\ c7e8a948cbc7"], "ShortName" -> "FormatAsResourceFunction"], ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"]], Selectable -> False], ButtonFunction :> SystemOpen[ "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ FormatAsResourceFunction\""], Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], MouseAppearanceTag["LinkHand"]], "\"https://resources.wolframcloud.com/FunctionRepository/resources/\ FormatAsResourceFunction\""}, "PrettyTooltipTemplate", DisplayFunction:>(TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )]], CellChangeTimes->{ 3.7586646899275913`*^9, 3.758664732980254*^9, 3.7586647862375994`*^9, { 3.758664820200543*^9, 3.758664841490883*^9}}], " to format DeleteAdjacentDuplicates as a ResourceFunction since it can be \ returned in the output when there is an error:" }], "Text", CellChangeTimes->{{3.7544183347368026`*^9, 3.754418383225356*^9}, { 3.7548383760157185`*^9, 3.7548383771116877`*^9}, 3.758660042910982*^9, { 3.7586600799798293`*^9, 3.758660108873931*^9}, {3.758660144038839*^9, 3.7586601630602474`*^9}, {3.7586646972343793`*^9, 3.7586646991563053`*^9}, {3.7586648508026075`*^9, 3.7586648511885815`*^9}, {3.7590711044578876`*^9, 3.759071106921813*^9}, 3.7597686581545973`*^9, 3.7610768843817983`*^9, 3.761423088148563*^9, { 3.7615111507680464`*^9, 3.7615111597367754`*^9}, 3.76166860308648*^9, { 3.7627189483828783`*^9, 3.762718959692554*^9}, 3.762721166183256*^9, 3.7631424601380863`*^9, 3.763388586434988*^9, 3.766179153310924*^9}, CellID->19811963], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "DeleteAdjacentDuplicates", " ", "]"}], ";"}]], "Code", CellChangeTimes->{{3.7544214972781506`*^9, 3.7544215984451413`*^9}, { 3.7548383846554565`*^9, 3.7548383913922405`*^9}, {3.7586600522366896`*^9, 3.7586600668522367`*^9}, 3.759071113179618*^9, 3.759768660960512*^9, { 3.761076886308722*^9, 3.761076896218419*^9}, {3.761161590789057*^9, 3.761161594330593*^9}, 3.7614230864118834`*^9, 3.7615111519920106`*^9, 3.761668601322549*^9, 3.762718963120457*^9, 3.7631424587271476`*^9, 3.7633885827301035`*^9, 3.764710166774543*^9, 3.7661791549798727`*^9}, CellLabel->"In[10]:=", CellID->38345076] }, Open ]], Cell[CellGroupData[{ Cell["Main definition", "Subsection", CellChangeTimes->{{3.7661790759142857`*^9, 3.7661790781492167`*^9}}, CellID->30266276], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", " ", "expr_", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"result", " ", "=", " ", RowBox[{"Catch", "[", " ", RowBox[{ RowBox[{"deleteAdjacentDuplicates", " ", "@", " ", "expr"}], ",", " ", "$tag"}], " ", "]"}]}], " ", "}"}], ",", "\n", " ", RowBox[{"result", " ", "/;", " ", RowBox[{"result", " ", "=!=", " ", "$fail"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{ 3.765127563371043*^9, {3.7651276527023897`*^9, 3.7651277075027657`*^9}, { 3.7661732045240726`*^9, 3.766173265758206*^9}, {3.7661770689153357`*^9, 3.76617709060867*^9}}, CellTags->"TabNext", CellLabel->"In[11]:=", CellID->778396829], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", " ", RowBox[{"expr_", ",", " ", "f_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"result", " ", "=", " ", RowBox[{"Catch", "[", " ", RowBox[{ RowBox[{"deleteAdjacentDuplicates", "[", " ", RowBox[{"expr", ",", " ", "f"}], " ", "]"}], ",", " ", "$tag"}], " ", "]"}]}], " ", "}"}], ",", "\n", " ", RowBox[{"result", " ", "/;", " ", RowBox[{"result", " ", "=!=", " ", "$fail"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{ 3.765127563371043*^9, {3.7651276527023897`*^9, 3.7651277075027657`*^9}, { 3.7661732045240726`*^9, 3.766173265758206*^9}, {3.7661732961722794`*^9, 3.7661733015990896`*^9}, {3.7661770974244623`*^9, 3.766177103824248*^9}}, CellTags->"TabNext", CellLabel->"In[12]:=", CellID->394940125] }, Open ]], Cell[CellGroupData[{ Cell["Error cases", "Subsection", CellChangeTimes->{{3.766179183406999*^9, 3.7661791850479484`*^9}}, CellID->101119512], Cell["Wrong number of arguments:", "Text", CellChangeTimes->{{3.766179186669883*^9, 3.766179190486782*^9}}, CellID->6847638], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", " ", "args___", " ", "]"}], " ", ":=", " ", RowBox[{"Null", " ", "/;", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"len", " ", "=", " ", RowBox[{"Length", " ", "@", " ", RowBox[{"HoldComplete", " ", "@", " ", "args"}]}]}], " ", "}"}], ",", "\n", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"!", " ", RowBox[{"MatchQ", "[", " ", RowBox[{"len", ",", " ", RowBox[{"1", "|", "2"}]}], " ", "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "::", "argt"}], ",", "\n", " ", "DeleteAdjacentDuplicates", ",", "\n", " ", "len", ",", "\n", " ", "1", ",", "\n", " ", "2"}], "\n", " ", "]"}]}], "\n", " ", "]"}]}], "\n", " ", "]"}], ";", "\n", " ", "False"}], "\n", ")"}]}]}], ";"}]], "Code", CellChangeTimes->{{3.7627193460887785`*^9, 3.762719446011649*^9}, { 3.7631424852573123`*^9, 3.7631424865772696`*^9}, {3.7631426584488745`*^9, 3.763142685660016*^9}, {3.763464066842353*^9, 3.7634640936285367`*^9}, 3.763464167225235*^9, {3.7634655764684477`*^9, 3.763465703437502*^9}, { 3.7634658459350743`*^9, 3.7634658799660163`*^9}, {3.76471117689642*^9, 3.7647111874530973`*^9}, {3.7647112333595247`*^9, 3.7647112626593857`*^9}, {3.7647139490642014`*^9, 3.764713950302932*^9}, { 3.766179199785495*^9, 3.766179377584016*^9}, {3.7661797726784754`*^9, 3.7661797728754687`*^9}, {3.766180006312293*^9, 3.7661801192678227`*^9}}, CellLabel->"In[13]:=", CellID->1476935127] }, Open ]], Cell[CellGroupData[{ Cell["Dependencies", "Subsection", CellChangeTimes->{{3.7661791757032375`*^9, 3.7661791774381685`*^9}}, CellID->272726046], Cell[BoxData[{ RowBox[{ RowBox[{"deleteAdjacentDuplicates", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"deleteAdjacentDuplicates", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldAllComplete", " ", "}"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7661753709545174`*^9, 3.7661753754933753`*^9}, { 3.766180701698924*^9, 3.7661807123715963`*^9}}, CellLabel->"In[14]:=", CellID->339040886], Cell["Special handling for associations:", "Text", CellChangeTimes->{{3.766179402780244*^9, 3.766179408056095*^9}}, CellID->165242514], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"deleteAdjacentDuplicates", "[", " ", RowBox[{"assoc_Association", "?", " ", "AssociationQ"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"Rule", ",", " ", "RuleDelayed"}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"SetAttributes", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"Rule", ",", " ", "RuleDelayed"}], " ", "}"}], ",", " ", "HoldAllComplete"}], " ", "]"}], ";", "\n", " ", RowBox[{"Association", " ", "@@", " ", RowBox[{ RowBox[{"SplitBy", "[", " ", RowBox[{ RowBox[{"Normal", " ", "@", " ", "assoc"}], ",", " ", "ruleSplitter"}], " ", "]"}], "[", RowBox[{"[", " ", RowBox[{"All", ",", " ", "1"}], " ", "]"}], "]"}]}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.766175337092554*^9, 3.7661753975546975`*^9}, { 3.766175665351469*^9, 3.7661756675563993`*^9}, {3.766176138974916*^9, 3.7661761394099035`*^9}, {3.7661801303824816`*^9, 3.766180148184936*^9}}, CellLabel->"In[16]:=", CellID->4346185], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"deleteAdjacentDuplicates", "[", " ", RowBox[{ RowBox[{"assoc_Association", "?", " ", "AssociationQ"}], ",", " ", "f_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"Rule", ",", " ", "RuleDelayed"}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"SetAttributes", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"Rule", ",", " ", "RuleDelayed"}], " ", "}"}], ",", " ", "HoldAllComplete"}], " ", "]"}], ";", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"splitter", ",", " ", "split"}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"splitter", " ", "=", " ", RowBox[{"Function", "[", "\n", " ", RowBox[{"Null", ",", "\n", " ", RowBox[{"f", " ", "@@", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"HoldComplete", " ", "@", " ", "##1"}], ",", " ", "\n", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Rule", "|", "RuleDelayed"}], ")"}], "[", " ", RowBox[{"_", ",", " ", "value_"}], " ", "]"}], " ", ":>", " ", "value"}], ",", " ", "\n", " ", RowBox[{"{", " ", "1", " ", "}"}]}], "\n", " ", "]"}]}], ",", "\n", " ", RowBox[{"{", " ", "HoldAllComplete", " ", "}"}]}], "\n", " ", "]"}]}], ";", "\n", " ", RowBox[{"split", " ", "=", " ", RowBox[{"Split", "[", " ", RowBox[{ RowBox[{"Normal", " ", "@", " ", "assoc"}], ",", " ", "splitter"}], "]"}]}], ";", "\n", " ", RowBox[{"Association", " ", "@@", " ", RowBox[{"split", "[", RowBox[{"[", " ", RowBox[{"All", ",", " ", "1"}], " ", "]"}], "]"}]}]}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.766176044184827*^9, 3.7661760708390093`*^9}, { 3.766179846352195*^9, 3.7661799828999968`*^9}}, CellLabel->"In[17]:=", CellID->531080154], Cell["Normal expressions:", "Text", CellChangeTimes->{{3.7661794172208157`*^9, 3.766179419616742*^9}}, CellID->23813666], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"deleteAdjacentDuplicates", "[", " ", RowBox[{ RowBox[{"h_", "[", " ", "args___", " ", "]"}], ",", " ", "f___"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"h", " ", "@@", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"Split", "[", " ", RowBox[{ RowBox[{"HoldComplete", " ", "@", " ", "args"}], ",", " ", "f"}], " ", "]"}], ",", " ", "\n", " ", RowBox[{ RowBox[{"HoldComplete", "[", " ", RowBox[{"x_", ",", " ", "___"}], " ", "]"}], " ", ":>", " ", "x"}], ",", " ", "\n", " ", RowBox[{"{", " ", "1", " ", "}"}]}], "\n", " ", "]"}]}]}], ";"}]], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{ 3.765127563371043*^9, {3.7651276527023897`*^9, 3.7651277075027657`*^9}, { 3.7661730015203114`*^9, 3.7661730093270884`*^9}, {3.76617318174679*^9, 3.766173191286498*^9}, {3.7661733951712303`*^9, 3.7661733963161955`*^9}, 3.7661734398738403`*^9}, CellTags->"TabNext", CellLabel->"In[18]:=", CellID->100442523], Cell[TextData[{ "Fail if ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is atomic:" }], "Text", CellChangeTimes->{{3.7661795919840283`*^9, 3.7661796171312556`*^9}}, CellID->164393690], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"e", ":", " ", RowBox[{"deleteAdjacentDuplicates", "[", " ", RowBox[{ RowBox[{"expr_", " ", "/;", " ", RowBox[{"AtomQ", " ", "@", " ", RowBox[{"Unevaluated", " ", "@", " ", "expr"}]}]}], ",", " ", "___"}], " ", "]"}]}], " ", ":=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "::", "normal"}], ",", "\n", " ", "1", ",", "\n", " ", RowBox[{"HoldForm", " ", "@", " ", "e"}]}], "\n", " ", "]"}], ";", "\n", " ", "$fail"}], "\n", ")"}]}], ";"}]], "Code", CellChangeTimes->{{3.766179630503826*^9, 3.7661796416724977`*^9}, { 3.766179672094565*^9, 3.7661797332026863`*^9}, {3.7661801598655753`*^9, 3.7661801774800324`*^9}}, CellLabel->"In[19]:=", CellID->549710250], Cell[BoxData[{ RowBox[{ RowBox[{"ruleSplitter", " ", "//", " ", "ClearAll"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ruleSplitter", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldAllComplete", " ", "}"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ruleSplitter", "[", " ", RowBox[{ RowBox[{"(", RowBox[{"Rule", "|", "RuleDelayed"}], ")"}], "[", " ", RowBox[{"_", ",", " ", "value_"}], " ", "]"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"HoldComplete", " ", "@", " ", "value"}]}], ";"}]}], "Code", CellChangeTimes->{{3.76617472946023*^9, 3.766174767044076*^9}, { 3.7661748100737543`*^9, 3.7661748209884152`*^9}, {3.7661752097734675`*^9, 3.7661752160992575`*^9}, 3.766175306101492*^9, {3.76617547268139*^9, 3.766175496493658*^9}, {3.7661755292116356`*^9, 3.7661755911957464`*^9}, { 3.766176119142518*^9, 3.7661761311941366`*^9}, {3.766180190892622*^9, 3.766180195641459*^9}}, CellLabel->"In[20]:=", CellID->19192861] }, Open ]] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", StyleBox["list", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "deletes adjacent duplicate items from ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["test", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "applies ", Cell[BoxData[ StyleBox["test", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to pairs of adjacent elements in ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to determine if they should be considered duplicates." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ Cell[BoxData["DeleteAdjacentDuplicates"], "InlineFormula", FontFamily->"Source Sans Pro"], " also works on associations, removing entries whose values duplicate those \ coming just before them in the association." }], "Notes", CellChangeTimes->{{3.7661763189983864`*^9, 3.766176321420295*^9}}, CellID->1016470021], Cell[TextData[{ Cell[BoxData["DeleteAdjacentDuplicates"], "InlineFormula", FontFamily->"Source Sans Pro"], " never reorders elements, but only removes them. " }], "Notes", CellID->517264440], Cell[TextData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", StyleBox["list", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{ StyleBox["list", "TI"], ",", TemplateBox[{"SameQ","paclet:ref/SameQ"}, "RefLink", BaseStyle->{"InlineFormula"}]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->221139549] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellLabel->"In[258]:=", CellID->217125399], Cell["Delete adjacent duplicated elements:", "Text", CellChangeTimes->{{3.7661763829324017`*^9, 3.766176384394356*^9}}, CellID->177481113], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7661763562762375`*^9, 3.7661763701818104`*^9}, 3.766176960478653*^9}, CellLabel->"In[1]:=", CellID->264909192], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.766176372432743*^9, 3.7661771158958936`*^9}, CellLabel->"Out[1]=", CellID->207817835] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->178246918], Cell["\<\ Delete elements whose values duplicate those just before them in the \ association:\ \>", "Text", CellChangeTimes->{{3.766176397769945*^9, 3.766176399366914*^9}}, CellID->1581072857], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{"<|", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"d", "\[Rule]", "2"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "|>"}], "]"}]], "Input", CellChangeTimes->{{3.7661764103685756`*^9, 3.766176426822052*^9}}, CellLabel->"In[1]:=", CellID->2135250658], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{{3.7661764197542863`*^9, 3.7661764279480333`*^9}, 3.7661771160758715`*^9}, CellLabel->"Out[1]=", CellID->135310926] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellLabel->"In[2]:=", CellID->518072446], Cell["\<\ Delete elements unless they are larger than the preceding ones:\ \>", "Text", CellChangeTimes->{{3.766176536861688*^9, 3.7661765639568567`*^9}}, CellID->719741756], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "5", ",", "4", ",", "3", ",", "4", ",", "1", ",", "9", ",", "9", ",", "7", ",", "8"}], "}"}], ",", "Greater"}], "]"}]], "Input",\ CellChangeTimes->{ 3.7661742795790553`*^9, 3.766176445019509*^9, {3.7661764917310753`*^9, 3.7661764929230385`*^9}, {3.7661765252940435`*^9, 3.7661765272429857`*^9}}, CellLabel->"In[1]:=", CellID->1233039742], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "4", ",", "9", ",", "9", ",", "8"}], "}"}]], "Output", CellChangeTimes->{ 3.7661742816679883`*^9, {3.766176440731642*^9, 3.766176446390467*^9}, 3.7661764943099976`*^9, 3.7661765278199654`*^9, 3.766177120492752*^9}, CellLabel->"Out[1]=", CellID->113307086] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->36379460], Cell["\<\ Delete adjacent duplicates from an association without evaluating any of the \ keys or values:\ \>", "Text", CellChangeTimes->{{3.7661771938024826`*^9, 3.766177210385973*^9}}, CellID->125695648], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"assoc", "=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "Echo", "}"}], ",", RowBox[{"<|", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"d", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "|>"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7661769785131173`*^9, 3.7661770213207827`*^9}, { 3.7661771476399174`*^9, 3.7661771546077023`*^9}}, CellLabel->"In[1]:=", CellID->18645409], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"d", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.7661770232807384`*^9, 3.7661771318104067`*^9, {3.7661771695622435`*^9, 3.7661771836107965`*^9}}, CellLabel->"Out[1]=", CellID->182831355] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", "assoc", "]"}]], "Input", CellChangeTimes->{{3.766177030272524*^9, 3.7661770456440506`*^9}, 3.7661771297034683`*^9}, CellLabel->"In[2]:=", CellID->749280958], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{{3.7661770318364763`*^9, 3.7661770464050283`*^9}, 3.766177131928401*^9, 3.766177183726794*^9}, CellLabel->"Out[2]=", CellID->408727231] }, Open ]], Cell["They will still evaluate if unpacked from the association:", "Text", CellChangeTimes->{{3.7661772564235744`*^9, 3.766177265254287*^9}}, CellID->173413911], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normal", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7661772480328164`*^9, 3.766177250209766*^9}}, CellLabel->"In[3]:=", CellID->702337592], Cell[CellGroupData[{ Cell[BoxData["a"], "Echo", CellChangeTimes->{3.766177251611721*^9}, CellID->294698704], Cell[BoxData["2"], "Echo", CellChangeTimes->{3.7661772516197233`*^9}, CellID->524948387] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "}"}]], "Output", CellChangeTimes->{3.766177251682704*^9}, CellLabel->"Out[3]=", CellID->259676894] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->965342888], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Unevaluated", "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/Unevaluated"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to delete adjacent duplicates before they can evaluate:" }], "Text", CellChangeTimes->{{3.766180760448124*^9, 3.7661807779145665`*^9}}, CellID->2246634], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{"Unevaluated", "[", RowBox[{"{", RowBox[{ RowBox[{"Echo", "[", "1", "]"}], ",", RowBox[{"Echo", "[", "1", "]"}], ",", RowBox[{"Echo", "[", "1", "]"}], ",", RowBox[{"Echo", "[", "2", "]"}], ",", RowBox[{"Echo", "[", "2", "]"}]}], "}"}], "]"}], "]"}]], "Input", CellLabel->"In[1]:=", CellID->399749086], Cell[CellGroupData[{ Cell[BoxData["1"], "Echo", CellChangeTimes->{3.766180786141329*^9}, CellID->290695821], Cell[BoxData["2"], "Echo", CellChangeTimes->{3.7661807861503286`*^9}, CellID->335669770] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.7661807862133274`*^9}, CellLabel->"Out[1]=", CellID->181777492] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->26492449], Cell["The first argument can be any nonatomic expression:", "Text", CellChangeTimes->{{3.7661808227702036`*^9, 3.766180875574581*^9}}, CellID->398606698], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{"f", "[", RowBox[{ "x", ",", "x", ",", "y", ",", "y", ",", "y", ",", "x", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7661808054147377`*^9, 3.7661808166083965`*^9}, { 3.766180882779343*^9, 3.7661809018257732`*^9}}, CellLabel->"In[1]:=", CellID->4053327], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{ 3.7661808183563385`*^9, {3.7661808799154463`*^9, 3.766180905769654*^9}}, CellLabel->"Out[1]=", CellID->284453133] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellChangeTimes->{{3.7723807860609365`*^9, 3.772380786648754*^9}}, CellID->775451806], Cell[TextData[{ Cell[BoxData["DeleteAdjacentDuplicates"], "InlineFormula", FontFamily->"Source Sans Pro"], " is similar to taking the first of each item from ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Split", "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/Split"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.766176694471827*^9, 3.766176714979213*^9}}, CellID->196570589], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"RandomInteger", "[", RowBox[{"2", ",", "20"}], "]"}]}]], "Input", CellChangeTimes->{{3.7661765768354616`*^9, 3.766176577498438*^9}, { 3.7661766324617486`*^9, 3.766176679220315*^9}, {3.7661767316847014`*^9, 3.7661767329786634`*^9}}, CellLabel->"In[233]:=", CellID->580743519], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "2", ",", "2", ",", "0", ",", "1", ",", "0", ",", "2", ",", "2", ",", "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "0", ",", "0", ",", "0", ",", "2"}], "}"}]], "Output", CellChangeTimes->{{3.7661766481002693`*^9, 3.766176681977232*^9}, 3.766176733581642*^9}, CellLabel->"Out[233]=", CellID->477034361] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Split", "[", "list", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.76617658958805*^9, 3.766176600410718*^9}}, CellLabel->"In[234]:=", CellID->190267733], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "0", ",", "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "0", ",", "2"}], "}"}]], "Output", CellChangeTimes->{{3.7661765916710033`*^9, 3.766176600911702*^9}, { 3.7661766356276517`*^9, 3.76617668354618*^9}, 3.7661767355015817`*^9}, CellLabel->"Out[234]=", CellID->495515347] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", "list", "]"}]], "Input", CellLabel->"In[235]:=", CellID->89925215], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "0", ",", "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "0", ",", "2"}], "}"}]], "Output", CellChangeTimes->{ 3.7661766050645914`*^9, {3.7661766539350896`*^9, 3.766176684583148*^9}, 3.766176736451537*^9}, CellLabel->"Out[235]=", CellID->98562569] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->126426808], Cell["Delete sublists that have the same total:", "Text", CellID->8487430], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.766176762223765*^9, 3.7661768074243755`*^9}, { 3.7661768379874353`*^9, 3.7661768387424107`*^9}}, CellLabel->"In[239]:=", CellID->651952365], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.766176808779331*^9, 3.7661768395993843`*^9}, CellLabel->"Out[239]=", CellID->335859939] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{"list", ",", RowBox[{ RowBox[{ RowBox[{"Total", "[", "#1", "]"}], "\[Equal]", RowBox[{"Total", "[", "#2", "]"}]}], "&"}]}], "]"}]], "Input", CellLabel->"In[240]:=", CellID->792844148], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7661768097792997`*^9, 3.766176840757333*^9}, CellLabel->"Out[240]=", CellID->158625365] }, Open ]], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SplitBy", "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/SplitBy"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be used to achieve the same result:" }], "Text", CellChangeTimes->{{3.7661768795181565`*^9, 3.7661768861459365`*^9}}, CellID->497274617], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SplitBy", "[", RowBox[{"list", ",", "Total"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7661768698824368`*^9, 3.7661768737303357`*^9}}, CellLabel->"In[242]:=", CellID->392441279], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7661768745442934`*^9}, CellLabel->"Out[242]=", CellID->19144807] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Richard Hennigan (Wolfram Research)", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["delete duplicates", "Item"], Cell["delete adjacent duplicates", "Item"], Cell["delete duplicate neighbors", "Item"], Cell["delete split", "Item"], Cell["split drop", "Item"], Cell["drop duplicates", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Core Language & Structure", "Item"], Cell["Data Manipulation & Analysis", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["DeleteDuplicates", "Item"], Cell["DeleteDuplicatesBy", "Item"], Cell["Split", "Item"], Cell["SplitBy", "Item"], Cell["Union", "Item"], Cell["Counts", "Item"], Cell["Tally", "Item"], Cell["DuplicateFreeQ", "Item"], Cell["DeleteCases", "Item"], Cell["Select", "Item"], Cell["Gather", "Item"], Cell["Partition", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["DeleteCasesFrom", "Item"], Cell["DeleteFrom", "Item"], Cell["Discard", "Item"], Cell["KeyReplace", "Item"], Cell["SplitWhen", "Item"], Cell["UniqueCases", "Item"], Cell["UnsortedComplement", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell[TextData[ButtonBox["Guide: Rearranging & Restructuring Lists", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/\ RearrangingAndRestructuringLists"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/\ RearrangingAndRestructuringLists"]], "Item"], Cell[TextData[ButtonBox["Guide: Database-Like Operations on Datasets", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/\ DatabaseLikeOperationsOnDatasets"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/\ DatabaseLikeOperationsOnDatasets"]], "Item"], Cell[TextData[ButtonBox["Guide: Operations on Sets", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/OperationsOnSets"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/OperationsOnSets"]], "Item"], Cell[TextData[ButtonBox["Guide: Handling Arrays of Data", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/HandlingArraysOfData"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/HandlingArraysOfData"]], \ "Item"], Cell[TextData[ButtonBox["Guide: Associations", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/Associations"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/Associations"]], "Item"], Cell[TextData[ButtonBox["Guide: Computation with Structured Datasets", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/\ ComputationWithStructuredDatasets"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/\ ComputationWithStructuredDatasets"]], "Item"], Cell[TextData[ButtonBox["Guide: Elements of Lists", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/ElementsOfLists"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/ElementsOfLists"]], "Item"], Cell[TextData[ButtonBox["Guide: List Manipulation", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/ListManipulation"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/ListManipulation"]], "Item"], Cell[TextData[ButtonBox["Guide: Machine Learning", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/MachineLearning"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/MachineLearning"]], "Item"], Cell[TextData[ButtonBox["\!\(\*StyleBox[\"An\",FontSlant->\"Italic\"]\)\!\(\*\ StyleBox[\" \ \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Elementary\",FontSlant->\"Italic\"\ ]\)\!\(\*StyleBox[\" \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Introduction\ \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"to\",FontSlant->\"Italic\"]\)\!\(\ \*StyleBox[\" \ \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"the\",FontSlant->\"Italic\"]\)\!\(\ \*StyleBox[\" \ \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Wolfram\",FontSlant->\"Italic\"]\)\ \!\(\*StyleBox[\" \ \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Language\",FontSlant->\"Italic\"]\ \)", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.wolfram.com/language/elementary-introduction/2nd-ed/30-\ rearranging-lists.html"], None}, ButtonNote-> "https://www.wolfram.com/language/elementary-introduction/2nd-ed/30-\ rearranging-lists.html"]], "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",", " ", "1", ",", " ", "2", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "2", ",", " ", "0"}], "}"}]}], "\n", "]"}]], "Input", CellLabel->"In[1]:=", CellID->145109044], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"Delete\"", "\[Ellipsis]", "\"licates\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"DeleteAdjacentDuplicates\""}], ResourceFunction["DeleteAdjacentDuplicates"], Selectable -> False], "[", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 13, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`DeleteAdjacentDuplicates[{0, 0, 0, 1, 1, 2, 0, 0, 0, 0}]], "ExpectedOutput" -> HoldForm[{0, 1, 2, 0}], "ActualOutput" -> HoldForm[{0, 1, 2, 0}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[120, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.766178919924003*^9, 3.7661790422082467`*^9, 3.7661798036495056`*^9, 3.7661802254795427`*^9}, CellLabel->"Out[1]=", CellID->87551862] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", "\n", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{"a", " ", "->", " ", "1"}], ",", " ", RowBox[{"b", " ", "->", " ", "1"}], ",", " ", RowBox[{"c", " ", "->", " ", "2"}], ",", " ", RowBox[{"d", " ", "->", " ", "2"}], ",", " ", RowBox[{"e", " ", "->", " ", "1"}]}], "]"}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{"a", " ", "->", " ", "1"}], ",", " ", RowBox[{"c", " ", "->", " ", "2"}], ",", " ", RowBox[{"e", " ", "->", " ", "1"}]}], "]"}]}], "\n", "]"}]], "Input", CellLabel->"In[2]:=", CellID->10847275], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"Delete\"", "\[Ellipsis]", "\"licates\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"DeleteAdjacentDuplicates\""}], ResourceFunction["DeleteAdjacentDuplicates"], Selectable -> False], "[", RowBox[{"Association", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 14, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`DeleteAdjacentDuplicates[ Association[$CellContext`a -> 1, $CellContext`b -> 1, $CellContext`c -> 2, $CellContext`d -> 2, $CellContext`e -> 1]]], "ExpectedOutput" -> HoldForm[ Association[$CellContext`a -> 1, $CellContext`c -> 2, $CellContext`e -> 1]], "ActualOutput" -> HoldForm[ Association[$CellContext`a -> 1, $CellContext`c -> 2, $CellContext`e -> 1]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[424, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.766178920026001*^9, 3.766179042288243*^9, 3.766179803771517*^9, 3.76618022558154*^9}, CellLabel->"Out[2]=", CellID->156149980] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "3", ",", " ", "5", ",", " ", "4", ",", " ", "3", ",", " ", "4", ",", " ", "1", ",", " ", "9", ",", " ", "9", ",", " ", "7", ",", " ", "8"}], "}"}], ",", " ", "Greater"}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ "1", ",", " ", "3", ",", " ", "5", ",", " ", "4", ",", " ", "9", ",", " ", "9", ",", " ", "8"}], "}"}]}], "\n", "]"}]], "Input", CellLabel->"In[3]:=", CellID->566735212], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"Delete\"", "\[Ellipsis]", "\"licates\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"DeleteAdjacentDuplicates\""}], ResourceFunction["DeleteAdjacentDuplicates"], Selectable -> False], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}], ",", "9", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "7", "\[RightSkeleton]"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "5", ",", "4", ",", "9", ",", "9", ",", "8"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "5", ",", "4", ",", "9", ",", "9", ",", "8"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 15, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`DeleteAdjacentDuplicates[{1, 3, 5, 4, 3, 4, 1, 9, 9, 7, 8}, Greater]], "ExpectedOutput" -> HoldForm[{1, 3, 5, 4, 9, 9, 8}], "ActualOutput" -> HoldForm[{1, 3, 5, 4, 9, 9, 8}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[144, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.766178920100997*^9, 3.766179042364242*^9, 3.766179803861513*^9, 3.7661802256805353`*^9}, CellLabel->"Out[3]=", CellID->281337865] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"assoc", " ", "=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "Echo", "}"}], ",", "\n", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], " ", "->", " ", "1"}], ",", " ", RowBox[{"b", " ", "->", " ", "1"}], ",", " ", RowBox[{"c", " ", "->", " ", RowBox[{"Echo", "[", "2", "]"}]}], ",", " ", RowBox[{"d", " ", "->", " ", RowBox[{"Echo", "[", "2", "]"}]}], ",", " ", RowBox[{"e", " ", "->", " ", "1"}]}], "]"}]}], "\n", " ", "]"}]}], ",", "\n", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "Echo", "}"}], ",", "\n", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], " ", "->", " ", "1"}], ",", " ", RowBox[{"b", " ", "->", " ", "1"}], ",", " ", RowBox[{"c", " ", "->", " ", RowBox[{"Echo", "[", "2", "]"}]}], ",", " ", RowBox[{"d", " ", "->", " ", RowBox[{"Echo", "[", "2", "]"}]}], ",", " ", RowBox[{"e", " ", "->", " ", "1"}]}], "]"}]}], "\n", " ", "]"}]}], "\n", "]"}]], "Input", CellChangeTimes->{{3.766178997301626*^9, 3.7661790012135057`*^9}}, CellLabel->"In[4]:=", CellID->96375623], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"assoc", "=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "Echo", "}"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], ",", RowBox[{"d", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], ",", RowBox[{"d", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 16, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`assoc = Block[{Echo}, Association[ Echo[$CellContext`a] -> 1, $CellContext`b -> 1, $CellContext`c -> Echo[2], $CellContext`d -> Echo[2], $CellContext`e -> 1]]], "ExpectedOutput" -> HoldForm[ Association[ Echo[$CellContext`a] -> 1, $CellContext`b -> 1, $CellContext`c -> Echo[2], $CellContext`d -> Echo[2], $CellContext`e -> 1]], "ActualOutput" -> HoldForm[ Association[ Echo[$CellContext`a] -> 1, $CellContext`b -> 1, $CellContext`c -> Echo[2], $CellContext`d -> Echo[2], $CellContext`e -> 1]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[648, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7661789202559934`*^9, {3.766178999298564*^9, 3.7661790027354603`*^9}, 3.7661790424592223`*^9, 3.7661798039635096`*^9, 3.7661802257815323`*^9}, CellLabel->"Out[4]=", CellID->8342501] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", "assoc", "]"}], ",", "\n", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "Echo", "}"}], ",", "\n", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], " ", "->", " ", "1"}], ",", " ", RowBox[{"c", " ", "->", " ", RowBox[{"Echo", "[", "2", "]"}]}], ",", " ", RowBox[{"e", " ", "->", " ", "1"}]}], "]"}]}], "\n", " ", "]"}]}], "\n", "]"}]], "Input", CellChangeTimes->{{3.7661790097342443`*^9, 3.7661790212288904`*^9}}, CellLabel->"In[5]:=", CellID->71763901], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"Delete\"", "\[Ellipsis]", "\"licates\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"DeleteAdjacentDuplicates\""}], ResourceFunction["DeleteAdjacentDuplicates"], Selectable -> False], "[", "assoc", "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", RowBox[{"Echo", "[", "2", "]"}]}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "\[RightAssociation]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 17, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`DeleteAdjacentDuplicates[$CellContext`assoc]], "ExpectedOutput" -> HoldForm[ Association[ Echo[$CellContext`a] -> 1, $CellContext`c -> Echo[2], $CellContext`e -> 1]], "ActualOutput" -> HoldForm[ Association[ Echo[$CellContext`a] -> 1, $CellContext`c -> Echo[2], $CellContext`e -> 1]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[424, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7661789203439913`*^9, {3.766179022442853*^9, 3.766179042541235*^9}, 3.766179804060513*^9, 3.766180225883545*^9}, CellLabel->"Out[5]=", CellID->285002297] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"Normal", "[", RowBox[{"Association", "[", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], " ", "->", " ", "1"}], ",", " ", RowBox[{"c", " ", "->", " ", RowBox[{"Echo", "[", "2", "]"}]}], ",", " ", RowBox[{"e", " ", "->", " ", "1"}]}], "]"}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"a", " ", "->", " ", "1"}], ",", " ", RowBox[{"c", " ", "->", " ", "2"}], ",", " ", RowBox[{"e", " ", "->", " ", "1"}]}], "}"}]}], "\n", "]"}]], "Input", CellLabel->"In[6]:=", CellID->257740062], Cell[CellGroupData[{ Cell[BoxData["a"], "Echo", CellChangeTimes->{3.766180225977542*^9}, CellID->710673045], Cell[BoxData["2"], "Echo", CellChangeTimes->{3.766180225985544*^9}, CellID->213745373] }, Open ]], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Normal", "[", RowBox[{"Association", "[", RowBox[{ RowBox[{ RowBox[{"Echo", "[", "a", "]"}], "\[Rule]", "1"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"e", "\[Rule]", "1"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0970145`6.137351647555578", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 18, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Normal[ Association[ Echo[$CellContext`a] -> 1, $CellContext`c -> Echo[2], $CellContext`e -> 1]]], "ExpectedOutput" -> HoldForm[{$CellContext`a -> 1, $CellContext`c -> 2, $CellContext`e -> 1}], "ActualOutput" -> HoldForm[{$CellContext`a -> 1, $CellContext`c -> 2, $CellContext`e -> 1}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0970145`6.137351647555578, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[432, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.766178920455988*^9, 3.7661790426662335`*^9, 3.766179804215502*^9, 3.766180226040543*^9}, CellLabel->"Out[6]=", CellID->854651709] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", "\n", " ", RowBox[{"list", " ", "=", " ", RowBox[{"RandomInteger", "[", RowBox[{"2", ",", " ", "20"}], "]"}]}]}], ",", "\n", " ", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}]}], "\n", "]"}]], "Input", CellChangeTimes->{{3.7661789349195433`*^9, 3.766178962787671*^9}}, CellLabel->"In[7]:=", CellID->32760509], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"list", "=", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 19, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`list = RandomInteger[2, 20]], "ExpectedOutput" -> HoldForm[{1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 2, 0, 1, 2, 0, 0, 1, 1}], "ActualOutput" -> HoldForm[{1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 2, 0, 1, 2, 0, 0, 1, 1}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[312, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7661789205069714`*^9, {3.7661789532889776`*^9, 3.7661789645216355`*^9}, 3.7661790427162313`*^9, 3.766179804376483*^9, 3.766180226107522*^9}, CellLabel->"Out[7]=", CellID->106426674] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Split", "[", "list", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}]}], "\n", "]"}]], "Input",\ CellChangeTimes->{{3.766178971275428*^9, 3.766178973276349*^9}}, CellLabel->"In[8]:=", CellID->144240602], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"Split", "[", "list", "]"}], "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 20, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Part[ Split[$CellContext`list], All, 1]], "ExpectedOutput" -> HoldForm[{1, 0, 1, 0, 1, 0, 2, 0, 1, 2, 0, 1}], "ActualOutput" -> HoldForm[{1, 0, 1, 0, 1, 0, 2, 0, 1, 2, 0, 1}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[192, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7661789205479836`*^9, 3.766178974858301*^9, 3.7661790427572303`*^9, 3.7661798044364805`*^9, 3.7661802261635375`*^9}, CellLabel->"Out[8]=", CellID->114800694] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", "list", "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}]}], "\n", "]"}]], "Input",\ CellChangeTimes->{{3.7661789782311974`*^9, 3.766178980249134*^9}}, CellLabel->"In[9]:=", CellID->267345850], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"Delete\"", "\[Ellipsis]", "\"licates\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"DeleteAdjacentDuplicates\""}], ResourceFunction["DeleteAdjacentDuplicates"], Selectable -> False], "[", "list", "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0009844`4.143686602862754", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 21, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`DeleteAdjacentDuplicates[$CellContext`list]], "ExpectedOutput" -> HoldForm[{1, 0, 1, 0, 1, 0, 2, 0, 1, 2, 0, 1}], "ActualOutput" -> HoldForm[{1, 0, 1, 0, 1, 0, 2, 0, 1, 2, 0, 1}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0009844`4.143686602862754, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[192, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7661789205889683`*^9, 3.7661789816621075`*^9, 3.7661790427992125`*^9, 3.7661798044944954`*^9, 3.7661802262215357`*^9}, CellLabel->"Out[9]=", CellID->414160485] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"list", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "1"}], "}"}]}], "}"}]}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "1"}], "}"}]}], "}"}]}], "\n", "]"}]], "Input", CellLabel->"In[10]:=", CellID->56075414], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"list", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0010001`4.150558425108852", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 22, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`list = {{1, 2}, {0, 3}, {1, 1}, {2, 0}, {2, 1}}], "ExpectedOutput" -> HoldForm[{{1, 2}, {0, 3}, {1, 1}, {2, 0}, {2, 1}}], "ActualOutput" -> HoldForm[{{1, 2}, {0, 3}, {1, 1}, {2, 0}, {2, 1}}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0010001`4.150558425108852, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7661789207079644`*^9, 3.766179042901223*^9, 3.7661798045514774`*^9, 3.766180226279535*^9}, CellLabel->"Out[10]=", CellID->100127584] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"DeleteAdjacentDuplicates", "[", RowBox[{"list", ",", " ", RowBox[{ RowBox[{ RowBox[{"Total", "[", "#1", "]"}], " ", "==", " ", RowBox[{"Total", "[", "#2", "]"}]}], " ", "&"}]}], " ", "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "1"}], "}"}]}], "}"}]}], "\n", "]"}]], "Input", CellLabel->"In[11]:=", CellID->208529718], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"Delete\"", "\[Ellipsis]", "\"licates\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"DeleteAdjacentDuplicates\""}], ResourceFunction["DeleteAdjacentDuplicates"], Selectable -> False], "[", RowBox[{"list", ",", RowBox[{ RowBox[{ RowBox[{"Total", "[", "#1", "]"}], "\[Equal]", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "&"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 23, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`DeleteAdjacentDuplicates[$CellContext`list, Total[#] == Total[#2]& ]], "ExpectedOutput" -> HoldForm[{{1, 2}, {1, 1}, {2, 1}}], "ActualOutput" -> HoldForm[{{1, 2}, {1, 1}, {2, 1}}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[112, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.766178920797962*^9, 3.766179042987222*^9, 3.766179804607476*^9, 3.7661802263375344`*^9}, CellLabel->"Out[11]=", CellID->55209583] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"SplitBy", "[", RowBox[{"list", ",", " ", "Total"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "1"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.766179034816472*^9}, CellLabel->"In[12]:=", CellID->240454230], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"SplitBy", "[", RowBox[{"list", ",", "Total"}], "]"}], "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 24, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Part[ SplitBy[$CellContext`list, Total], All, 1]], "ExpectedOutput" -> HoldForm[{{1, 2}, {1, 1}, {2, 1}}], "ActualOutput" -> HoldForm[{{1, 2}, {1, 1}, {2, 1}}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[112, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.766178920883975*^9, 3.766179043073219*^9, 3.7661798047884855`*^9, 3.766180226466528*^9}, CellLabel->"Out[12]=", CellID->286522369] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.19"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 61, 1, 70, "Title",ExpressionUUID->"fe9d60ef-80ed-4354-927c-caf1d6816599", CellTags->"Title"]}, "Description"->{ Cell[622, 23, 80, 1, 70, "Text",ExpressionUUID->"7937fabc-1db1-4fe0-a265-2e0cb2ab26ff", CellTags->"Description"]}, "Definition"->{ Cell[727, 28, 887, 21, 70, "Section",ExpressionUUID->"dfa921fb-e9cc-4fc9-8daf-56f9d2e88ddb", CellTags->"Definition", CellID->474513213]}, "TabNext"->{ Cell[13851, 328, 1242, 28, 70, "Code",ExpressionUUID->"6c25bc15-2fac-4e2d-8c4f-aaa46d0eb3b3", CellTags->"TabNext", CellID->778396829], Cell[15096, 358, 1360, 29, 70, "Code",ExpressionUUID->"ba23d121-7292-4748-8a29-315889b1b13c", CellTags->"TabNext", CellID->394940125], Cell[23360, 563, 1474, 33, 70, "Code",ExpressionUUID->"449dacff-5839-4893-9060-f77524fced0a", CellTags->"TabNext", CellID->100442523], Cell[58211, 1692, 496, 8, 70, "Text",ExpressionUUID->"6274d88a-1e46-4c92-b1a1-a87efbafe14b", CellTags->"TabNext", CellID->343081869], Cell[198999, 4845, 509, 8, 70, "Text",ExpressionUUID->"9271ca2c-c719-4b69-a5cd-c48d433be610", CellTags->"TabNext", CellID->567921317], Cell[200268, 4879, 495, 8, 70, "Text",ExpressionUUID->"4e1a950b-74e5-4274-a8b9-c1afa328c7fa", CellTags->"TabNext", CellID->920818074]}, "Documentation"->{ Cell[27187, 665, 99, 3, 70, "Section",ExpressionUUID->"e2739879-3b3a-4c52-9558-b97d6440acbd", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[27311, 672, 1615, 42, 70, "Subsection",ExpressionUUID->"c3a788cf-c915-426e-a023-16cd5ee51b66", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[29815, 755, 1131, 24, 70, "Subsection",ExpressionUUID->"bfcd1e1d-8332-430d-975f-9bfa885fc5d6", CellTags->"Details & Options", CellID->66019318]}, "Examples"->{ Cell[32007, 818, 6400, 143, 70, "Section",ExpressionUUID->"6be43e65-b736-4ff4-bd70-e9dd63288b9c", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[53322, 1507, 135, 3, 70, "Section",ExpressionUUID->"82259f54-0e21-422a-a74a-3e74108264c8", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[53482, 1514, 683, 18, 70, "Subsection",ExpressionUUID->"c9d48459-4e61-47f9-b383-86e579bacc9e", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[54256, 1539, 684, 18, 70, "Subsection",ExpressionUUID->"355d489a-c8f3-4e5a-92a7-57c10b299678", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[55197, 1574, 126, 4, 70, "Subsection",ExpressionUUID->"d434b2d7-26e0-4aec-844d-66db3670c8fb", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[55451, 1587, 661, 18, 70, "Subsection",ExpressionUUID->"f4f1fcb4-db74-4baa-aaf4-70f2bc3fe5ea", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[56485, 1634, 711, 18, 70, "Subsection",ExpressionUUID->"029b80b6-bd52-41c7-ac3f-559e3e2e1e65", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[57446, 1671, 762, 19, 70, "Subsection",ExpressionUUID->"3e125326-a87b-4874-8e92-62457d1f661e", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[58744, 1705, 614, 18, 70, "Subsection",ExpressionUUID->"7e9f5306-1140-46dd-86f1-52753c855406", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[62898, 1822, 767, 20, 70, "Subsection",ExpressionUUID->"866e4314-7c84-45cd-babc-904474d72c65", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[198869, 4839, 127, 4, 70, "Section",ExpressionUUID->"5343b9cf-9320-46b1-8624-2761582b191c", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[199545, 4858, 720, 19, 70, "Section",ExpressionUUID->"c472e5e1-3167-400d-b99a-b726a2e4a9d7", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 271739, 6255}, {"Description", 271872, 6258}, {"Definition", 272009, 6261}, {"TabNext", 272169, 6265}, {"Documentation", 273047, 6284}, {"Usage", 273209, 6288}, {"Details & Options", 273381, 6292}, {"Examples", 273555, 6296}, {"Source & Additional Information", 273742, 6300}, {"Contributed By", 273933, 6304}, {"Keywords", 274105, 6308}, {"Categories", 274273, 6312}, {"Related Symbols", 274447, 6316}, {"Related Resource Objects", 274636, 6320}, {"Source/Reference Citation", 274835, 6324}, {"Links", 275015, 6328}, {"Tests", 275175, 6332}, {"Author Notes", 275341, 6336}, {"Submission Notes", 275516, 6340} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 61, 1, 70, "Title",ExpressionUUID->"fe9d60ef-80ed-4354-927c-caf1d6816599", CellTags->"Title"], Cell[622, 23, 80, 1, 70, "Text",ExpressionUUID->"7937fabc-1db1-4fe0-a265-2e0cb2ab26ff", CellTags->"Description"], Cell[CellGroupData[{ Cell[727, 28, 887, 21, 70, "Section",ExpressionUUID->"dfa921fb-e9cc-4fc9-8daf-56f9d2e88ddb", CellTags->"Definition", CellID->474513213], Cell[1617, 51, 248, 7, 70, "Code",ExpressionUUID->"aae321a8-bcce-437f-873b-99c0b5aaa165", InitializationCell->True, CellID->123578743], Cell[CellGroupData[{ Cell[1890, 62, 114, 2, 70, "Subsection",ExpressionUUID->"45f5bfe2-8121-48fa-bbff-fa7f33dc8a92", CellID->52231213], Cell[2007, 66, 4675, 99, 70, "Text",ExpressionUUID->"f47b340e-4528-4b0d-8090-3a8166c74e8f", CellID->191546246], Cell[6685, 167, 804, 18, 70, "Code",ExpressionUUID->"28036eb3-0455-47ce-9ff2-957ee579e1b0", CellID->1423589637] }, Open ]], Cell[CellGroupData[{ Cell[7526, 190, 122, 2, 70, "Subsection",ExpressionUUID->"a73bef89-50d3-4866-8fe7-db152bb5afb5", CellID->360791489], Cell[7651, 194, 5274, 109, 70, "Text",ExpressionUUID->"6c18f7b8-bc50-4d32-bf5c-90fba0124a86", CellID->19811963], Cell[12928, 305, 757, 14, 70, "Code",ExpressionUUID->"172a3abb-e78e-436a-aab1-3797f3c68214", CellID->38345076] }, Open ]], Cell[CellGroupData[{ Cell[13722, 324, 126, 2, 70, "Subsection",ExpressionUUID->"6a12d109-e676-4e37-ae28-d863fcd15efa", CellID->30266276], Cell[13851, 328, 1242, 28, 70, "Code",ExpressionUUID->"6c25bc15-2fac-4e2d-8c4f-aaa46d0eb3b3", CellTags->"TabNext", CellID->778396829], Cell[15096, 358, 1360, 29, 70, "Code",ExpressionUUID->"ba23d121-7292-4748-8a29-315889b1b13c", CellTags->"TabNext", CellID->394940125] }, Open ]], Cell[CellGroupData[{ Cell[16493, 392, 121, 2, 70, "Subsection",ExpressionUUID->"575c8ae3-80d7-4821-80e5-4940539e7818", CellID->101119512], Cell[16617, 396, 126, 2, 70, "Text",ExpressionUUID->"f72d7420-7258-4ade-a4ef-54bbc42fd188", CellID->6847638], Cell[16746, 400, 2056, 43, 70, "Code",ExpressionUUID->"1f7fb28a-d076-42c5-9302-df8667d6abb2", CellID->1476935127] }, Open ]], Cell[CellGroupData[{ Cell[18839, 448, 124, 2, 70, "Subsection",ExpressionUUID->"76d554e1-f4a9-42a4-9562-60847b742eb9", CellID->272726046], Cell[18966, 452, 457, 12, 70, "Code",ExpressionUUID->"b0f0994c-d695-4605-8fc3-5d21d2dc4a29", CellID->339040886], Cell[19426, 466, 136, 2, 70, "Text",ExpressionUUID->"89e7b001-5462-44d0-aa49-b9508b67ba78", CellID->165242514], Cell[19565, 470, 1211, 30, 70, "Code",ExpressionUUID->"19e21da1-afb2-409b-a306-f1039bec1810", CellID->4346185], Cell[20779, 502, 2453, 55, 70, "Code",ExpressionUUID->"b995d45d-d6e2-4bf4-bd99-2e78162fac96", CellID->531080154], Cell[23235, 559, 122, 2, 70, "Text",ExpressionUUID->"b42d05c8-1317-428d-9e6a-e64970f8d52d", CellID->23813666], Cell[23360, 563, 1474, 33, 70, "Code",ExpressionUUID->"449dacff-5839-4893-9060-f77524fced0a", CellTags->"TabNext", CellID->100442523], Cell[24837, 598, 238, 8, 70, "Text",ExpressionUUID->"963f667c-373e-430b-b97a-b56da77847a9", CellID->164393690], Cell[25078, 608, 1001, 25, 70, "Code",ExpressionUUID->"221e15de-cba5-45ea-bb7d-1162663bb35d", CellID->549710250], Cell[26082, 635, 1078, 26, 70, "Code",ExpressionUUID->"ddbbc80a-4701-456b-aa6f-2202388a5f45", CellID->19192861] }, Open ]] }, Open ]], Cell[27187, 665, 99, 3, 70, "Section",ExpressionUUID->"e2739879-3b3a-4c52-9558-b97d6440acbd", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[27311, 672, 1615, 42, 70, "Subsection",ExpressionUUID->"c3a788cf-c915-426e-a023-16cd5ee51b66", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[28951, 718, 105, 2, 70, "UsageInputs",ExpressionUUID->"bcf54bcf-1006-40f8-a000-dae8f81019c8"], Cell[29059, 722, 180, 6, 70, "UsageDescription",ExpressionUUID->"41dbb988-cb2f-4652-aa8e-930ac7a2db0f"] }, Open ]], Cell[CellGroupData[{ Cell[29276, 733, 152, 4, 70, "UsageInputs",ExpressionUUID->"0a8dd44c-ac17-4115-b764-47a4a89f3835"], Cell[29431, 739, 335, 10, 70, "UsageDescription",ExpressionUUID->"0146ef36-97e4-4f27-98b7-bad42ce14de8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29815, 755, 1131, 24, 70, "Subsection",ExpressionUUID->"bfcd1e1d-8332-430d-975f-9bfa885fc5d6", CellTags->"Details & Options", CellID->66019318], Cell[30949, 781, 335, 7, 70, "Notes",ExpressionUUID->"d3554edd-05ef-4eac-b1c9-f8459fef0dbb", CellID->1016470021], Cell[31287, 790, 195, 5, 70, "Notes",ExpressionUUID->"aaadad39-5620-474b-beb7-15f2987b8ec1", CellID->517264440], Cell[31485, 797, 485, 16, 70, "Notes",ExpressionUUID->"477139eb-a913-4232-a607-cb2c98e377bc", CellID->221139549] }, Open ]], Cell[CellGroupData[{ Cell[32007, 818, 6400, 143, 70, "Section",ExpressionUUID->"6be43e65-b736-4ff4-bd70-e9dd63288b9c", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[38432, 965, 81, 2, 70, "Subsection",ExpressionUUID->"ebd7af01-b17d-45a3-9785-82126a98b8e1", CellID->217125399], Cell[38516, 969, 140, 2, 70, "Text",ExpressionUUID->"73cff671-fb47-4747-8c73-2512c0fd5226", CellID->177481113], Cell[CellGroupData[{ Cell[38681, 975, 352, 9, 70, "Input",ExpressionUUID->"e8a05678-2e22-434f-bcbd-16cd41b0de73", CellID->264909192], Cell[39036, 986, 202, 5, 70, "Output",ExpressionUUID->"582654f5-653c-4a59-932b-bf504a5d29df", CellID->207817835] }, Open ]], Cell[CellGroupData[{ Cell[39275, 996, 64, 2, 70, "PageBreak",ExpressionUUID->"a45bafd6-5ab6-4b6f-b58b-ca433ddf94b0", PageBreakBelow->True, CellID->178246918], Cell[39342, 1000, 194, 5, 70, "Text",ExpressionUUID->"4e76792a-bd5e-4a14-919a-31c33d42069f", CellID->1581072857], Cell[CellGroupData[{ Cell[39561, 1009, 423, 11, 70, "Input",ExpressionUUID->"5d5228f9-bc79-454c-9dc6-0beaff1383f4", CellID->2135250658], Cell[39987, 1022, 349, 9, 70, "Output",ExpressionUUID->"8b6374b8-83fb-4e6a-b39f-856b17689f35", CellID->135310926] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40397, 1038, 70, 2, 70, "Subsection",ExpressionUUID->"b001f8f1-c4af-4953-969a-4a162e8a271d", CellID->518072446], Cell[40470, 1042, 175, 4, 70, "Text",ExpressionUUID->"34faf2be-bdcf-443b-9bd5-7b5441ac0328", CellID->719741756], Cell[CellGroupData[{ Cell[40670, 1050, 477, 13, 70, "Input",ExpressionUUID->"3aff53e1-32a6-4722-905a-7c6b64473215", CellID->1233039742], Cell[41150, 1065, 336, 8, 70, "Output",ExpressionUUID->"65bba909-f1d2-4adf-a016-6bd1ef08fa0c", CellID->113307086] }, Open ]], Cell[CellGroupData[{ Cell[41523, 1078, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"04eeb6ad-5126-4463-a196-516eec34fcb2", CellID->36379460], Cell[41650, 1083, 206, 5, 70, "Text",ExpressionUUID->"6f11e592-22d6-443f-a904-d31cf71d1ce0", CellID->125695648], Cell[CellGroupData[{ Cell[41881, 1092, 658, 18, 70, "Input",ExpressionUUID->"6ec205ae-9d5a-4b59-a357-dbc55c976e9e", CellID->18645409], Cell[42542, 1112, 555, 15, 70, "Output",ExpressionUUID->"7abcf466-b24a-464e-a4c0-9018cb4264fa", CellID->182831355] }, Open ]], Cell[CellGroupData[{ Cell[43134, 1132, 220, 5, 70, "Input",ExpressionUUID->"c5b169ee-2377-4d5a-a14f-e343e26341ce", CellID->749280958], Cell[43357, 1139, 435, 11, 70, "Output",ExpressionUUID->"1a4026f4-7494-44b7-a253-276a9b3ef2ce", CellID->408727231] }, Open ]], Cell[43807, 1153, 162, 2, 70, "Text",ExpressionUUID->"2f707fb0-661f-4a12-91d5-8f36250c5c18", CellID->173413911], Cell[CellGroupData[{ Cell[43994, 1159, 170, 4, 70, "Input",ExpressionUUID->"96f430bf-deb7-4858-9335-d5fc622e543c", CellID->702337592], Cell[CellGroupData[{ Cell[44189, 1167, 88, 2, 70, "Echo",ExpressionUUID->"61c4e31f-4076-468a-92a9-19b91e1e21fd", CellID->294698704], Cell[44280, 1171, 90, 2, 70, "Echo",ExpressionUUID->"23d15585-bb37-44fd-8f3f-13bf19523351", CellID->524948387] }, Open ]], Cell[44385, 1176, 258, 8, 70, "Output",ExpressionUUID->"29e40610-cae7-4d85-ba92-b472693d1054", CellID->259676894] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44692, 1190, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"6c993733-f22e-4de3-974b-6d792c2caed5", CellID->965342888], Cell[44820, 1195, 637, 19, 70, "Text",ExpressionUUID->"c5f7a81a-8add-43cb-8bec-90428701072d", CellID->2246634], Cell[CellGroupData[{ Cell[45482, 1218, 407, 11, 70, "Input",ExpressionUUID->"9e0435d3-1d46-4380-ba28-0fa2dbcfed08", CellID->399749086], Cell[CellGroupData[{ Cell[45914, 1233, 88, 2, 70, "Echo",ExpressionUUID->"1be76e01-9290-4fc3-ac07-5c8b33e89bef", CellID->290695821], Cell[46005, 1237, 90, 2, 70, "Echo",ExpressionUUID->"dd835fd0-0985-480a-b351-e015b474269a", CellID->335669770] }, Open ]], Cell[46110, 1242, 160, 5, 70, "Output",ExpressionUUID->"9b60b90a-63f8-451b-806f-0d25d685de72", CellID->181777492] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46319, 1253, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"bb96515f-8696-4f35-bcd0-69e16a7e423a", CellID->26492449], Cell[46446, 1258, 155, 2, 70, "Text",ExpressionUUID->"c2fc388b-4355-41b0-9587-3ccae16ffac2", CellID->398606698], Cell[CellGroupData[{ Cell[46626, 1264, 370, 9, 70, "Input",ExpressionUUID->"f3e641b0-793f-455e-8ca5-eb4b640da7e4", CellID->4053327], Cell[46999, 1275, 246, 6, 70, "Output",ExpressionUUID->"9b67e2d2-973b-41be-a56a-daf071540593", CellID->284453133] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47306, 1288, 134, 2, 70, "Subsection",ExpressionUUID->"815fe217-87ad-480b-b40a-d3a048a21cd4", CellID->775451806], Cell[47443, 1292, 710, 21, 70, "Text",ExpressionUUID->"e8d5053a-2fca-4234-97ae-d59d8d491316", CellID->196570589], Cell[CellGroupData[{ Cell[48178, 1317, 334, 8, 70, "Input",ExpressionUUID->"7588b891-fa90-481f-b321-9a5f31fe1552", CellID->580743519], Cell[48515, 1327, 403, 9, 70, "Output",ExpressionUUID->"5cb8e90c-5550-47b0-ab50-96fb627d57bd", CellID->477034361] }, Open ]], Cell[CellGroupData[{ Cell[48955, 1341, 248, 7, 70, "Input",ExpressionUUID->"d8a594be-99cf-4444-9581-1c6b832822d7", CellID->190267733], Cell[49206, 1350, 391, 9, 70, "Output",ExpressionUUID->"7b401d2d-9fca-41fe-a0fe-8b048e078671", CellID->495515347] }, Open ]], Cell[CellGroupData[{ Cell[49634, 1364, 124, 3, 70, "Input",ExpressionUUID->"99bdfb82-effb-4f87-9a58-ea98bc744682", CellID->89925215], Cell[49761, 1369, 368, 10, 70, "Output",ExpressionUUID->"7c741098-ef28-4de8-a1bd-6e8c80fac86c", CellID->98562569] }, Open ]], Cell[CellGroupData[{ Cell[50166, 1384, 64, 2, 70, "PageBreak",ExpressionUUID->"2274af0b-601f-4807-b630-5633f888552c", PageBreakBelow->True, CellID->126426808], Cell[50233, 1388, 75, 1, 70, "Text",ExpressionUUID->"0431862b-8c36-429a-9932-3dd13dbd24d0", CellID->8487430], Cell[CellGroupData[{ Cell[50333, 1393, 550, 17, 70, "Input",ExpressionUUID->"4a352bde-c555-403f-92ab-dd68f3987c1d", CellID->651952365], Cell[50886, 1412, 459, 15, 70, "Output",ExpressionUUID->"aaacd688-464a-482a-ad88-5186b157d677", CellID->335859939] }, Open ]], Cell[CellGroupData[{ Cell[51382, 1432, 271, 8, 70, "Input",ExpressionUUID->"a159e3e4-e529-42e3-b88e-1d69faa79252", CellID->792844148], Cell[51656, 1442, 341, 11, 70, "Output",ExpressionUUID->"d9df3a96-874d-44a1-b552-690bfa95c6ec", CellID->158625365] }, Open ]], Cell[52012, 1456, 608, 18, 70, "Text",ExpressionUUID->"223f4df4-77f7-43d2-9786-11971463839e", CellID->497274617], Cell[CellGroupData[{ Cell[52645, 1478, 283, 8, 70, "Input",ExpressionUUID->"4c4473dc-32b1-428d-a61f-4879f54261d4", CellID->392441279], Cell[52931, 1488, 318, 11, 70, "Output",ExpressionUUID->"1dc4a0e4-7d13-440d-8f7a-795d25aab63c", CellID->19144807] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53322, 1507, 135, 3, 70, "Section",ExpressionUUID->"82259f54-0e21-422a-a74a-3e74108264c8", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[53482, 1514, 683, 18, 70, "Subsection",ExpressionUUID->"c9d48459-4e61-47f9-b383-86e579bacc9e", CellTags->"Contributed By", CellID->127820888], Cell[54168, 1534, 51, 0, 70, "Text",ExpressionUUID->"e1f30ea3-c30b-4758-83fe-3e16acb098ec"] }, Open ]], Cell[CellGroupData[{ Cell[54256, 1539, 684, 18, 70, "Subsection",ExpressionUUID->"355d489a-c8f3-4e5a-92a7-57c10b299678", CellTags->"Keywords", CellID->547400482], Cell[54943, 1559, 33, 0, 70, "Item",ExpressionUUID->"014e6f48-2baf-43a8-8270-7156ef8ab9a8"], Cell[54979, 1561, 42, 0, 70, "Item",ExpressionUUID->"2e2313ea-5f9d-4c69-bdac-ff56e3ec7321"], Cell[55024, 1563, 42, 0, 70, "Item",ExpressionUUID->"a5f9f6d0-6619-4a19-892a-4aa0f3c2bb24"], Cell[55069, 1565, 28, 0, 70, "Item",ExpressionUUID->"77d13686-236e-4d6f-bafc-d962b5fb5d20"], Cell[55100, 1567, 26, 0, 70, "Item",ExpressionUUID->"d8dabd04-bae2-483b-b662-9ad4ebbbcbd0"], Cell[55129, 1569, 31, 0, 70, "Item",ExpressionUUID->"caba6e51-7a25-4956-8328-ee23f2860788"] }, Open ]], Cell[CellGroupData[{ Cell[55197, 1574, 126, 4, 70, "Subsection",ExpressionUUID->"d434b2d7-26e0-4aec-844d-66db3670c8fb", CellTags->"Categories", CellID->749076926], Cell[55326, 1580, 41, 0, 70, "Item",ExpressionUUID->"a4f68708-c77e-4c6b-b504-43f269ff3e15"], Cell[55370, 1582, 44, 0, 70, "Item",ExpressionUUID->"dcb9423b-0aef-4557-8672-9a3dba45fac7"] }, Open ]], Cell[CellGroupData[{ Cell[55451, 1587, 661, 18, 70, "Subsection",ExpressionUUID->"f4f1fcb4-db74-4baa-aaf4-70f2bc3fe5ea", CellTags->"Related Symbols", CellID->161079978], Cell[56115, 1607, 32, 0, 70, "Item",ExpressionUUID->"34cc37a0-fdbc-46c0-9f1d-de78f8a32322"], Cell[56150, 1609, 34, 0, 70, "Item",ExpressionUUID->"85c381b0-70c6-4684-89d2-bd3e78a5c94f"], Cell[56187, 1611, 21, 0, 70, "Item",ExpressionUUID->"03c7f6ed-9971-40b9-97a1-4900d37d1c65"], Cell[56211, 1613, 23, 0, 70, "Item",ExpressionUUID->"a32cd942-9677-47a4-b151-f9314e85feb0"], Cell[56237, 1615, 21, 0, 70, "Item",ExpressionUUID->"f13ac135-2650-4b8a-bc2e-4e9166f67488"], Cell[56261, 1617, 22, 0, 70, "Item",ExpressionUUID->"5ec95697-d73b-48b2-a536-ac52ac8c4c1d"], Cell[56286, 1619, 21, 0, 70, "Item",ExpressionUUID->"fc124655-0c71-4692-836d-6a248f8c0588"], Cell[56310, 1621, 30, 0, 70, "Item",ExpressionUUID->"3a2c044c-fdce-4ec7-a46c-8de3eba47ef2"], Cell[56343, 1623, 27, 0, 70, "Item",ExpressionUUID->"9a2ba02c-7d69-49fe-9029-a62c95f28ec3"], Cell[56373, 1625, 22, 0, 70, "Item",ExpressionUUID->"fe6bf1ec-d831-4640-b115-ac5aa3be9a1f"], Cell[56398, 1627, 22, 0, 70, "Item",ExpressionUUID->"36fbf92d-3207-41b6-986b-41ad68f040a0"], Cell[56423, 1629, 25, 0, 70, "Item",ExpressionUUID->"a0f686e5-bd99-42ef-a9c9-01eb196d8efe"] }, Open ]], Cell[CellGroupData[{ Cell[56485, 1634, 711, 18, 70, "Subsection",ExpressionUUID->"029b80b6-bd52-41c7-ac3f-559e3e2e1e65", CellTags->"Related Resource Objects", CellID->588449267], Cell[57199, 1654, 31, 0, 70, "Item",ExpressionUUID->"006506ff-ab97-4a83-98b9-3d198de061e8"], Cell[57233, 1656, 26, 0, 70, "Item",ExpressionUUID->"b0b49848-2de9-41cc-9cfe-ae5b4a7314ff"], Cell[57262, 1658, 23, 0, 70, "Item",ExpressionUUID->"9e606ba9-e5d0-42e2-9f6e-834ec6f64d3b"], Cell[57288, 1660, 26, 0, 70, "Item",ExpressionUUID->"62d5eab6-ec4b-42f4-a29c-89f3ba87f49f"], Cell[57317, 1662, 25, 0, 70, "Item",ExpressionUUID->"317a9164-16a2-4c49-8fb4-3b8c3e6b5651"], Cell[57345, 1664, 27, 0, 70, "Item",ExpressionUUID->"36dc5f53-dd0b-4b18-a68b-9ee65a7eef62"], Cell[57375, 1666, 34, 0, 70, "Item",ExpressionUUID->"694e763c-b89f-43b7-93f0-159759f5ba77"] }, Open ]], Cell[CellGroupData[{ Cell[57446, 1671, 762, 19, 70, "Subsection",ExpressionUUID->"3e125326-a87b-4874-8e92-62457d1f661e", CellTags->"Source/Reference Citation", CellID->642091068], Cell[58211, 1692, 496, 8, 70, "Text",ExpressionUUID->"6274d88a-1e46-4c92-b1a1-a87efbafe14b", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[58744, 1705, 614, 18, 70, "Subsection",ExpressionUUID->"7e9f5306-1140-46dd-86f1-52753c855406", CellTags->"Links", CellID->521525586], Cell[59361, 1725, 314, 7, 70, "Item",ExpressionUUID->"d14293a4-9d57-480b-857e-be42f20988b1"], Cell[59678, 1734, 317, 7, 70, "Item",ExpressionUUID->"8fb0e617-563d-4f14-b9b7-115bb558a836"], Cell[59998, 1743, 263, 5, 70, "Item",ExpressionUUID->"3dd8cb96-abf5-4155-9aa8-9042f7c80e71"], Cell[60264, 1750, 282, 7, 70, "Item",ExpressionUUID->"76b6c0c0-0a3c-4adf-92d3-590f072be725"], Cell[60549, 1759, 249, 5, 70, "Item",ExpressionUUID->"1d307524-78d9-4d8c-9152-d4f7232f48c8"], Cell[60801, 1766, 319, 7, 70, "Item",ExpressionUUID->"638ef9a9-9844-48fc-9913-9cab42ad8b98"], Cell[61123, 1775, 262, 6, 70, "Item",ExpressionUUID->"c6cc7da7-ee71-4ed9-899c-3fac90e5c711"], Cell[61388, 1783, 262, 5, 70, "Item",ExpressionUUID->"51469b45-779d-4583-89dd-dff13d4679f9"], Cell[61653, 1790, 261, 6, 70, "Item",ExpressionUUID->"aeb2ebee-fc24-466a-9a39-b2fcdcd17a97"], Cell[61917, 1798, 944, 19, 70, "Item",ExpressionUUID->"44729acb-3c4d-4b6a-a6a8-e43d9e241f71"] }, Open ]], Cell[CellGroupData[{ Cell[62898, 1822, 767, 20, 70, "Subsection",ExpressionUUID->"866e4314-7c84-45cd-babc-904474d72c65", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[63690, 1846, 503, 13, 70, "Input",ExpressionUUID->"d52e5f09-673a-4920-bfa0-651bdbf3a898", CellID->145109044], Cell[64196, 1861, 11218, 237, 70, "Output",ExpressionUUID->"b7de582f-01bf-44b8-a4c5-4dacb669a430", CellID->87551862] }, Open ]], Cell[CellGroupData[{ Cell[75451, 2103, 757, 18, 70, "Input",ExpressionUUID->"babe5ddb-beb8-49bd-9cc5-372653af271f", CellID->10847275], Cell[76211, 2123, 11627, 244, 70, "Output",ExpressionUUID->"67e7f258-fcd6-42ec-9bff-382461353959", CellID->156149980] }, Open ]], Cell[CellGroupData[{ Cell[87875, 2372, 617, 16, 70, "Input",ExpressionUUID->"a6dc2ba3-85e1-4a0a-8f6f-63cec00f5845", CellID->566735212], Cell[88495, 2390, 11429, 241, 70, "Output",ExpressionUUID->"b390ba88-d9d9-4179-934c-9a2fd78a8976", CellID->281337865] }, Open ]], Cell[CellGroupData[{ Cell[99961, 2636, 1380, 34, 70, "Input",ExpressionUUID->"a304cd5f-e2b0-452b-af1e-d220415b37bc", CellID->96375623], Cell[101344, 2672, 10193, 216, 70, "Output",ExpressionUUID->"c82618b6-0778-4fd6-ad68-4d59aeba1be8", CellID->8342501] }, Open ]], Cell[CellGroupData[{ Cell[111574, 2893, 695, 17, 70, "Input",ExpressionUUID->"8c7623a1-7026-4965-b05f-9a42be5652aa", CellID->71763901], Cell[112272, 2912, 11632, 246, 70, "Output",ExpressionUUID->"045bb62d-80c8-49d3-9cab-1936988a8fe1", CellID->285002297] }, Open ]], Cell[CellGroupData[{ Cell[123941, 3163, 655, 17, 70, "Input",ExpressionUUID->"7580bd24-421a-4114-8ef2-8e07eeac1388", CellID->257740062], Cell[CellGroupData[{ Cell[124621, 3184, 88, 2, 70, "Echo",ExpressionUUID->"5b798108-04cf-40b7-9e01-e0c0fd1826cd", CellID->710673045], Cell[124712, 3188, 88, 2, 70, "Echo",ExpressionUUID->"3982ac50-0587-4448-9e5d-ae8c1ec8de07", CellID->213745373] }, Open ]], Cell[124815, 3193, 9278, 198, 70, "Output",ExpressionUUID->"04970364-e23f-4be6-9618-48fbb2ccecce", CellID->854651709] }, Open ]], Cell[CellGroupData[{ Cell[134130, 3396, 676, 16, 70, "Input",ExpressionUUID->"0614715e-e843-4397-b4a9-97b1eb098953", CellID->32760509], Cell[134809, 3414, 9461, 201, 70, "Output",ExpressionUUID->"4ce9b27a-ce0d-4391-9ddd-7f4c04fcb37d", CellID->106426674] }, Open ]], Cell[CellGroupData[{ Cell[144307, 3620, 516, 14, 70, "Input",ExpressionUUID->"4d05c5f0-ac9b-410b-bcb6-5d2326d31a8e", CellID->144240602], Cell[144826, 3636, 9078, 195, 70, "Output",ExpressionUUID->"cd18e202-630e-4e9a-b580-f6c7d2b473f5", CellID->114800694] }, Open ]], Cell[CellGroupData[{ Cell[153941, 3836, 458, 12, 70, "Input",ExpressionUUID->"e9011e92-f263-445c-aab6-6cfb47ffc65a", CellID->267345850], Cell[154402, 3850, 11265, 236, 70, "Output",ExpressionUUID->"ebe1fb1e-c0a8-4e2e-9e8c-b2a76ee4831b", CellID->414160485] }, Open ]], Cell[CellGroupData[{ Cell[165704, 4091, 996, 29, 70, "Input",ExpressionUUID->"80095169-ff0a-48b6-9d41-f1d66a5d0652", CellID->56075414], Cell[166703, 4122, 9929, 213, 70, "Output",ExpressionUUID->"52b30613-861b-4e60-8f72-dcc404fcafb0", CellID->100127584] }, Open ]], Cell[CellGroupData[{ Cell[176669, 4340, 647, 19, 70, "Input",ExpressionUUID->"b2b64148-3cac-4ccb-b219-288b6787eab3", CellID->208529718], Cell[177319, 4361, 11638, 246, 70, "Output",ExpressionUUID->"c96f6694-233b-41a6-8350-89a4323adffb", CellID->55209583] }, Open ]], Cell[CellGroupData[{ Cell[188994, 4612, 582, 18, 70, "Input",ExpressionUUID->"ae006644-518c-447f-9211-fa8889f423b6", CellID->240454230], Cell[189579, 4632, 9229, 200, 70, "Output",ExpressionUUID->"4b57f3a4-f01d-4996-b030-6584b60a079c", CellID->286522369] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[198869, 4839, 127, 4, 70, "Section",ExpressionUUID->"5343b9cf-9320-46b1-8624-2761582b191c", CellTags->"Author Notes", CellID->795110225], Cell[198999, 4845, 509, 8, 70, "Text",ExpressionUUID->"9271ca2c-c719-4b69-a5cd-c48d433be610", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[199545, 4858, 720, 19, 70, "Section",ExpressionUUID->"c472e5e1-3167-400d-b99a-b726a2e4a9d7", CellTags->"Submission Notes", CellID->843283583], Cell[200268, 4879, 495, 8, 70, "Text",ExpressionUUID->"4e1a950b-74e5-4274-a8b9-c1afa328c7fa", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)