(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 200519, 4773] NotebookOptionsPosition[ 191887, 4572] NotebookOutlinePosition[ 193642, 4624] CellTagsIndexPosition[ 193599, 4621] WindowTitle->InShuffle | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Perform an in shuffle on a list of 10 items:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765394110156773*^9, 3.7653941288257513`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765391367167933*^9, 3.765391369956929*^9}, { 3.765394130603301*^9, 3.7653941312921143`*^9}}, CellLabel->"In[4]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ "6", ",", "1", ",", "7", ",", "2", ",", "8", ",", "3", ",", "9", ",", "4", ",", "10", ",", "5"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7653913702430563`*^9, 3.7653941395713873`*^9, 3.765397032343011*^9, 3.765442685267043*^9}, CellLabel->"Out[4]=", CellID->1104593595] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Perform an in shuffle 3 times to a list:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765396200261222*^9, 3.765396224278665*^9}}, CellID->501929943], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "3"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765391367167933*^9, 3.765391369956929*^9}, { 3.765394130603301*^9, 3.7653941312921143`*^9}, {3.765396195097145*^9, 3.765396195252236*^9}}, CellLabel->"In[5]:=", CellID->503311441], Cell[BoxData[ RowBox[{"{", RowBox[{ "7", ",", "3", ",", "10", ",", "6", ",", "2", ",", "9", ",", "5", ",", "1", ",", "8", ",", "4"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7653913702430563`*^9, 3.7653941395713873`*^9, {3.765396226719849*^9, 3.765396228386866*^9}, 3.765397033957122*^9, 3.765442686257886*^9}, CellLabel->"Out[5]=", CellID->1810422954] }, Open ]], Cell["Confirm that this is the same:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7653962475772247`*^9, 3.765396265676161*^9}}, CellID->411814321], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/\ published/FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{"Range", "[", "10", "]"}], "]"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653962323300962`*^9, 3.7653962574752493`*^9}}, CellLabel->"In[6]:=", CellID->448269952], Cell[BoxData[ RowBox[{"{", RowBox[{ "7", ",", "3", ",", "10", ",", "6", ",", "2", ",", "9", ",", "5", ",", "1", ",", "8", ",", "4"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.765396245191485*^9, 3.7653962584232883`*^9}, 3.765397036053657*^9, 3.76544268725779*^9}, CellLabel->"Out[6]=", CellID->231729521] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, 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], CellID->485279578], Cell["The list can contain expressions of different type:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765395353885231*^9, 3.765395365632092*^9}}, CellID->337999680], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{"{", RowBox[{ FractionBox["2", "3"], ",", RowBox[{"3", "+", RowBox[{"2", "I"}]}], ",", "\"\\"", ",", GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwlmXk4lN/7x61ZEjPPjJAU7SsppYXuUwlFSokWIWkhSURIKpWQZK9kS4X4 RHZJTpSikKiEopAsYx7rmJksv/O9fn+d63Vd82zv9/u+73Ou0bA/u/e4mIiI SJaoiMj/VnEsW9ux9upmXun/rwt7SjfNibSFu/mNw7PJKnyu5dAUcRbORecZ fCHrH/YpfkHEZbjytMwnmazNhtfLn0TcAbWrSdX7yPrVNmJxfEQirNs+w2J/ eCLsdVZpvheRBWux8JX37SwIH7LOjYnAsF7xqYGaH4ZNFTtlt7rXwY2SV9tl t9eBq4/Z0VzX71B44Y1OSVMjnCk6Hio2/xcsypjzyZjTCl+6d8ik2ndCZ1fT wQrpDgjW4okUHOwGDal00Z3MLji3vDL69RMOCNzfr83gd0Pn8c4rSQUcOOdZ NH+teA9YJok4X3nPgedXZqgVzeiBjYobtqIeDtTb6Sx6Oq8HxKaecvGKftja M3OLrmkPRNTfMsK5/WB/MpktmtADOd67Ba/KuGDW1Oihq9cLwmOnM3+6DEDG zO7au/Z9YMcc9irxHICSqcNzXzj1QUWpz7YHfgMQ4RBZ0+DWB2Eqwd8PhA5A kYnnplH/Plj8KU3sy7MBWGcWvKg7uQ8sNnZZfuAMQPaxhbdCfvdBJuPoVIHT IKjEWJwpP8gBdml3VbTbIKSUiVVNP8oB79OuUed9BsHkR7Oh2SkOGLy7vHR1 8CC4N4gnl3pyoOViwr5nTwfhTo7bE9NIDkj/bUl91D0IHw3k7WZ/5ID9K8s9 YSeGIGA/5vmt7YfVBcqUytkhcOPND3bX6wexrOaGhxeGwHveqmrbbf2QnGRj lRs4BJoP7SzmmvdD+7UTNt/Sh0A3OXzzRmei005P59n0ELxe71vzM4lwY3Rg 2oVhYJze2F8rzoXVdVY7ta8Mw5HOxpx8GS6IVanIFQcOQ6BDISdSgQvJxfF3 Pt4fhp7D4QXrVLnQHv8khvtyGA7k3TqvuJoL9g75j3VERuDXG9dV62y4cGzw y+vXgSPg6O/YJsjigp1PmFVR2Ai05sw+5pPHBWtxU27WvRHw1K3ZMVzEBUvF N6qJaSMQGle0qZb4aLwh2/NS5Qi0Gc2PXNLABc2rt1dslB4FmYnPGi4jXFgm u+ONNmMU1GKdLc7zubA4UuLQUuVReFu0tMltnAvqTy7eVF4yCrdB6esBCRpY VY7tPKNR2Bzme7GSRQOfYXgv9+YorMuIy1yrTcPIfVGtjDuj0PYxN+y1Dg2D 815VJN8dBX9RYf629TT06ugMh6eOQlHd/XergYafB+aZub4fBdFg/e5cUxrK kybFV0rxgMtRPr/lBA2lS4tjFyjwoMrjy4I9jjS8zPHQnq3Eg/6ygulWzjTk veXYTF/MA1py0GuXGw2p3c0vegx5cG9+TsmPSzSErCo8mxLAg8NaZ02uR9Lw YXVjl0coDwZ3JC+XiaFBeu3Yke0xPDDmiNwIuEfD9Q26pp1PyP1ZHUlO8TRc 3Fq4ZF4FD0avKJz5nkJDkUFj4mA1D/a2npim8ZQGnuHYzLIvPJghfYRtn0GD m4mupF0nD5pviIbUZNHgZFH4O158DN7tjGjZUURDmmXjgTPTx2BlzMbplsU0 dB0Y+6THGoNSkVMZh0poOHpEt7Rl3hjUR5zctOs1DQdOFMaqbB0DB92RkMb3 NBh5Fe6LvjIGOnPFo658Je/r0/jBIXAMlp/aGMNqJPr5jm3RCRuDwkg1scTv NGy+qruqIXEMnvu4Kia20LAuuFCOicfg9VJndYPfNJwPabz2690YPLmqciK2 nYac0DFhVu0YrIrOpXo6aFgZqdtj1joGnFLXxLNdNCyIK6wImRiDvHWVfhp9 NNgnNOpZS/LhWtPN4Y0cGpKSxnKXz+DDzIHuatN+GmY/0U3+MJsPOVtD/jtI 03Ao1UoldgEf1J3NcywGaLj39EKY4wo+bOx8pWo8SPKVWegnrceHptspysrD NOx53jjauI0PA5p5GSOEQ3PGnFNN+DA8ceth1QgNsoW6hw0P86FWUJdnzaPB +IVVveIxPkyf1fp51hgNAS8v7PjjRN5n9+iez4TFXhfqXvfhg/nX6POLBTSk z6BSJvz5ECLxe88XwnsPO7Mv3OLDz7RGHS8hDcK0d/4DkXwIrzRRZ/2j4RFP fdAxjg9aXCbrCWFTg4u2HY/5ELBEdIbmOMl/+Nca62d8yJcdnpFJ2GBlcPru Uj5MpJkviJyggePTqVz1jg9mGn4b+ISjKjff3PqJD+MvVuy3mKRBb+b90ZeN fLCK23YhlfCfY8PH1v7iwzrPjMRBwqHZu+ozu/kw5b27dvUU8XMqFS0Z5MMz GzXx04RbTcWyHgr40GAruTmWcECstZqqmACe6Av9XhPW7C64FSUrgDG9wYqf hL+tZQpnsASwbXE7NUTY79rpUzdVBZC+8/3xCcKLP1d8E1kggBHv+NIpwnVz 1Lf7rBBAtJyDmoCwl7NP7rCOADJaZ/v3EFYv/qJxRl8A43uqOXWEK6W0wrq2 C4Bn7H0ki7Dr/qBJWzMBZK1a+eU6YeVHHc5NlgJo4w3vMSf8ekC/Za8tYfkf DWzCjpvv7ag+KYBHrjzrT+T7qZChwu2uAnhxz5JzhXBxk+ki7CWAzYGU/1LC 9otTo9ZfFcCPt1vnVBF9ZT1ExXOCBFB+QKzMlnBO+eFzyyMEkFDv4tRP/DnE KGh7HCuAO9vTZrkRFrNhmM15JID5Oz5/7if+ZmQ4ldzNEICJQD7MjrCF4O0y Zp4AdvEC938g+Rg3nHs/uEQArxwc5y0nbNre4HGpRgDnX1ENn/kkD1qanbyv 5Ptv6BUqEY67FLjXtVUAyDf0kQXJY7+yvtYxWgCXDwdG544Sf3endBszhbDy ocsfySHib7yIVbmKEDLG7JkSpD5aew9VbJonhKM5F40EpJ60AhSSNdcIgdYx bqgk9VZX4nWYvV8ItSaqbuPdxB/ZhqrbR4SgLk2P5fwl/hxYuV7qhBC09K8H 25F6dh3+zRZ6CkHc4lxjEql35jKT2rZ7QtgdZala8JP0J6lEZmWSEPrOuGmh H0TvP0MWz9OEkBDpe7G8mQaHh7EtV4qEkBNeX5JF+k+Rcm+3xnchHD6qRa/4 TMNtnv4K2V9CYFgeqvH6RPz5En526K8QFsdEdJXU0DA9bAOvfEwI3KDWjys/ 0GAjFSTuoPQPOOd0XXLKaVjz54eh6dx/4JlOab8m/VD6zapgncX/oDYhcvW7 UuKn33eGpO4/aBnxHC4m/VSSt3hOiuU/kBos9THKoeG/znfru6P/QZHwuGJ/ Ig1Xy2f51sX/g89+mSKXSX+3THLBRU/+QY3shjUyD2gQsZ5pGJT/D8pPXHKd RubDvobj+5Z9/QcfB+SOPL5F+kGZhIszexySeOWhLh6k3yRufTQQMQ7vAuU2 bdlGw83Kup/+D8ahSNVjYRSZb+8GbZQVH5Pfb1+l3LqJhu0GF29vyB+HuVc7 ZlmR+bi1J/eCf+M4/LyenftzAan/NQtN2bMnICNoTHMzmber3kuN6j6ZgKsx HTkWJVw4OxCt9eHZBKDnN3qCC7mQqbLAybpgAt5aXd9dlMOFlc6o7cr7CZCR nZ/FTyPzneldVdUzAQW3t3cqRHNhweHe+MOak+CccdTx/mkuKNHVhpcLJ6Fc st13PsWFe+H4aA+ehNCrxko2clxQ1snx3Vc5CS9Tl9qHTSPsfTdncdMknO6o Uvgh7IdZ4vZz6oSTsFJLgq/Q0Q9zlMZG1TdPwWj78Nm+7H5YBBpPyt9OQYrX GPPSjn6IfV8sKu4ogg6zfy10t+PAwK/n3rSzCLJ/HpemSfZ/RsKUwRZXEXQi PfZghzkHRlZE/s7zEkEL1I7uWr+NA2YRp8tOBIogReekZ2ELOSB2ZPbVD6ki qLg+oH28uw9OD10SiegSQb6NIiJ1ZH+qp7ZlSt1BFNXdDDxYc6gXjK2/uNmf EkXf2950aZj3gsWDk12PnEXRIcEN0bNGvXBaJbRmkYcoavsX2zu0phdiFVse rAgQRZ+Kjn9/KNcL/Bke69eniSLfUsOohJIeyJtMO7ebI4puRhgGLlbqgeW/ GJ2XzouhQ7rDnWqFf+FZGnUq300cyfGkPrm2dYJv65GG5QES6Ofe40uvufyG c3rrTRKiJJFvnVHUGr8WECYa2PeFTUPNXaYPKzW/QJ1rrN2FZCmkJue9xO3L e9hgNG/y50Np9Pmb3IlJkedQtX1DGoqTQRvqbOZkhWTiJ9n3N7RnyKLPLHW9 JxcqseL8FU42T6cji8U5Cwz/NOB6UWl/lRI5JPEh8alOcwvOl3ZPqauagaK8 V+W/ifmNVygynOwr5NGKsEcHrF92YjqUx17zTQGtus3sWFT1F3MG5pSvbFZA holviqsa/uLevUZnl7QqoLf0vmcnWv/izpn3qtS6CI/f+R46/Bc3J2zwk+Yp oI0RppN31bqxvVXpMFeWgdSX2W+95dqNd50UPfJ2GQNti3do7GD24Pk3b2qd dWIg6SpL/4Ytvdjtm46fvTMDrSsQj325sxe/Xthevd+FgZa0njgXv68X27zV c9JzY6DwllZLs+O9OFZ06LGMDwOd7vtc5hDYiylf61mPgxjIyyzM0L6mF4ud 05ZsSmMgx6PjdeF7+7D569Z91ekMtDJI8c+zQ304SSEkGf/HQL4xel5v7Pvw 5swuSHnOQD+yJdktbn3Yp++Bj3sRAwX9ZXFeRvThoePTBmZUMlDdp+ILWz/3 4fZDLc1b/zKQ9vYtsy13cLCcvlWqXQ8DJbxq+aRnzsFr5za4+/UxEFdeIUb1 IAcHdnyQK6YZaJalm3nZKQ7Wci7erM1nIKfCaUbPbnKw76X7yXNlmCjdLtJE 8i0HKyZZOY0vY6K90iEaqev68Wb/hnWzVjJRycl6+RD9fnzKYbf4ei0mMlwS XH3KoB+XLDGKc1/DRHq9Sdkye/uxffa62t5NTPSmTru/27kfZ5Yrrm4yZSIN 9eSbqg/7sfGfBkG+CxN1zjfNNhDn4kvLQy9muTKRUUnU8EtpLs45ZzyR5sZE l8LVO5fLc7HqZIlInCcTvW8r+DCqzMXcmSlS/n5MNBmmE6StycVRxl6KZqFM VL9S+j8jKy7+lTFbu+sZE9UkKnD+POJixaFvOW1ZTLT6uWGgaxoX71wfrtOU zUSp579mDP/HxblvJddX5zNR5p/o6x35XBzwk7s55xUTLWeY2Di+J0dZhTJT vxomEuRWVcj1cLGX2/FTM/uZaF+yvW3GIhoHmnBPbqSZaEvVqmkRy2h8d8GF kzaDTHSSI/b6rCaNC74FnkgZZaLgPqNTjHU0Ht74n8O6SSbqcB917jKgsYv4 sJ2lAoVCHE2tO+1ofOnHRTsfJoUWjc3M2+RA45B8CbsEFoUM/x6VDz5J44yT M227lChE8bLfTXehcffHDUc81SnUb3JoxSMfGh+LunIwRptCDDmQ1IigsdsZ mYPFayjUc1dRpTuKxv6GEQda11Jo/8RFjZS7NE7iP7JatJFCkbnf5KTiadxq /X5/wVYKzQ9xXG+dSuP+tXv2NxtQKNF/b0vzUxqPyzdZTBpSaNPFj857/qOx alnvPkMTCp39lnBAPZvGBxbK7/22j0Ka7gVoXzGNT03GmAv3Uyg4hG8QVELj C41zzeccoNBSyXOrC0ppHBOkveeENYWWPw96N1JO44Z+CzOeA4UcZULKJT7S 2Kzgwc6ZnhTaqDp862wTud+w/ZSiF4W2yj3Yw2+m8bVVy/IUfSikN9qi7v2D xkXpRWqKfhRyM01vt2+j8bzErwOsAAotfOL++1snjfV+xD1hBRK9xOv4c7to bKXicIgVTCG7rePKR/8SvSOH3lChFHp5/4bbxx4a824q3GXGUIiFWf6IS2NG xTcT5j1y/ab7jTtoGi8XSxBhxhI/ah6vMRmgsZ3vCidGAoUeq+yeXDtEY58X w3MYSRTyMHR3njtM42hecYNCMmGnJb9ERmj8wXWHvkIKhRIcTjRmjNK48xlj SD6NQhZx1w958Gg81duYIp9O9A21aV83RmOd4ycY8pkUmm0eMPWQT/RJXlkx 4zl5vod3lImAxo5tI94zcihkJHRb2U844eC1DrkCCp181eSk/I/oE7PznlwR hYa3jMsnE25oYO6SK6YQO/9OwfxxGnMZTaJyJRRyKXA/Gk9Y2iypYHophdZ2 BikoTBA9b508Pf01hTa35L/2Iqxfqak+vZxC4ro/zzcTPiDJ+yL7lkKp4X+X 60yS/G19FST7jkIT10r/3CAccvn6ZtlKCkU82ZVM9ts4tcRkWOYDhf4L8T/K nKJxuYBKk6mm0N5a0/kmhH+sa7aWqaXQnsn4v76Eee4PmTJ1FNqQ5ZiZQpiZ feqddD2FzriRaUR4BVfrovQXCil9N97WTthw+ZiW9DcKrTm7izlC2O5UaafU dwqFVWT+JucPfPHJjftSzRSqPemUR84fOKbd1EzqB8nD78tB5PyBn89li0u1 kvosGbDrI/zBuqVw2i/yPP/XG78S/nM/2XlaO8lD8cjMQsIijY4a0zopVMWJ Gg0jPIut/U2yi1wfn/7NnrCOOT9YsptCt823FK8gvDsUg2Qvuf7WiSQu0cPp Y8CIBIfoU7s0KI3wdWmzpxJcCi2OjTt/iHDCdkUbiQEKMV3q7SUIv/D/QUkM Uehc5a99KUR/7riTrziPQqFifzfXE/8OHjBZKhij0Gl7kXgbwm9zl3/jCijU WFGyq4P4f9+Jo9U8QSGR+pjUr0IaS7yr/vFpiuRnzeiebYRdNJ4FVYiykIaM 166nJE8G3890PJdkIZ/3V5ANyV/WGrOwFCkWslhoqfuM5HPWHU39OBkWsmvn Xh0h+R3YTsfcnMFC01PVWM4k3w9yXXfaKBLOebVsapDG0xTMx/YpsdBBX+5b BmFXJ+3HO1RYaOynV94sUk+GGkMTOmos9OxiYJQSqb+hUPfs6QtZyLPA1zaf 1OeR3n02ootZ6D3XMiOom8aV23Wmjy1hoYTiGDNLUs/x4yMO7SvI9cKzcd9J /Rs7eSq/0GGhrBvyNldJf8itsKzIXMdC/Z23zyi30niOhq7b4/UsFOo18i2V 9JPhxrGPd/RYSH+ouSir6X/6e18+YcBChT0r3xxroLHMw4MrrA1ZqPujMOPV ZxqfH9/QZG7MQldEUwYV6mi8I1e4Wt+UhUxq10bHV9N4RN23i2XBQrNseMZH Kmhs62sdKWPJQnkeDgt83pB8NeqhKSui5x41uztlNE4Mnbjfe5iFdu02Fia/ ovHOcb9dZcdYaMmf7+9c8mn8sPFqnos7C8XMuqN9/xGNuypWtYV6sJAQFRRK PyT1kNcmk3WBhWaAwe6zCWQehenb0hdZ6AYnIF/jPo2rdwhkXK+z0AabBnfV UBrzX7ranosm9zfXdDzmSePN6XODw++ykFbNoWMG7qTf3qvNy75P/K1rvjjb lcbyHitkh+JZyCvo1PQcRxrP1+zOc0thoUt9pqVu1qQ/JdnKni9kIba4qLEJ onFUqPzaqBcs1GxWfzdBj8ZNvq9s816yUE3jccWe9TR2OKiaP4JZaCpzWsIx bRp7U422HpUsFLBaXZzWoPHj62b5nk0s1MWxZduJ0lh4St/O+x8L1dcER+S+ IPP95TLkMcFCb7LTryIyzx/MUFY/N8VCzmckOyqec7FezlDbKXE2avD7KlKc ysV+/1JtD0xnI84lzUqjaC4WD6VsdVXZ6FmWSYDQhYvlcv8eGd3IRmX/7V9Y MZuLrSW/6g/qsdG26jnJ9kpc/MyqXK1/MxvVUPxCPpOLzcbjfnZuZaPYiFV5 8lJcHLZ975EvO9koNcGD3T7Qj9nfS6xzD7FRd+XCtMVv+rHaRPjhcz6E/8aq rLcn+6P2XS/u+rJRe22ulsPhfnz+vYxSqR8bFQzUf7hp0Y8/hF+tl73GRvIN rHv5hv3Yc9G5HY9vsdHPa0XvMpb147rde3Qb49joqoS5vsQgB/sny7P0MRs1 FynuP3+Bg7uMbn2QllBE1rb9az6d7sP2JnbqC6cpois7fLSVjvXhn2ZrPbdI K6Jxwe9QK7Jf/bK/TcNHThF1aYm5lxn34fJja7z72IrojxJauHFhH46/3LK4 dqEiMh9xsSn70YstCpffiDRSRA/rDo+tN+zFbxZVw5xbiqjx2FsNe/Ee7CSd IqEhMxN5bpfdWWPbhQuTFui/CZ+JpF6tdCrR6MC1m/Qq9jKVUIBbccWbu22Y 7/Rgn12oEtIqtCh+H/kdV+5J3D9jpjKaaP3+Xj20Dttv0EtNjVJGcZ7WaWpx Zdixv2b0R4wyKpG001SzLMOuD20NqPvKqLrn42klRhm+LHPtt2+8MmJN22Q/ fu01jmuqUt2booyCz79dpNhYir95W4WNFyqjhu6ZntHuxXhnsZu3eYsyqndO mPErJRubu0hUBvxURhu/N7a0qWTjA/NiZpa0KaP51766N4c8xyeDX+Qu6lRG x/ypQ1f/ZOLrh0S4/zjK6L2P5kCGbzouFd62T5lURh5PoxdFPn2IKzLnZreI qCCe01lT9p0kXG2fPcUQV0EtYXnV6j0JuOXDl7iLUiros9H9+FG/WMyPVW3c w1BBv7clFm9LD8dTZs8WBlAqyGHRzk2M3lA8TRzOv2SroNXD9tF3Lgdj9ml7 5iIVFVT39e/JC+lXsercEdvDqipoAdU2r+KyD57XcCMzTE0FvUjxsI9MP4eX 3VSaqJirgtbHnblclH4Ua296avJPQwUt1L79v/+3Sv8Ph2LZdw== "]]}, Annotation[#, "Charting`Private`Tag$15294#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{ 0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], ",", RowBox[{"x", "^", "2"}], ",", TemplateBox[{"\"Enschede\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Enschede\"", ",", "\"Overijssel\"", ",", "\"Netherlands\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Enschede\\\", \\\"Overijssel\\\", \ \\\"Netherlands\\\"}]\"", "\"city\""}, "Entity"]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765395332094161*^9, 3.7653954128757257`*^9}, 3.765397059906054*^9}, CellLabel->"In[7]:=", CellID->508737551], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwlmXk4lN/7x61ZEjPPjJAU7SsppYXuUwlFSokWIWkhSURIKpWQZK9kS4X4 RHZJTpSikKiEopAsYx7rmJksv/O9fn+d63Vd82zv9/u+73Ou0bA/u/e4mIiI SJaoiMj/VnEsW9ux9upmXun/rwt7SjfNibSFu/mNw7PJKnyu5dAUcRbORecZ fCHrH/YpfkHEZbjytMwnmazNhtfLn0TcAbWrSdX7yPrVNmJxfEQirNs+w2J/ eCLsdVZpvheRBWux8JX37SwIH7LOjYnAsF7xqYGaH4ZNFTtlt7rXwY2SV9tl t9eBq4/Z0VzX71B44Y1OSVMjnCk6Hio2/xcsypjzyZjTCl+6d8ik2ndCZ1fT wQrpDgjW4okUHOwGDal00Z3MLji3vDL69RMOCNzfr83gd0Pn8c4rSQUcOOdZ NH+teA9YJok4X3nPgedXZqgVzeiBjYobtqIeDtTb6Sx6Oq8HxKaecvGKftja M3OLrmkPRNTfMsK5/WB/MpktmtADOd67Ba/KuGDW1Oihq9cLwmOnM3+6DEDG zO7au/Z9YMcc9irxHICSqcNzXzj1QUWpz7YHfgMQ4RBZ0+DWB2Eqwd8PhA5A kYnnplH/Plj8KU3sy7MBWGcWvKg7uQ8sNnZZfuAMQPaxhbdCfvdBJuPoVIHT IKjEWJwpP8gBdml3VbTbIKSUiVVNP8oB79OuUed9BsHkR7Oh2SkOGLy7vHR1 8CC4N4gnl3pyoOViwr5nTwfhTo7bE9NIDkj/bUl91D0IHw3k7WZ/5ID9K8s9 YSeGIGA/5vmt7YfVBcqUytkhcOPND3bX6wexrOaGhxeGwHveqmrbbf2QnGRj lRs4BJoP7SzmmvdD+7UTNt/Sh0A3OXzzRmei005P59n0ELxe71vzM4lwY3Rg 2oVhYJze2F8rzoXVdVY7ta8Mw5HOxpx8GS6IVanIFQcOQ6BDISdSgQvJxfF3 Pt4fhp7D4QXrVLnQHv8khvtyGA7k3TqvuJoL9g75j3VERuDXG9dV62y4cGzw y+vXgSPg6O/YJsjigp1PmFVR2Ai05sw+5pPHBWtxU27WvRHw1K3ZMVzEBUvF N6qJaSMQGle0qZb4aLwh2/NS5Qi0Gc2PXNLABc2rt1dslB4FmYnPGi4jXFgm u+ONNmMU1GKdLc7zubA4UuLQUuVReFu0tMltnAvqTy7eVF4yCrdB6esBCRpY VY7tPKNR2Bzme7GSRQOfYXgv9+YorMuIy1yrTcPIfVGtjDuj0PYxN+y1Dg2D 815VJN8dBX9RYf629TT06ugMh6eOQlHd/XergYafB+aZub4fBdFg/e5cUxrK kybFV0rxgMtRPr/lBA2lS4tjFyjwoMrjy4I9jjS8zPHQnq3Eg/6ygulWzjTk veXYTF/MA1py0GuXGw2p3c0vegx5cG9+TsmPSzSErCo8mxLAg8NaZ02uR9Lw YXVjl0coDwZ3JC+XiaFBeu3Yke0xPDDmiNwIuEfD9Q26pp1PyP1ZHUlO8TRc 3Fq4ZF4FD0avKJz5nkJDkUFj4mA1D/a2npim8ZQGnuHYzLIvPJghfYRtn0GD m4mupF0nD5pviIbUZNHgZFH4O158DN7tjGjZUURDmmXjgTPTx2BlzMbplsU0 dB0Y+6THGoNSkVMZh0poOHpEt7Rl3hjUR5zctOs1DQdOFMaqbB0DB92RkMb3 NBh5Fe6LvjIGOnPFo658Je/r0/jBIXAMlp/aGMNqJPr5jm3RCRuDwkg1scTv NGy+qruqIXEMnvu4Kia20LAuuFCOicfg9VJndYPfNJwPabz2690YPLmqciK2 nYac0DFhVu0YrIrOpXo6aFgZqdtj1joGnFLXxLNdNCyIK6wImRiDvHWVfhp9 NNgnNOpZS/LhWtPN4Y0cGpKSxnKXz+DDzIHuatN+GmY/0U3+MJsPOVtD/jtI 03Ao1UoldgEf1J3NcywGaLj39EKY4wo+bOx8pWo8SPKVWegnrceHptspysrD NOx53jjauI0PA5p5GSOEQ3PGnFNN+DA8ceth1QgNsoW6hw0P86FWUJdnzaPB +IVVveIxPkyf1fp51hgNAS8v7PjjRN5n9+iez4TFXhfqXvfhg/nX6POLBTSk z6BSJvz5ECLxe88XwnsPO7Mv3OLDz7RGHS8hDcK0d/4DkXwIrzRRZ/2j4RFP fdAxjg9aXCbrCWFTg4u2HY/5ELBEdIbmOMl/+Nca62d8yJcdnpFJ2GBlcPru Uj5MpJkviJyggePTqVz1jg9mGn4b+ISjKjff3PqJD+MvVuy3mKRBb+b90ZeN fLCK23YhlfCfY8PH1v7iwzrPjMRBwqHZu+ozu/kw5b27dvUU8XMqFS0Z5MMz GzXx04RbTcWyHgr40GAruTmWcECstZqqmACe6Av9XhPW7C64FSUrgDG9wYqf hL+tZQpnsASwbXE7NUTY79rpUzdVBZC+8/3xCcKLP1d8E1kggBHv+NIpwnVz 1Lf7rBBAtJyDmoCwl7NP7rCOADJaZ/v3EFYv/qJxRl8A43uqOXWEK6W0wrq2 C4Bn7H0ki7Dr/qBJWzMBZK1a+eU6YeVHHc5NlgJo4w3vMSf8ekC/Za8tYfkf DWzCjpvv7ag+KYBHrjzrT+T7qZChwu2uAnhxz5JzhXBxk+ki7CWAzYGU/1LC 9otTo9ZfFcCPt1vnVBF9ZT1ExXOCBFB+QKzMlnBO+eFzyyMEkFDv4tRP/DnE KGh7HCuAO9vTZrkRFrNhmM15JID5Oz5/7if+ZmQ4ldzNEICJQD7MjrCF4O0y Zp4AdvEC938g+Rg3nHs/uEQArxwc5y0nbNre4HGpRgDnX1ENn/kkD1qanbyv 5Ptv6BUqEY67FLjXtVUAyDf0kQXJY7+yvtYxWgCXDwdG544Sf3endBszhbDy ocsfySHib7yIVbmKEDLG7JkSpD5aew9VbJonhKM5F40EpJ60AhSSNdcIgdYx bqgk9VZX4nWYvV8ItSaqbuPdxB/ZhqrbR4SgLk2P5fwl/hxYuV7qhBC09K8H 25F6dh3+zRZ6CkHc4lxjEql35jKT2rZ7QtgdZala8JP0J6lEZmWSEPrOuGmh H0TvP0MWz9OEkBDpe7G8mQaHh7EtV4qEkBNeX5JF+k+Rcm+3xnchHD6qRa/4 TMNtnv4K2V9CYFgeqvH6RPz5En526K8QFsdEdJXU0DA9bAOvfEwI3KDWjys/ 0GAjFSTuoPQPOOd0XXLKaVjz54eh6dx/4JlOab8m/VD6zapgncX/oDYhcvW7 UuKn33eGpO4/aBnxHC4m/VSSt3hOiuU/kBos9THKoeG/znfru6P/QZHwuGJ/ Ig1Xy2f51sX/g89+mSKXSX+3THLBRU/+QY3shjUyD2gQsZ5pGJT/D8pPXHKd RubDvobj+5Z9/QcfB+SOPL5F+kGZhIszexySeOWhLh6k3yRufTQQMQ7vAuU2 bdlGw83Kup/+D8ahSNVjYRSZb+8GbZQVH5Pfb1+l3LqJhu0GF29vyB+HuVc7 ZlmR+bi1J/eCf+M4/LyenftzAan/NQtN2bMnICNoTHMzmber3kuN6j6ZgKsx HTkWJVw4OxCt9eHZBKDnN3qCC7mQqbLAybpgAt5aXd9dlMOFlc6o7cr7CZCR nZ/FTyPzneldVdUzAQW3t3cqRHNhweHe+MOak+CccdTx/mkuKNHVhpcLJ6Fc st13PsWFe+H4aA+ehNCrxko2clxQ1snx3Vc5CS9Tl9qHTSPsfTdncdMknO6o Uvgh7IdZ4vZz6oSTsFJLgq/Q0Q9zlMZG1TdPwWj78Nm+7H5YBBpPyt9OQYrX GPPSjn6IfV8sKu4ogg6zfy10t+PAwK/n3rSzCLJ/HpemSfZ/RsKUwRZXEXQi PfZghzkHRlZE/s7zEkEL1I7uWr+NA2YRp8tOBIogReekZ2ELOSB2ZPbVD6ki qLg+oH28uw9OD10SiegSQb6NIiJ1ZH+qp7ZlSt1BFNXdDDxYc6gXjK2/uNmf EkXf2950aZj3gsWDk12PnEXRIcEN0bNGvXBaJbRmkYcoavsX2zu0phdiFVse rAgQRZ+Kjn9/KNcL/Bke69eniSLfUsOohJIeyJtMO7ebI4puRhgGLlbqgeW/ GJ2XzouhQ7rDnWqFf+FZGnUq300cyfGkPrm2dYJv65GG5QES6Ofe40uvufyG c3rrTRKiJJFvnVHUGr8WECYa2PeFTUPNXaYPKzW/QJ1rrN2FZCmkJue9xO3L e9hgNG/y50Np9Pmb3IlJkedQtX1DGoqTQRvqbOZkhWTiJ9n3N7RnyKLPLHW9 JxcqseL8FU42T6cji8U5Cwz/NOB6UWl/lRI5JPEh8alOcwvOl3ZPqauagaK8 V+W/ifmNVygynOwr5NGKsEcHrF92YjqUx17zTQGtus3sWFT1F3MG5pSvbFZA holviqsa/uLevUZnl7QqoLf0vmcnWv/izpn3qtS6CI/f+R46/Bc3J2zwk+Yp oI0RppN31bqxvVXpMFeWgdSX2W+95dqNd50UPfJ2GQNti3do7GD24Pk3b2qd dWIg6SpL/4Ytvdjtm46fvTMDrSsQj325sxe/Xthevd+FgZa0njgXv68X27zV c9JzY6DwllZLs+O9OFZ06LGMDwOd7vtc5hDYiylf61mPgxjIyyzM0L6mF4ud 05ZsSmMgx6PjdeF7+7D569Z91ekMtDJI8c+zQ304SSEkGf/HQL4xel5v7Pvw 5swuSHnOQD+yJdktbn3Yp++Bj3sRAwX9ZXFeRvThoePTBmZUMlDdp+ILWz/3 4fZDLc1b/zKQ9vYtsy13cLCcvlWqXQ8DJbxq+aRnzsFr5za4+/UxEFdeIUb1 IAcHdnyQK6YZaJalm3nZKQ7Wci7erM1nIKfCaUbPbnKw76X7yXNlmCjdLtJE 8i0HKyZZOY0vY6K90iEaqev68Wb/hnWzVjJRycl6+RD9fnzKYbf4ei0mMlwS XH3KoB+XLDGKc1/DRHq9Sdkye/uxffa62t5NTPSmTru/27kfZ5Yrrm4yZSIN 9eSbqg/7sfGfBkG+CxN1zjfNNhDn4kvLQy9muTKRUUnU8EtpLs45ZzyR5sZE l8LVO5fLc7HqZIlInCcTvW8r+DCqzMXcmSlS/n5MNBmmE6StycVRxl6KZqFM VL9S+j8jKy7+lTFbu+sZE9UkKnD+POJixaFvOW1ZTLT6uWGgaxoX71wfrtOU zUSp579mDP/HxblvJddX5zNR5p/o6x35XBzwk7s55xUTLWeY2Di+J0dZhTJT vxomEuRWVcj1cLGX2/FTM/uZaF+yvW3GIhoHmnBPbqSZaEvVqmkRy2h8d8GF kzaDTHSSI/b6rCaNC74FnkgZZaLgPqNTjHU0Ht74n8O6SSbqcB917jKgsYv4 sJ2lAoVCHE2tO+1ofOnHRTsfJoUWjc3M2+RA45B8CbsEFoUM/x6VDz5J44yT M227lChE8bLfTXehcffHDUc81SnUb3JoxSMfGh+LunIwRptCDDmQ1IigsdsZ mYPFayjUc1dRpTuKxv6GEQda11Jo/8RFjZS7NE7iP7JatJFCkbnf5KTiadxq /X5/wVYKzQ9xXG+dSuP+tXv2NxtQKNF/b0vzUxqPyzdZTBpSaNPFj857/qOx alnvPkMTCp39lnBAPZvGBxbK7/22j0Ka7gVoXzGNT03GmAv3Uyg4hG8QVELj C41zzeccoNBSyXOrC0ppHBOkveeENYWWPw96N1JO44Z+CzOeA4UcZULKJT7S 2Kzgwc6ZnhTaqDp862wTud+w/ZSiF4W2yj3Yw2+m8bVVy/IUfSikN9qi7v2D xkXpRWqKfhRyM01vt2+j8bzErwOsAAotfOL++1snjfV+xD1hBRK9xOv4c7to bKXicIgVTCG7rePKR/8SvSOH3lChFHp5/4bbxx4a824q3GXGUIiFWf6IS2NG xTcT5j1y/ab7jTtoGi8XSxBhxhI/ah6vMRmgsZ3vCidGAoUeq+yeXDtEY58X w3MYSRTyMHR3njtM42hecYNCMmGnJb9ERmj8wXWHvkIKhRIcTjRmjNK48xlj SD6NQhZx1w958Gg81duYIp9O9A21aV83RmOd4ycY8pkUmm0eMPWQT/RJXlkx 4zl5vod3lImAxo5tI94zcihkJHRb2U844eC1DrkCCp181eSk/I/oE7PznlwR hYa3jMsnE25oYO6SK6YQO/9OwfxxGnMZTaJyJRRyKXA/Gk9Y2iypYHophdZ2 BikoTBA9b508Pf01hTa35L/2Iqxfqak+vZxC4ro/zzcTPiDJ+yL7lkKp4X+X 60yS/G19FST7jkIT10r/3CAccvn6ZtlKCkU82ZVM9ts4tcRkWOYDhf4L8T/K nKJxuYBKk6mm0N5a0/kmhH+sa7aWqaXQnsn4v76Eee4PmTJ1FNqQ5ZiZQpiZ feqddD2FzriRaUR4BVfrovQXCil9N97WTthw+ZiW9DcKrTm7izlC2O5UaafU dwqFVWT+JucPfPHJjftSzRSqPemUR84fOKbd1EzqB8nD78tB5PyBn89li0u1 kvosGbDrI/zBuqVw2i/yPP/XG78S/nM/2XlaO8lD8cjMQsIijY4a0zopVMWJ Gg0jPIut/U2yi1wfn/7NnrCOOT9YsptCt823FK8gvDsUg2Qvuf7WiSQu0cPp Y8CIBIfoU7s0KI3wdWmzpxJcCi2OjTt/iHDCdkUbiQEKMV3q7SUIv/D/QUkM Uehc5a99KUR/7riTrziPQqFifzfXE/8OHjBZKhij0Gl7kXgbwm9zl3/jCijU WFGyq4P4f9+Jo9U8QSGR+pjUr0IaS7yr/vFpiuRnzeiebYRdNJ4FVYiykIaM 166nJE8G3890PJdkIZ/3V5ANyV/WGrOwFCkWslhoqfuM5HPWHU39OBkWsmvn Xh0h+R3YTsfcnMFC01PVWM4k3w9yXXfaKBLOebVsapDG0xTMx/YpsdBBX+5b BmFXJ+3HO1RYaOynV94sUk+GGkMTOmos9OxiYJQSqb+hUPfs6QtZyLPA1zaf 1OeR3n02ootZ6D3XMiOom8aV23Wmjy1hoYTiGDNLUs/x4yMO7SvI9cKzcd9J /Rs7eSq/0GGhrBvyNldJf8itsKzIXMdC/Z23zyi30niOhq7b4/UsFOo18i2V 9JPhxrGPd/RYSH+ouSir6X/6e18+YcBChT0r3xxroLHMw4MrrA1ZqPujMOPV ZxqfH9/QZG7MQldEUwYV6mi8I1e4Wt+UhUxq10bHV9N4RN23i2XBQrNseMZH Kmhs62sdKWPJQnkeDgt83pB8NeqhKSui5x41uztlNE4Mnbjfe5iFdu02Fia/ ovHOcb9dZcdYaMmf7+9c8mn8sPFqnos7C8XMuqN9/xGNuypWtYV6sJAQFRRK PyT1kNcmk3WBhWaAwe6zCWQehenb0hdZ6AYnIF/jPo2rdwhkXK+z0AabBnfV UBrzX7ranosm9zfXdDzmSePN6XODw++ykFbNoWMG7qTf3qvNy75P/K1rvjjb lcbyHitkh+JZyCvo1PQcRxrP1+zOc0thoUt9pqVu1qQ/JdnKni9kIba4qLEJ onFUqPzaqBcs1GxWfzdBj8ZNvq9s816yUE3jccWe9TR2OKiaP4JZaCpzWsIx bRp7U422HpUsFLBaXZzWoPHj62b5nk0s1MWxZduJ0lh4St/O+x8L1dcER+S+ IPP95TLkMcFCb7LTryIyzx/MUFY/N8VCzmckOyqec7FezlDbKXE2avD7KlKc ysV+/1JtD0xnI84lzUqjaC4WD6VsdVXZ6FmWSYDQhYvlcv8eGd3IRmX/7V9Y MZuLrSW/6g/qsdG26jnJ9kpc/MyqXK1/MxvVUPxCPpOLzcbjfnZuZaPYiFV5 8lJcHLZ975EvO9koNcGD3T7Qj9nfS6xzD7FRd+XCtMVv+rHaRPjhcz6E/8aq rLcn+6P2XS/u+rJRe22ulsPhfnz+vYxSqR8bFQzUf7hp0Y8/hF+tl73GRvIN rHv5hv3Yc9G5HY9vsdHPa0XvMpb147rde3Qb49joqoS5vsQgB/sny7P0MRs1 FynuP3+Bg7uMbn2QllBE1rb9az6d7sP2JnbqC6cpois7fLSVjvXhn2ZrPbdI K6Jxwe9QK7Jf/bK/TcNHThF1aYm5lxn34fJja7z72IrojxJauHFhH46/3LK4 dqEiMh9xsSn70YstCpffiDRSRA/rDo+tN+zFbxZVw5xbiqjx2FsNe/Ee7CSd IqEhMxN5bpfdWWPbhQuTFui/CZ+JpF6tdCrR6MC1m/Qq9jKVUIBbccWbu22Y 7/Rgn12oEtIqtCh+H/kdV+5J3D9jpjKaaP3+Xj20Dttv0EtNjVJGcZ7WaWpx Zdixv2b0R4wyKpG001SzLMOuD20NqPvKqLrn42klRhm+LHPtt2+8MmJN22Q/ fu01jmuqUt2booyCz79dpNhYir95W4WNFyqjhu6ZntHuxXhnsZu3eYsyqndO mPErJRubu0hUBvxURhu/N7a0qWTjA/NiZpa0KaP51766N4c8xyeDX+Qu6lRG x/ypQ1f/ZOLrh0S4/zjK6L2P5kCGbzouFd62T5lURh5PoxdFPn2IKzLnZreI qCCe01lT9p0kXG2fPcUQV0EtYXnV6j0JuOXDl7iLUiros9H9+FG/WMyPVW3c w1BBv7clFm9LD8dTZs8WBlAqyGHRzk2M3lA8TRzOv2SroNXD9tF3Lgdj9ml7 5iIVFVT39e/JC+lXsercEdvDqipoAdU2r+KyD57XcCMzTE0FvUjxsI9MP4eX 3VSaqJirgtbHnblclH4Ua296avJPQwUt1L79v/+3Sv8Ph2LZdw== "]]}, Annotation[#, "Charting`Private`Tag$15294#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{ 0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], ",", FractionBox["2", "3"], ",", SuperscriptBox["x", "2"], ",", RowBox[{"3", "+", RowBox[{"2", " ", "\[ImaginaryI]"}]}], ",", TemplateBox[{"\"Enschede\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Enschede\"", ",", "\"Overijssel\"", ",", "\"Netherlands\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Enschede\\\", \\\"Overijssel\\\", \ \\\"Netherlands\\\"}]\"", "\"city\""}, "Entity"], ",", "\<\"Test\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7653953364643517`*^9, 3.765395343032504*^9}, { 3.7653953912424498`*^9, 3.7653954133083887`*^9}, 3.765397066354764*^9, 3.765442688723216*^9}, CellLabel->"Out[7]=", CellID->376965284] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell["Create a sorted deck of cards:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7653950625023117`*^9, 3.7653950711029673`*^9}, { 3.765395981101227*^9, 3.765395981972308*^9}}, CellID->1475016469], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"deck", "=", RowBox[{ RowBox[{"StringJoin", "@*", "Reverse"}], "/@", RowBox[{"Tuples", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\[SpadeSuit]\>\"", ",", "\"\<\[HeartSuit]\>\"", ",", "\"\<\[DiamondSuit]\>\"", ",", "\"\<\[ClubSuit]\>\""}], "}"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"ToString", "/@", RowBox[{"Range", "[", RowBox[{"2", ",", "10"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], "}"}], "]"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765394733047505*^9, 3.7653950371167088`*^9}, { 3.765395133708374*^9, 3.765395150423085*^9}, 3.765395284485042*^9}, CellLabel->"In[8]:=", CellID->1688074145], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\[SpadeSuit]\"\>", ",", "\<\"2\[SpadeSuit]\"\>", ",", "\<\"3\[SpadeSuit]\"\>", ",", "\<\"4\[SpadeSuit]\"\>", ",", "\<\"5\[SpadeSuit]\"\>", ",", "\<\"6\[SpadeSuit]\"\>", ",", "\<\"7\[SpadeSuit]\"\>", ",", "\<\"8\[SpadeSuit]\"\>", ",", "\<\"9\[SpadeSuit]\"\>", ",", "\<\"10\[SpadeSuit]\"\>", ",", "\<\"J\[SpadeSuit]\"\>", ",", "\<\"Q\[SpadeSuit]\"\>", ",", "\<\"K\[SpadeSuit]\"\>", ",", "\<\"A\[HeartSuit]\"\>", ",", "\<\"2\[HeartSuit]\"\>", ",", "\<\"3\[HeartSuit]\"\>", ",", "\<\"4\[HeartSuit]\"\>", ",", "\<\"5\[HeartSuit]\"\>", ",", "\<\"6\[HeartSuit]\"\>", ",", "\<\"7\[HeartSuit]\"\>", ",", "\<\"8\[HeartSuit]\"\>", ",", "\<\"9\[HeartSuit]\"\>", ",", "\<\"10\[HeartSuit]\"\>", ",", "\<\"J\[HeartSuit]\"\>", ",", "\<\"Q\[HeartSuit]\"\>", ",", "\<\"K\[HeartSuit]\"\>", ",", "\<\"A\[DiamondSuit]\"\>", ",", "\<\"2\[DiamondSuit]\"\>", ",", "\<\"3\[DiamondSuit]\"\>", ",", "\<\"4\[DiamondSuit]\"\>", ",", "\<\"5\[DiamondSuit]\"\>", ",", "\<\"6\[DiamondSuit]\"\>", ",", "\<\"7\[DiamondSuit]\"\>", ",", "\<\"8\[DiamondSuit]\"\>", ",", "\<\"9\[DiamondSuit]\"\>", ",", "\<\"10\[DiamondSuit]\"\>", ",", "\<\"J\[DiamondSuit]\"\>", ",", "\<\"Q\[DiamondSuit]\"\>", ",", "\<\"K\[DiamondSuit]\"\>", ",", "\<\"A\[ClubSuit]\"\>", ",", "\<\"2\[ClubSuit]\"\>", ",", "\<\"3\[ClubSuit]\"\>", ",", "\<\"4\[ClubSuit]\"\>", ",", "\<\"5\[ClubSuit]\"\>", ",", "\<\"6\[ClubSuit]\"\>", ",", "\<\"7\[ClubSuit]\"\>", ",", "\<\"8\[ClubSuit]\"\>", ",", "\<\"9\[ClubSuit]\"\>", ",", "\<\"10\[ClubSuit]\"\>", ",", "\<\"J\[ClubSuit]\"\>", ",", "\<\"Q\[ClubSuit]\"\>", ",", "\<\"K\[ClubSuit]\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.765395284763369*^9, 3.765395984572145*^9, 3.765397077158717*^9, 3.76544269011794*^9}, CellLabel->"Out[8]=", CellID->1611281835] }, Open ]], Cell["Shuffle the deck once:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765395091344396*^9, 3.7653950962742662`*^9}, { 3.765395280794726*^9, 3.765395281282179*^9}, {3.765395987577114*^9, 3.765395988209815*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", "deck", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765395239899317*^9, 3.7653952416204*^9}}, CellLabel->"In[9]:=", CellID->501540103], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\[DiamondSuit]\"\>", ",", "\<\"A\[SpadeSuit]\"\>", ",", "\<\"2\[DiamondSuit]\"\>", ",", "\<\"2\[SpadeSuit]\"\>", ",", "\<\"3\[DiamondSuit]\"\>", ",", "\<\"3\[SpadeSuit]\"\>", ",", "\<\"4\[DiamondSuit]\"\>", ",", "\<\"4\[SpadeSuit]\"\>", ",", "\<\"5\[DiamondSuit]\"\>", ",", "\<\"5\[SpadeSuit]\"\>", ",", "\<\"6\[DiamondSuit]\"\>", ",", "\<\"6\[SpadeSuit]\"\>", ",", "\<\"7\[DiamondSuit]\"\>", ",", "\<\"7\[SpadeSuit]\"\>", ",", "\<\"8\[DiamondSuit]\"\>", ",", "\<\"8\[SpadeSuit]\"\>", ",", "\<\"9\[DiamondSuit]\"\>", ",", "\<\"9\[SpadeSuit]\"\>", ",", "\<\"10\[DiamondSuit]\"\>", ",", "\<\"10\[SpadeSuit]\"\>", ",", "\<\"J\[DiamondSuit]\"\>", ",", "\<\"J\[SpadeSuit]\"\>", ",", "\<\"Q\[DiamondSuit]\"\>", ",", "\<\"Q\[SpadeSuit]\"\>", ",", "\<\"K\[DiamondSuit]\"\>", ",", "\<\"K\[SpadeSuit]\"\>", ",", "\<\"A\[ClubSuit]\"\>", ",", "\<\"A\[HeartSuit]\"\>", ",", "\<\"2\[ClubSuit]\"\>", ",", "\<\"2\[HeartSuit]\"\>", ",", "\<\"3\[ClubSuit]\"\>", ",", "\<\"3\[HeartSuit]\"\>", ",", "\<\"4\[ClubSuit]\"\>", ",", "\<\"4\[HeartSuit]\"\>", ",", "\<\"5\[ClubSuit]\"\>", ",", "\<\"5\[HeartSuit]\"\>", ",", "\<\"6\[ClubSuit]\"\>", ",", "\<\"6\[HeartSuit]\"\>", ",", "\<\"7\[ClubSuit]\"\>", ",", "\<\"7\[HeartSuit]\"\>", ",", "\<\"8\[ClubSuit]\"\>", ",", "\<\"8\[HeartSuit]\"\>", ",", "\<\"9\[ClubSuit]\"\>", ",", "\<\"9\[HeartSuit]\"\>", ",", "\<\"10\[ClubSuit]\"\>", ",", "\<\"10\[HeartSuit]\"\>", ",", "\<\"J\[ClubSuit]\"\>", ",", "\<\"J\[HeartSuit]\"\>", ",", "\<\"Q\[ClubSuit]\"\>", ",", "\<\"Q\[HeartSuit]\"\>", ",", "\<\"K\[ClubSuit]\"\>", ",", "\<\"K\[HeartSuit]\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7653952425177183`*^9, 3.765395286794938*^9, {3.765395986253709*^9, 3.765395990110701*^9}, 3.7653970792347717`*^9, 3.765442690967448*^9}, CellLabel->"Out[9]=", CellID->1298088006] }, Open ]], Cell["The original is obtained after 52 shuffles:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765395256067191*^9, 3.765395301711368*^9}}, CellID->1001018680], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{"deck", ",", "52"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653950424085197`*^9, 3.7653950461739397`*^9}, { 3.7653950982058496`*^9, 3.765395118256014*^9}, {3.765395159468172*^9, 3.765395167523179*^9}, {3.7653952354320517`*^9, 3.765395250402598*^9}, { 3.765395305280477*^9, 3.7653953088083563`*^9}, {3.7654424481265507`*^9, 3.7654424492499657`*^9}}, CellLabel->"In[10]:=", CellID->836153427], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\[SpadeSuit]\"\>", ",", "\<\"2\[SpadeSuit]\"\>", ",", "\<\"3\[SpadeSuit]\"\>", ",", "\<\"4\[SpadeSuit]\"\>", ",", "\<\"5\[SpadeSuit]\"\>", ",", "\<\"6\[SpadeSuit]\"\>", ",", "\<\"7\[SpadeSuit]\"\>", ",", "\<\"8\[SpadeSuit]\"\>", ",", "\<\"9\[SpadeSuit]\"\>", ",", "\<\"10\[SpadeSuit]\"\>", ",", "\<\"J\[SpadeSuit]\"\>", ",", "\<\"Q\[SpadeSuit]\"\>", ",", "\<\"K\[SpadeSuit]\"\>", ",", "\<\"A\[HeartSuit]\"\>", ",", "\<\"2\[HeartSuit]\"\>", ",", "\<\"3\[HeartSuit]\"\>", ",", "\<\"4\[HeartSuit]\"\>", ",", "\<\"5\[HeartSuit]\"\>", ",", "\<\"6\[HeartSuit]\"\>", ",", "\<\"7\[HeartSuit]\"\>", ",", "\<\"8\[HeartSuit]\"\>", ",", "\<\"9\[HeartSuit]\"\>", ",", "\<\"10\[HeartSuit]\"\>", ",", "\<\"J\[HeartSuit]\"\>", ",", "\<\"Q\[HeartSuit]\"\>", ",", "\<\"K\[HeartSuit]\"\>", ",", "\<\"A\[DiamondSuit]\"\>", ",", "\<\"2\[DiamondSuit]\"\>", ",", "\<\"3\[DiamondSuit]\"\>", ",", "\<\"4\[DiamondSuit]\"\>", ",", "\<\"5\[DiamondSuit]\"\>", ",", "\<\"6\[DiamondSuit]\"\>", ",", "\<\"7\[DiamondSuit]\"\>", ",", "\<\"8\[DiamondSuit]\"\>", ",", "\<\"9\[DiamondSuit]\"\>", ",", "\<\"10\[DiamondSuit]\"\>", ",", "\<\"J\[DiamondSuit]\"\>", ",", "\<\"Q\[DiamondSuit]\"\>", ",", "\<\"K\[DiamondSuit]\"\>", ",", "\<\"A\[ClubSuit]\"\>", ",", "\<\"2\[ClubSuit]\"\>", ",", "\<\"3\[ClubSuit]\"\>", ",", "\<\"4\[ClubSuit]\"\>", ",", "\<\"5\[ClubSuit]\"\>", ",", "\<\"6\[ClubSuit]\"\>", ",", "\<\"7\[ClubSuit]\"\>", ",", "\<\"8\[ClubSuit]\"\>", ",", "\<\"9\[ClubSuit]\"\>", ",", "\<\"10\[ClubSuit]\"\>", ",", "\<\"J\[ClubSuit]\"\>", ",", "\<\"Q\[ClubSuit]\"\>", ",", "\<\"K\[ClubSuit]\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.765395046466448*^9, {3.76539510743587*^9, 3.7653951186169157`*^9}, { 3.7653951521717997`*^9, 3.765395162763502*^9}, 3.76539525098398*^9, { 3.765395288308093*^9, 3.765395309195019*^9}, 3.765395990810338*^9, 3.765397083392304*^9, 3.765442692519464*^9}, CellLabel->"Out[10]=", CellID->888001344] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell["\<\ An in shuffle on a list of length 2 can be seen as swapping the elements or \ reversing the list:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.765395549164597*^9, 3.7653955594922028`*^9}, { 3.765398086090567*^9, 3.765398117054894*^9}}, CellID->1000397995], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653955436926203`*^9, 3.7653955443284492`*^9}}, CellLabel->"In[11]:=", CellID->1241131825], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.76539554469363*^9, 3.765397085853554*^9, 3.7653979108719177`*^9, 3.7653981192460003`*^9, 3.765442694768861*^9}, CellLabel->"Out[11]=", CellID->573311310] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, 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], CellID->380712487], Cell[TextData[{ "Figure out after how many in shuffles a list of size ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns to its original order:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7653956536834803`*^9, 3.765395666241117*^9}, { 3.7653962938226852`*^9, 3.7653963043456917`*^9}, 3.7653967280161257`*^9, { 3.765396803333953*^9, 3.765396803764922*^9}, {3.7728098615233126`*^9, 3.7728099133573294`*^9}, {3.7728099524466934`*^9, 3.7728099598101463`*^9}}, CellID->1031755412], Cell[BoxData[ RowBox[{ RowBox[{"howManyIterations", "[", "n_", "]"}], ":=", RowBox[{"Length", "[", RowBox[{"NestWhileList", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/\ published/FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], ",", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/\ published/FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "@", RowBox[{"Range", "[", "n", "]"}]}], ",", RowBox[{ RowBox[{"#", "=!=", RowBox[{"Range", "[", "n", "]"}]}], "&"}]}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765396388999378*^9, 3.7653963969562473`*^9}, { 3.7653964286206837`*^9, 3.765396429247734*^9}, {3.765396565543311*^9, 3.765396572311267*^9}, {3.7653966265890923`*^9, 3.765396631956164*^9}, { 3.765396668724524*^9, 3.7653966829896307`*^9}}, CellLabel->"In[12]:=", CellID->519299187], Cell["\<\ For lists of even length, the number of shuffles to return to the original \ order is known analytically:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7653966912945967`*^9, 3.765396754245631*^9}, { 3.7728100772461243`*^9, 3.7728100790889864`*^9}, 3.7728101589330006`*^9}, CellID->777291503], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"howManyIterations", "[", RowBox[{"2", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[13]:=", CellID->670206393], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.765396777924467*^9, 3.765397120582678*^9, 3.7654426967837133`*^9}, CellLabel->"Out[13]=", CellID->1515535990] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MultiplicativeOrder", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "#"}], "+", "1"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653964357311563`*^9, 3.7653964385605583`*^9}, { 3.76539647512921*^9, 3.765396541737754*^9}}, CellLabel->"In[14]:=", CellID->488455316], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.765396479506694*^9, 3.765396542013591*^9}, 3.7653967786807203`*^9, {3.765397096741692*^9, 3.765397118293804*^9}, 3.765442697472982*^9}, CellLabel->"Out[14]=", CellID->1621559450] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, 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], CellID->129204022], Cell[TextData[{ "Visualize how the positions of items are changed for a list of length 21 in \ the form of a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graph", "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/Graph", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.765397767009993*^9, 3.765397796447941*^9}}, CellID->124154517], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Range", "[", "21", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"edges", "=", RowBox[{"Thread", "[", RowBox[{"t", "->", RowBox[{"Ordering", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/\ published/FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", "t", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graph", "[", RowBox[{"edges", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.76539749250766*^9, 3.7653975630949163`*^9}, { 3.7653976415075006`*^9, 3.765397758110669*^9}, {3.7653978078987303`*^9, 3.7653978259032497`*^9}, {3.765397879476923*^9, 3.765397898396963*^9}}, CellLabel->"In[15]:=", CellID->2051972913], Cell[BoxData[ GraphicsBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.028611509869230407`], ArrowBox[{{1.787790109283575, -0.2965206725210847}, { 2.2973045122346063`, -1.1563672643010692`}}, 0.041129168649192166`], ArrowBox[{{2.2973045122346063`, -1.1563672643010692`}, { 1.8066212107370407`, -2.0276201260363607`}}, 0.041129168649192166`], ArrowBox[{{1.8066212107370407`, -2.0276201260363607`}, { 0.806520547762146, -2.0392351798746837`}}, 0.041129168649192166`], ArrowBox[{{2.890410276070268, -1.9373580692169727`}, { 3.3764429387837214`, -2.8112986663685104`}}, 0.041129168649192166`], ArrowBox[{{3.3764429387837214`, -2.8112986663685104`}, { 3.890281438483281, -1.953411716570289}}, 0.041129168649192166`], ArrowBox[{{0.806520547762146, -2.0392351798746837`}, { 0.29652067252108427`, -1.1797354467131869`}}, 0.041129168649192166`], ArrowBox[{{0.8057791123844829, -4.373872711869655}, { 1.8049986158522344`, -4.363748754179884}}, 0.041129168649192166`], ArrowBox[{{1.8049986158522344`, -4.363748754179884}, { 2.2963149003841146`, -3.493217899044809}}, 0.041129168649192166`], ArrowBox[{{3.890281438483281, -1.953411716570289}, { 2.890410276070268, -1.9373580692169727`}}, 0.041129168649192166`], ArrowBox[BezierCurveBox[{{1.2965206725210845`, -4.966914056911824}, { 0.7965206725210688, -5.1313548040949435`}, { 0.2965206725210845, -4.966914056911824}}], 0.041129168649192166`], ArrowBox[BezierCurveBox[{{0.2965206725210845, -4.966914056911824}, { 0.7965206725210933, -4.802473309728719}, { 1.2965206725210845`, -4.966914056911824}}], 0.041129168649192166`], ArrowBox[{{0.29652067252108427`, -1.1797354467131869`}, { 0.7867938036350264, -0.3082235149561585}}, 0.041129168649192166`], ArrowBox[{{2.890410276070268, -3.452136063064399}, { 3.3764429387837214`, -4.326076660215937}}, 0.041129168649192166`], ArrowBox[{{3.3764429387837214`, -4.326076660215937}, { 3.890281438483281, -3.468189710417715}}, 0.041129168649192166`], ArrowBox[{{2.2963149003841146`, -3.493217899044809}, { 1.7887689163443414`, -2.6322765249168523`}}, 0.041129168649192166`], ArrowBox[{{0.7867938036350264, -0.3082235149561585}, { 1.787790109283575, -0.2965206725210847}}, 0.041129168649192166`], ArrowBox[{{0.29652067252108427`, -3.512347861254452}, { 0.8057791123844829, -4.373872711869655}}, 0.041129168649192166`], ArrowBox[{{3.890281438483281, -3.468189710417715}, { 2.890410276070268, -3.452136063064399}}, 0.041129168649192166`], ArrowBox[{{0.7881677922184946, -2.641227661147971}, { 0.29652067252108427`, -3.512347861254452}}, 0.041129168649192166`], ArrowBox[{{1.7887689163443414`, -2.6322765249168523`}, { 0.7881677922184946, -2.641227661147971}}, 0.041129168649192166`], ArrowBox[BezierCurveBox[{{3.390345857276775, -0.7965206725210845}, { 3.301866601809014, -0.9873042049063868}, { 3.1029881242714237`, -1.0437004473669809`}, { 2.975817499796966, -0.9847433685921076}, { 2.975817499796966, -0.6082979764500613}, { 3.1029881242714237`, -0.5493408976751881}, { 3.301866601809014, -0.6057371401357822}, { 3.390345857276775, -0.7965206725210845}}, SplineDegree->7], 0.041129168649192166`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{1.787790109283575, -0.2965206725210847}, 0.041129168649192166], InsetBox["1", Offset[{2, 2}, {1.8289192779327672, -0.2553915038718926}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2973045122346063, -1.1563672643010692}, 0.041129168649192166], InsetBox["2", Offset[{2, 2}, {2.3384336808837984, -1.115238095651877}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.8066212107370407, -2.0276201260363607}, 0.041129168649192166], InsetBox["4", Offset[{2, 2}, {1.8477503793862329, -1.9864909573871685}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.890410276070268, -1.9373580692169727}, 0.041129168649192166], InsetBox["3", Offset[{2, 2}, {2.9315394447194603, -1.8962289005677806}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3764429387837214, -2.8112986663685104}, 0.041129168649192166], InsetBox["6", Offset[{2, 2}, {3.4175721074329135, -2.7701694977193183}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.806520547762146, -2.0392351798746837}, 0.041129168649192166], InsetBox["8", Offset[{2, 2}, {0.8476497164113381, -1.9981060112254916}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.8057791123844829, -4.373872711869655}, 0.041129168649192166], InsetBox["5", Offset[{2, 2}, {0.846908281033675, -4.332743543220463}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.8049986158522344, -4.363748754179884}, 0.041129168649192166], InsetBox["10", Offset[{2, 2}, {1.8461277845014266, -4.322619585530692}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.890281438483281, -1.953411716570289}, 0.041129168649192166], InsetBox["12", Offset[{2, 2}, {3.9314106071324733, -1.9122825479210968}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.2965206725210845, -4.966914056911824}, 0.041129168649192166], InsetBox["7", Offset[{2, 2}, {1.3376498411702766, -4.925784888262632}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.2965206725210845, -4.966914056911824}, 0.041129168649192166], InsetBox["14", Offset[{2, 2}, {0.33764984117027663, -4.925784888262632}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.29652067252108427, -1.1797354467131869}, 0.041129168649192166], InsetBox["16", Offset[{2, 2}, {0.3376498411702764, -1.1386062780639947}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.890410276070268, -3.452136063064399}, 0.041129168649192166], InsetBox["9", Offset[{2, 2}, {2.9315394447194603, -3.4110068944152068}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3764429387837214, -4.326076660215937}, 0.041129168649192166], InsetBox["18", Offset[{2, 2}, {3.4175721074329135, -4.2849474915667445}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2963149003841146, -3.493217899044809}, 0.041129168649192166], InsetBox["20", Offset[{2, 2}, {2.3374440690333067, -3.4520887303956167}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7867938036350264, -0.3082235149561585}, 0.041129168649192166], InsetBox["11", Offset[{2, 2}, {0.8279229722842185, -0.2670943463069664}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.29652067252108427, -3.512347861254452}, 0.041129168649192166], InsetBox["13", Offset[{2, 2}, {0.3376498411702764, -3.4712186926052597}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.890281438483281, -3.468189710417715}, 0.041129168649192166], InsetBox["15", Offset[{2, 2}, {3.9314106071324733, -3.427060541768523}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7881677922184946, -2.641227661147971}, 0.041129168649192166], InsetBox["17", Offset[{2, 2}, {0.8292969608676868, -2.6000984924987787}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7887689163443414, -2.6322765249168523}, 0.041129168649192166], InsetBox["19", Offset[{2, 2}, {1.8298980849935336, -2.59114735626766}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.390345857276775, -0.7965206725210845}, 0.041129168649192166], InsetBox["21", Offset[{2, 2}, {3.431475025925967, -0.7553915038718924}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}, FormatType->TraditionalForm, FrameTicks->None]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765442704980723*^9, 3.7654427049933968`*^9}}, CellID->1752404611], Cell["\<\ Confirm that 6 nested in shuffles returns the list of 21 items to the \ original order:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7653978331836557`*^9, 3.7653978619778843`*^9}}, CellID->1636173961], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Range", "[", "21", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"edges", "=", RowBox[{"Thread", "[", RowBox[{"t", "->", RowBox[{"Ordering", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/\ published/FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{"t", ",", "6"}], "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graph", "[", RowBox[{"edges", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653978639166183`*^9, 3.765397864151717*^9}}, CellLabel->"In[19]:=", CellID->1863134646], Cell[BoxData[ GraphicsBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.032857252776741355`], ArrowBox[BezierCurveBox[{{0.7500500000000071, -0.7500500000000001}, { 0.7323541489064549, -0.7882067064770606}, { 0.6925784533989368, -0.7994859549691794}, { 0.6671443285040454, -0.7876945392142047}, { 0.6671443285040453, -0.7124054607857955}, { 0.6925784533989368, -0.7006140450308208}, { 0.7323541489064549, -0.7118932935229396}, { 0.7500500000000071, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000071, -0.4500300000000001}, { 0.7323541489064549, -0.4881867064770606}, { 0.6925784533989368, -0.4994659549691794}, { 0.6671443285040454, -0.4876745392142047}, { 0.6671443285040453, -0.41238546078579547`}, { 0.6925784533989368, -0.4005940450308208}, { 0.7323541489064549, -0.4118732935229396}, { 0.7500500000000071, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000437`, -0.7500500000000001}, { 0.4323341489064523, -0.7882067064770606}, { 0.3925584533989341, -0.7994859549691794}, { 0.36712432850404264`, -0.7876945392142047}, { 0.36712432850404264`, -0.7124054607857955}, { 0.3925584533989341, -0.7006140450308208}, { 0.4323341489064523, -0.7118932935229396}, { 0.45003000000000437`, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.750050000000007, -0.15001000000000003`}, { 0.7323541489064549, -0.1881667064770605}, { 0.6925784533989366, -0.19944595496917933`}, { 0.6671443285040453, -0.18765453921420466`}, { 0.6671443285040453, -0.1123654607857954}, { 0.6925784533989366, -0.10057404503082075`}, { 0.7323541489064548, -0.11185329352293956`}, { 0.750050000000007, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15000999999999998`, -1.0500700000000003`}, { 0.13231414890644788`, -1.0882267064770608`}, { 0.0925384533989297, -1.0995059549691795`}, { 0.06710432850403825, -1.087714539214205}, { 0.06710432850403823, -1.0124254607857957`}, { 0.0925384533989297, -1.000634045030821}, { 0.13231414890644785`, -1.0119132935229398`}, { 0.15000999999999998`, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.0500700000000052`, -1.3500900000000002`}, { 1.032374148906453, -1.3882467064770607`}, { 0.9925984533989348, -1.3995259549691794`}, { 0.9671643285040434, -1.3877345392142049`}, { 0.9671643285040434, -1.3124454607857956`}, { 0.9925984533989348, -1.300654045030821}, { 1.032374148906453, -1.3119332935229397`}, { 1.0500700000000052`, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000034, -1.3500900000000002`}, { 0.7323541489064513, -1.3882467064770607`}, { 0.6925784533989331, -1.3995259549691794`}, { 0.6671443285040417, -1.3877345392142049`}, { 0.6671443285040417, -1.3124454607857956`}, { 0.6925784533989331, -1.300654045030821}, { 0.7323541489064512, -1.3119332935229397`}, { 0.7500500000000034, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.4500300000000017, -1.3500900000000002`}, { 0.4323341489064496, -1.3882467064770607`}, { 0.3925584533989314, -1.3995259549691794`}, { 0.36712432850404, -1.3877345392142049`}, { 0.36712432850404, -1.3124454607857956`}, { 0.3925584533989314, -1.300654045030821}, { 0.4323341489064496, -1.3119332935229397`}, { 0.4500300000000017, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15000999999999998`, -1.3500900000000002`}, { 0.13231414890644788`, -1.3882467064770607`}, { 0.0925384533989297, -1.3995259549691794`}, { 0.06710432850403825, -1.3877345392142049`}, { 0.06710432850403823, -1.3124454607857956`}, { 0.0925384533989297, -1.300654045030821}, { 0.13231414890644785`, -1.3119332935229397`}, { 0.15000999999999998`, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -1.0500700000000003`}, { 1.0323741489064548`, -1.0882267064770608`}, { 0.9925984533989366, -1.0995059549691795`}, { 0.9671643285040452, -1.087714539214205}, { 0.9671643285040452, -1.0124254607857957`}, { 0.9925984533989366, -1.000634045030821}, { 1.0323741489064548`, -1.0119132935229398`}, { 1.050070000000007, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.4500300000000017, -1.0500700000000003`}, { 0.4323341489064496, -1.0882267064770608`}, { 0.3925584533989314, -1.0995059549691795`}, { 0.36712432850404, -1.087714539214205}, { 0.36712432850404, -1.0124254607857957`}, { 0.3925584533989314, -1.000634045030821}, { 0.4323341489064496, -1.0119132935229398`}, { 0.4500300000000017, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000052, -1.0500700000000003`}, { 0.7323541489064531, -1.0882267064770608`}, { 0.6925784533989349, -1.0995059549691795`}, { 0.6671443285040435, -1.087714539214205}, { 0.6671443285040435, -1.0124254607857957`}, { 0.6925784533989349, -1.000634045030821}, { 0.732354148906453, -1.0119132935229398`}, { 0.7500500000000052, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.15001000000000003`}, { 1.0323741489064548`, -0.1881667064770605}, { 0.9925984533989366, -0.19944595496917933`}, { 0.9671643285040452, -0.18765453921420466`}, { 0.9671643285040452, -0.1123654607857954}, { 0.9925984533989366, -0.10057404503082075`}, { 1.0323741489064548`, -0.11185329352293956`}, { 1.050070000000007, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.4500300000000001}, { 1.0323741489064548`, -0.4881867064770606}, { 0.9925984533989366, -0.4994659549691794}, { 0.9671643285040452, -0.4876745392142047}, { 0.9671643285040452, -0.41238546078579547`}, { 0.9925984533989366, -0.4005940450308208}, { 1.0323741489064548`, -0.4118732935229396}, { 1.050070000000007, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.7500500000000001}, { 1.0323741489064548`, -0.7882067064770606}, { 0.9925984533989366, -0.7994859549691794}, { 0.9671643285040452, -0.7876945392142047}, { 0.9671643285040452, -0.7124054607857955}, { 0.9925984533989366, -0.7006140450308208}, { 1.0323741489064548`, -0.7118932935229396}, { 1.050070000000007, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.350090000000007, -0.15001000000000003`}, { 1.3323941489064548`, -0.1881667064770605}, { 1.2926184533989367`, -0.19944595496917933`}, { 1.2671843285040452`, -0.18765453921420466`}, { 1.2671843285040452`, -0.1123654607857954}, { 1.2926184533989367`, -0.10057404503082075`}, { 1.3323941489064548`, -0.11185329352293956`}, { 1.350090000000007, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.7500500000000001}, { 0.13231414890644966`, -0.7882067064770606}, { 0.09253845339893148, -0.7994859549691794}, { 0.06710432850404002, -0.7876945392142047}, { 0.06710432850404001, -0.7124054607857955}, { 0.09253845339893148, -0.7006140450308208}, { 0.13231414890644963`, -0.7118932935229396}, { 0.15001000000000175`, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.15001000000000003`}, { 0.13231414890644966`, -0.1881667064770605}, { 0.09253845339893148, -0.19944595496917933`}, { 0.06710432850404002, -0.18765453921420466`}, { 0.06710432850404001, -0.1123654607857954}, { 0.09253845339893148, -0.10057404503082075`}, { 0.13231414890644963`, -0.11185329352293956`}, { 0.15001000000000175`, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000526`, -0.4500300000000001}, { 0.43233414890645316`, -0.4881867064770606}, { 0.39255845339893497`, -0.4994659549691794}, { 0.36712432850404353`, -0.4876745392142047}, { 0.36712432850404353`, -0.41238546078579547`}, { 0.39255845339893497`, -0.4005940450308208}, { 0.43233414890645316`, -0.4118732935229396}, { 0.45003000000000526`, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000526`, -0.15001000000000003`}, { 0.43233414890645316`, -0.1881667064770605}, { 0.39255845339893497`, -0.19944595496917933`}, { 0.36712432850404353`, -0.18765453921420466`}, { 0.36712432850404353`, -0.1123654607857954}, { 0.39255845339893497`, -0.10057404503082075`}, { 0.43233414890645316`, -0.11185329352293956`}, { 0.45003000000000526`, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.4500300000000001}, { 0.13231414890644966`, -0.4881867064770606}, { 0.09253845339893148, -0.4994659549691794}, { 0.06710432850404002, -0.4876745392142047}, { 0.06710432850404001, -0.41238546078579547`}, { 0.09253845339893148, -0.4005940450308208}, { 0.13231414890644963`, -0.4118732935229396}, { 0.15001000000000175`, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0.7500500000000071, -0.7500500000000001}, 0.015772532764924796], InsetBox["1", Offset[{2, 2}, {0.765822532764932, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000071, -0.4500300000000001}, 0.015772532764924796], InsetBox["2", Offset[{2, 2}, {0.765822532764932, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000437, -0.7500500000000001}, 0.015772532764924796], InsetBox["3", Offset[{2, 2}, {0.46580253276492917, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.750050000000007, -0.15001000000000003}, 0.015772532764924796], InsetBox["4", Offset[{2, 2}, {0.7658225327649317, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15000999999999998, -1.0500700000000003}, 0.015772532764924796], InsetBox["5", Offset[{2, 2}, {0.16578253276492477, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.0500700000000052, -1.3500900000000002}, 0.015772532764924796], InsetBox["6", Offset[{2, 2}, {1.06584253276493, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000034, -1.3500900000000002}, 0.015772532764924796], InsetBox["7", Offset[{2, 2}, {0.7658225327649282, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.4500300000000017, -1.3500900000000002}, 0.015772532764924796], InsetBox["8", Offset[{2, 2}, {0.4658025327649265, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15000999999999998, -1.3500900000000002}, 0.015772532764924796], InsetBox["9", Offset[{2, 2}, {0.16578253276492477, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -1.0500700000000003}, 0.015772532764924796], InsetBox["10", Offset[{2, 2}, {1.0658425327649317, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.4500300000000017, -1.0500700000000003}, 0.015772532764924796], InsetBox["11", Offset[{2, 2}, {0.4658025327649265, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000052, -1.0500700000000003}, 0.015772532764924796], InsetBox["12", Offset[{2, 2}, {0.76582253276493, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.15001000000000003}, 0.015772532764924796], InsetBox["13", Offset[{2, 2}, {1.0658425327649317, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.4500300000000001}, 0.015772532764924796], InsetBox["14", Offset[{2, 2}, {1.0658425327649317, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.7500500000000001}, 0.015772532764924796], InsetBox["15", Offset[{2, 2}, {1.0658425327649317, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.350090000000007, -0.15001000000000003}, 0.015772532764924796], InsetBox["16", Offset[{2, 2}, {1.3658625327649316, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.7500500000000001}, 0.015772532764924796], InsetBox["17", Offset[{2, 2}, {0.16578253276492655, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.15001000000000003}, 0.015772532764924796], InsetBox["18", Offset[{2, 2}, {0.16578253276492655, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000526, -0.4500300000000001}, 0.015772532764924796], InsetBox["19", Offset[{2, 2}, {0.46580253276493006, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000526, -0.15001000000000003}, 0.015772532764924796], InsetBox["20", Offset[{2, 2}, {0.46580253276493006, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.4500300000000001}, 0.015772532764924796], InsetBox["21", Offset[{2, 2}, {0.16578253276492655, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}, FormatType->TraditionalForm, FrameTicks->None]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765442711971877*^9, 3.7654427119848537`*^9}}, CellID->351453609] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Possible Issues", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->92483860], Cell["0 iterations returns the original list:", "Text", TaggingRules->{}, CellChangeTimes->{{3.765396910579115*^9, 3.7653969462393*^9}}, CellID->1957072080], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "0"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.765396898436646*^9, {3.7653969853362713`*^9, 3.765396988346253*^9}}, CellLabel->"In[23]:=", CellID->622170175], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7653968992539062`*^9, {3.765396980602466*^9, 3.765396988939383*^9}, 3.765442713692045*^9}, CellLabel->"Out[23]=", CellID->1059264430] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->540091361], Cell[TextData[{ "Plot how many in shuffles are needed to return to the original order for a \ list of length ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7653956536834803`*^9, 3.765395666241117*^9}, { 3.7653962938226852`*^9, 3.7653963043456917`*^9}, {3.765396805669392*^9, 3.765396860458777*^9}, {3.772810189938871*^9, 3.7728101932018747`*^9}}, CellID->1086514322], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"howManyIterations", "[", "n_", "]"}], ":=", RowBox[{"Length", "[", RowBox[{"NestWhileList", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/\ published/FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], ",", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["InShuffle", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/\ published/FunctionRepository/resources/InShuffle"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "InShuffle"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["InShuffle"], BoxID -> "InShuffle", Selectable->False], "@", RowBox[{"Range", "[", "n", "]"}]}], ",", RowBox[{ RowBox[{"#", "=!=", RowBox[{"Range", "[", "n", "]"}]}], "&"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"howManyIterations", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1024"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653956674396057`*^9, 3.765395694225239*^9}, { 3.76539573119044*^9, 3.765395773449608*^9}, {3.765395817441977*^9, 3.765395901456016*^9}, {3.765396308266588*^9, 3.7653963306926947`*^9}}, CellLabel->"In[24]:=", CellID->1602524722], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxd2znQ80YBxvEdhsKlCwoXFCLDMB6GYQwEMGcWc5lbhADmVj6SYG5BCDE5 98vpXETlW6p06dKlSpcuXap0qdIlTPw8mdn/1zzzm9l3pZVWq92Vv4/c+/vD j38g/P/fB0N4L9/7NzyUZ4h5juAx8kPwBH/3YbhAuQfgjyI/Bk+RH4c/gfP5 JDzDeXwK/jTyM/CDON/Pwp/DeX8enqOeL8BfxPG+BH8Z+RX4q0rfl4fgqNT1 THD4mlLXM8FhkWeCw9fx93D4hlLtTXD4plL3McHhW6gfDt9W6ronOCyVum8J Dt9Rqj8kOHw3zwSH7+XtSXD4vlL3M8HhB3kmOPwwzwSHHynVHxMcSqWuV4RT mWcHhx8r1c8jnGT3mw4ODysf0N/Dydb16uDwE6X6eYST7H7XweERpe5LhNMj eXZw+KlS/SHCydbz2MHhZ0qNBxFOtu5HB4efK/W8RjjZC/09HFZK9fsIJ1vX s4PDL/KMcHLqueng8Mu8PRFOv8yzg8Ov8vZEOMEdHH6t1P2IcLI1rnRw+A3O H062xvkODr/NzzPCSX6//8Phd0pffzjZeu92cKiUGk8LOFZ5VnByeY1XLdzZ i1v2cHhUqXGhgOOjeVZwcnmN6y3c2RoPezjcU+p+F3C09d6p4HQvzxbuXF7z jh4Ov1eqPxRwtHW/KzjZet+0cAf3cHhM9ei9X8DxsTwrOD2Wn08Ld7LHzR4O j+ftKOAouz9VcHo8zxbuXN73Hw5PKPU+LeD4RJ4VnJAt3Lk+Hx8Of1AudHw4 2poXVXCy/fzBnexxv4fDWqlxvYCjrfGsgtM6zxbunKqvh8MfVV7ziQKOst+z FZxs9z+4Q309HP4k671awPFPeVZwcmq8auFO9njSw+HPSo0HBRxt93842Rov WriTPS/v4fAXpfpjAce/5FnByeU1r2rhztZ8oYfDX5VatxRwtNVfKzjJnue1 cCf7vdvD4W9Kj79wlN8f/+Dk8uqPLdzZCx0fDn9XPRoPCzjKXodUcHJ5zRda uHN5zUd7ONRKrYPHcGHrfGdwtNXeEq5kzxtqOLm83kcN3NpaT+zhrs7zBPdO HW+Awz+UGs/GcGFrPJnB0VZ/LOHKVn+v4SR7vGjg1lZ9e7hzfYtbnuDe1vM8 wOGfSs2LxnBhaz0wg+M/8yzhyuX1vNVwkj3eNnBr637t4c71aT52gntb8+EB Dk8qdT3GcCF7HTODI1zClex5Ww0nl5cbuPX5qD/u4e7JPE9w7/p0Pwc4/EvW emoMF7LX6TM42rpeJVzZi1vWcJK9b9DArcvrednDHeo7wb3b4+cfDk8ptd8z hgtb7+sZHG2tt0u4kr1uqOHk8lpPNnD7VJ57uEOe4N71LW45wOHfSj1vY7iQ 3V9mcHR5vS9LuJI9b67hZOu8Grj18fQ+28Odj6f2nOBe9rx7gMPTSj//cCH7 eZzB8ek8S7hyfRoPajjZel82cPt0nnu4c3mt109wL3veP8Bhk7d3DBe2xtMZ HDd5lnDl8upPNZxcXs9jA7eyr/ce7lyfnpcT3NuaLw9w+I9S64IxXNi6HjM4 2uqPJVzJXg/WcLJ1vAZuXZ/Gwz3cyV7nnuDe9Wm+OsDhGbXD73+4eCbPGRyR JVyhvhpOstezDdzaut57uINPcC/7u8EAh2eVep+N4cL2+A9H2evcEq5k72vX cHJ9Op8Gbp/Ncw93Lu/+D/ey96MGODyn1LpsDBe2579wtPU+LuHK1nylhpOt 9VoDt7au1x7unsvzBPdOtWeAw/N5e8Zw8XyeMzgqvZ9QwpXr03qmhpPLe/4D t7bGiz3c2RoPT3Ave907wOEF5eKWY7h4IW/PDI4ur/VACVey1801nGSvpxu4 fSHPPdz5ePpudoJ72+sfOLyo43n+Cxey9zFncIRLuJK9bq/hJHs+0MCt/P77 D+5ezPME967vgVsOcEhKvQ9H8Fj2+2gCF7L3eabwzOX1PprDUfY+whIuU54r uPL56n6u4drW+2QDJ9n7Jlu4cXt0vndwi+Pt4L3bq32/A9y5vXqej/DJVvkz 3Kc8L/Dg46m+KxzuKxe3HMHj+3lO4MLl1d4pPJO9TzWHo63vsUu4xPms4Op+ nmu4dnnNpzdwstUftnBzP887uHV5zQd28N7W9+QD3MnexznCJ18PfXc8w73L az5/gQeX177vFQ4vKe/dcgSPbe3XT+BC9j7nFJ7Jfp7ncHR9mg8s4fKlPFdw pfR+0Rqubc3HNnCy791yCzc+H61n7+BW9nxvB+9l71sd4M716Xc/R/jk89H7 9gz3tu7nBR5k73td4fCyUs/DCB7L3uecwMXLeU7hmevTfGoOR9en99kSLl/O cwVXSl/vNVzL/p65gZOPp/fiFm5cXv3pDm7dHs1Hd/De5TUfP8Cdj6fx/Aif XJ/GkzPc435d4AH1XeHwilL9aQSPZX/HmsCFy+t8pvBM9r7hHI6y95mXcOn6 tJ5YwdUrea7hWunxZgMn16f5zhZuXsnzDm6RO3jv+jReHODOXtzyCJ98vtq3 PcO97N9JXeDB9el9fIXDq0rN10fwWPZ8YQIXr+Y5hWeobw5H2d8Tl3Dp8vre s4IrW+ulNVzbWk9u4OT2aLzZwo3s+ewd3Lo+9ccdvHd7NF4e4M7lNd84widb v0c4w/2reV7gweUXt7zC4TWlvieN4LHs7ywTuHgtzyk8U/p77ByOtuZDS7j0 +ai/ruDK56P17BquZe87b+Dk4+l76hZufDy//+HW5bWftYP3sn/XdYA72evk I3zy8bSePcO9j6f51gUeXF7vgyscXlc7NB6P4LHs+dwELmT3pyk8k71vPoej 7PnWEi5xvBVcyf7OtYZr2fvuGzj5fH3/4cZWf7uD29fz3MF7t0f7wQe4c3t0 Pkf4hOt5hntb/fECD65P31OucNgqtS8+gse2fg8wgYttnlN45vKe/8HRVnuW cCn7fbOCK9vjP1zbWm9u4OTjaT9uCzfbPO/gVunfOezgvevT83aAO1v96Qif cD5nuN/meYEHl9d68AqHN27p9cQIHtua707gwtb3mik8k/17jDkcZX9HWcKl 7N9xrOAKXsO169N4toGTz1e/i93Cjez16B3cvpHnDt471Z4D3Lk+PQ9H+PRG nme4R17gwfXpfX6Fw5tK7WeN4LHs7+wTuJDdH6bwTPZ3ozkcZd/HJVy6Pj3P K7iyNV9bw7Xs99kGTi6v67GFG7dX4+Ed3L6Z5w7e+3oubnmAO9en63GET2/m eYZ716fx4gIPsr97XeHwltrr+w+PZf8eaAIXsr/zTuGZ69N4MIej69N6YAmX suebK7h6K881XCv9e6QNnHw+mm9u4eatPO/g1uer3zPt4L3s73YHuHN5/d7k CJ9kj2dnuLc1nlzgwe3VfPcKh7fVXt2PETy2ff/hQvb/45jCM1vfM+dwdH16 ny/h8u08V3CldH9Yw7Wt8WgDJ9nf2bdw4/P1/A9ufR7q7zt4L/t3/Qe4c3v1 vecIn2R/Tz/DPa7XBR5Q3xUO7yj1XXAEj2W/DydwIft3blN45vq0np3DUfb/ m1nCpY+n67WCq3fyXMO1y2s/dAMnn8/illu4eSfPO7hF+R28l/17vAPcubze Z0f45PJaD5zh3u3R83iBB1vf665w+O8t/XvEETyWvZ6awIXs7wFTeCb7u/Ec ji6v/aolXMr+fwgruLLV3jVcuz49rxs4yf4OvYUbW+u1O7h1fYtb7uC97O/W B7hzfWrPET6hPWe4t3W/LvAg+7v3FQ7vKrVfNYLHsuc7E7iwNZ+awjPXt7jl HI627scSLm3t56zgSvb7ag3Xsn+nsYGTy3v/H258PL2v7uDW1nxxB+9tr//g Dj7Cp3fzPMO926P1/AUeXJ9+j3qFQ6N8MP4P52kNng== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Number of shuffles needed\"", TraditionalForm], None}, { FormBox["\"L\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{454.36328125, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1024.}, {0, 1018.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.765395821667091*^9, 3.765395832498993*^9}, { 3.765395862881323*^9, 3.7653959035680513`*^9}, {3.765396319954418*^9, 3.7653963329707336`*^9}, 3.765396868612088*^9, 3.765442716645615*^9}, CellLabel->"Out[26]=", CellID->1724726104] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"InShuffle | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[622, 23, 168, 7, 70, "Subsection",ExpressionUUID->"2dee6606-66fc-4f48-87d4-d60f6d612e1a", CellID->462042388], Cell[793, 32, 166, 3, 70, "Text",ExpressionUUID->"097b1d67-eb67-4421-8588-ef8fd4c725bf", CellID->13078159], Cell[CellGroupData[{ Cell[984, 39, 7216, 181, 70, "Input",ExpressionUUID->"8da63858-3182-4299-9a04-f5a504bf0569", CellID->443871870], Cell[8203, 222, 339, 9, 70, "Output",ExpressionUUID->"f6b0536c-71e7-422a-af0c-2674f97d080e", CellID->1104593595] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8591, 237, 159, 7, 70, "Subsection",ExpressionUUID->"7b4501ea-bd6b-4b28-b54a-53395fca2be9", CellID->964056545], Cell[8753, 246, 161, 3, 70, "Text",ExpressionUUID->"c8f4b418-6fd5-4500-ac3f-c0741ba724ee", CellID->501929943], Cell[CellGroupData[{ Cell[8939, 253, 7289, 183, 70, "Input",ExpressionUUID->"0f3173c1-4043-42e5-9e00-8694b6061f7e", CellID->503311441], Cell[16231, 438, 389, 10, 70, "Output",ExpressionUUID->"b549f3a2-857e-4475-808f-e5695713e746", CellID->1810422954] }, Open ]], Cell[16635, 451, 153, 3, 70, "Text",ExpressionUUID->"13893fd1-613f-49a1-85b9-d407e2c45ea2", CellID->411814321], Cell[CellGroupData[{ Cell[16813, 458, 21732, 537, 70, "Input",ExpressionUUID->"3bc53df3-e437-4dd8-ad16-f3d0141e7805", CellID->448269952], Cell[38548, 997, 338, 9, 70, "Output",ExpressionUUID->"a460391b-c8b8-4492-810a-13ece2867688", CellID->231729521] }, Open ]], Cell[CellGroupData[{ Cell[38923, 1011, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"3b89887a-0e50-450e-b54b-3b5354a2b6ec", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->485279578], Cell[39510, 1032, 172, 3, 70, "Text",ExpressionUUID->"f7be78f1-34a4-4895-93e6-60444e3bfd90", CellID->337999680], Cell[CellGroupData[{ Cell[39707, 1039, 18557, 391, 70, "Input",ExpressionUUID->"69cb5861-d974-4712-9b5b-1a605756f885", CellID->508737551], Cell[58267, 1432, 11611, 217, 70, "Output",ExpressionUUID->"651688af-61cc-4d03-aa89-d938e47f15f1", CellID->376965284] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[69939, 1656, 166, 7, 70, "Subsection",ExpressionUUID->"a79c207f-a62c-4805-8280-25bbb47be88d", CellID->568056528], Cell[70108, 1665, 205, 4, 70, "Text",ExpressionUUID->"b894d484-9372-48f5-ac4b-1b9b51e7e053", CellID->1475016469], Cell[CellGroupData[{ Cell[70338, 1673, 892, 24, 70, "Input",ExpressionUUID->"3e17c0fa-6f89-4042-b1d5-945360ab4606", CellID->1688074145], Cell[71233, 1699, 1906, 33, 70, "Output",ExpressionUUID->"cd6bad28-6008-4539-930d-48f748578039", CellID->1611281835] }, Open ]], Cell[73154, 1735, 243, 5, 70, "Text",ExpressionUUID->"75c27b5a-4d43-4a89-adcb-edf8eeaf72dd", CellID->649685796], Cell[CellGroupData[{ Cell[73422, 1744, 7133, 179, 70, "Input",ExpressionUUID->"6c49333a-7ef0-4325-9aa7-9cead9cbaf65", CellID->501540103], Cell[80558, 1925, 1961, 34, 70, "Output",ExpressionUUID->"0bfad873-ca9f-4efa-9de5-9ad66825b53c", CellID->1298088006] }, Open ]], Cell[82534, 1962, 165, 3, 70, "Text",ExpressionUUID->"ab6d36b5-7327-4a72-b18d-25f590b7c9ae", CellID->1001018680], Cell[CellGroupData[{ Cell[82724, 1969, 7416, 184, 70, "Input",ExpressionUUID->"42d77bf6-1440-4e1b-916e-73b4bfcea285", CellID->836153427], Cell[90143, 2155, 2081, 36, 70, "Output",ExpressionUUID->"4154be42-2d3f-4e85-8c70-22e24509031d", CellID->888001344] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[92273, 2197, 178, 7, 70, "Subsection",ExpressionUUID->"140f31a5-3f7b-4647-ac63-8f35c8a79d68", CellID->754506620], Cell[92454, 2206, 278, 7, 70, "Text",ExpressionUUID->"c27c84fa-9adb-458b-b6a5-812154c5f325", CellID->1000397995], Cell[CellGroupData[{ Cell[92757, 2217, 7185, 181, 70, "Input",ExpressionUUID->"f196a638-fc67-477e-9d51-0e8b0ea94ee5", CellID->1241131825], Cell[99945, 2400, 272, 7, 70, "Output",ExpressionUUID->"853455a5-a323-4596-b821-78ab472b12b0", CellID->573311310] }, Open ]], Cell[CellGroupData[{ Cell[100254, 2412, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"4d0ce97e-fa8a-4821-8c9c-a082d4e75502", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->380712487], Cell[100841, 2433, 552, 13, 70, "Text",ExpressionUUID->"bdb4cf3d-6773-49fe-ac40-9beb66a5f0f8", CellID->1031755412], Cell[101396, 2448, 15934, 382, 70, "Input",ExpressionUUID->"ce1c8ae4-4a43-41dd-9641-b8fd4b8d7145", CellID->519299187], Cell[117333, 2832, 314, 7, 70, "Text",ExpressionUUID->"a7e8f183-1dba-432a-aa4d-6ade8882e48f", CellID->777291503], Cell[CellGroupData[{ Cell[117672, 2843, 229, 8, 70, "Input",ExpressionUUID->"afe11ee8-f448-4f6b-974b-dd7747f4cce9", CellID->670206393], Cell[117904, 2853, 318, 9, 70, "Output",ExpressionUUID->"a93a1700-fde4-4a74-b570-984347a04771", CellID->1515535990] }, Open ]], Cell[CellGroupData[{ Cell[118259, 2867, 402, 12, 70, "Input",ExpressionUUID->"9c8f9f7d-6ea3-4fb2-bf49-2909f0be18f4", CellID->488455316], Cell[118664, 2881, 393, 10, 70, "Output",ExpressionUUID->"4759e08c-fa04-40f1-9413-0bd4679bfb0f", CellID->1621559450] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[119106, 2897, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"d6b36eff-eaa0-491d-b536-e9ae2107ec52", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->129204022], Cell[119693, 2918, 746, 23, 70, "Text",ExpressionUUID->"dee4f5a1-504e-4602-979a-d06868cfb373", CellID->124154517], Cell[120442, 2943, 8599, 204, 70, "Input",ExpressionUUID->"56f85172-41a0-4597-928c-85886776e925", CellID->2051972913], Cell[129044, 3149, 8173, 145, 70, "Input",ExpressionUUID->"6c9a4de7-8889-4727-a35e-d33649508a43", CellID->1752404611], Cell[137220, 3296, 221, 6, 70, "Text",ExpressionUUID->"9c11c15f-12f3-4e31-94fb-8a65487bcd5e", CellID->1636173961], Cell[137444, 3304, 8478, 203, 70, "Input",ExpressionUUID->"65d39c89-fbea-45a2-828e-95fa3ca58c64", CellID->1863134646], Cell[145925, 3509, 15022, 298, 70, "Input",ExpressionUUID->"ef3fdea4-3330-4742-8e86-a0d9601e411d", CellID->351453609] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[160996, 3813, 168, 7, 70, "Subsection",ExpressionUUID->"9c6bdf54-4e81-4cad-81be-e413f1e7ea83", CellID->92483860], Cell[161167, 3822, 159, 3, 70, "Text",ExpressionUUID->"379fe18b-1aed-49fb-91a4-05f6638c8315", CellID->1957072080], Cell[CellGroupData[{ Cell[161351, 3829, 7217, 182, 70, "Input",ExpressionUUID->"27dd8a55-e6e8-44e5-999e-a1003cf274c0", CellID->622170175], Cell[168571, 4013, 344, 10, 70, "Output",ExpressionUUID->"5d3a0d29-27dc-4531-9703-385ef07a5dea", CellID->1059264430] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[168964, 4029, 167, 7, 70, "Subsection",ExpressionUUID->"9fa3816e-8b95-43fd-8372-ec7a4ae9a0e3", CellID->540091361], Cell[169134, 4038, 477, 12, 70, "Text",ExpressionUUID->"3decd43d-e944-4023-aa92-82eca383b4c5", CellID->1086514322], Cell[CellGroupData[{ Cell[169636, 4054, 16491, 400, 70, "Input",ExpressionUUID->"488d6f9f-f898-46d2-8703-735002284132", CellID->1602524722], Cell[186130, 4456, 5729, 112, 70, "Output",ExpressionUUID->"281a528c-fd27-4768-8727-382b7d4e1178", CellID->1724726104] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)