(* 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[ 165829, 4493] NotebookOptionsPosition[ 153138, 4202] NotebookOutlinePosition[ 154899, 4254] CellTagsIndexPosition[ 154856, 4251] WindowTitle->SelectPositions | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Select positions that have even elements:", "Text", TaggingRules->{}, CellChangeTimes->{{3.749933569711118*^9, 3.7499335818540735`*^9}}, CellID->317281996], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2"}], "}"}], ",", "EvenQ"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.749933593446287*^9, 3.7499335940942554`*^9}}, CellLabel->"In[1]:=", CellID->531243479], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "6", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.74993359497721*^9, 3.749934010962245*^9, 3.749934906682336*^9}, CellLabel->"Out[1]=", CellID->354549381] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->965671501], Cell["Use a pure function to test each element:", "Text", TaggingRules->{}, CellChangeTimes->{{3.749933608302513*^9, 3.749933613942319*^9}}, CellID->278964459], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2"}], "}"}], ",", RowBox[{ RowBox[{"#", ">", "2"}], "&"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7499336206321187`*^9}, CellLabel->"In[2]:=", CellID->743025853], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933621663086*^9, 3.7499340146781*^9, 3.7499349086412463`*^9}, CellLabel->"Out[2]=", CellID->595312714] }, Open ]], Cell["Return only the first position selected:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7499336350541296`*^9, 3.7499336378545246`*^9}}, CellID->527457616], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2"}], "}"}], ",", RowBox[{ RowBox[{"#", ">", "2"}], "&"}], ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7499336448873625`*^9}, CellLabel->"In[3]:=", CellID->196043931], Cell[BoxData[ RowBox[{"{", RowBox[{"{", "3", "}"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933646999294*^9, 3.749934016075073*^9, 3.7499349097722263`*^9}, CellLabel->"Out[3]=", CellID->588108661] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1506996928], Cell[TextData[{ "Use the operator form of ", Cell[BoxData[ StyleBox["SelectPositions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499336569177523`*^9, 3.74993366741343*^9}}, CellID->962762260], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", "EvenQ", "]"}], "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7499336733022423`*^9}, CellLabel->"In[4]:=", CellID->494797754], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "6", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933674735176*^9, 3.7499340190110054`*^9, 3.7499349110462008`*^9}, CellLabel->"Out[4]=", CellID->792117042] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->675236178], Cell[TextData[{ Cell[BoxData[ StyleBox["SelectPositions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " operates on values in an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "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/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.749933682454136*^9, 3.749933706401312*^9}, { 3.853498094390716*^9, 3.853498102203559*^9}}, CellID->776998219], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "2"}], ",", RowBox[{"c", "\[Rule]", "3"}], ",", RowBox[{"d", "\[Rule]", "4"}]}], "|>"}], ",", RowBox[{ RowBox[{"#", ">", "2"}], "&"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.749933697325137*^9}, CellLabel->"In[5]:=", CellID->406341208], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Key", "[", "c", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Key", "[", "d", "]"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933699410097*^9, 3.7499340211150603`*^9, 3.749934913352094*^9}, CellLabel->"Out[5]=", CellID->262659676] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell[TextData[{ Cell[BoxData[ StyleBox["SelectPositions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " picks out positions for which applying the criterion explicitly yields ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.749933719947797*^9, 3.749933750989792*^9}, { 3.8534981152411337`*^9, 3.8534981502605124`*^9}}, CellID->528931782], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "x"}], "}"}], ",", RowBox[{ RowBox[{"#", ">", "2"}], "&"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7499337599985056`*^9}, CellLabel->"In[6]:=", CellID->591702281], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499337610194874`*^9, 3.749934025465928*^9, 3.749934915369091*^9}, CellLabel->"Out[6]=", CellID->809206666] }, Open ]], Cell[TextData[{ "Applying the criterion to the symbolic object ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " does not explicitly yield ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{ 3.7499337705371943`*^9, {3.763815099366045*^9, 3.763815099366045*^9}, { 3.853498133861627*^9, 3.8534981381614647`*^9}}, CellID->214463306], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", ">", "2"}]], "Input", TaggingRules->{}, CellLabel->"In[7]:=", CellID->694167168], Cell[BoxData[ RowBox[{"x", ">", "2"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499337818180876`*^9, 3.749934916775179*^9}, CellLabel->"Out[7]=", CellID->597554885] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1203885999], Cell[TextData[{ "Find positions of pairs containing ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499337898570747`*^9, 3.7499337959178047`*^9}, { 3.853498157916963*^9, 3.8534981619708977`*^9}}, CellID->385610208], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "z"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"5", ",", "x"}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"#", ",", "x"}], "]"}], "&"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.749933804032627*^9}, CellLabel->"In[8]:=", CellID->979652773], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499338051195936`*^9, 3.749934029149811*^9, 3.74993491880711*^9}, CellLabel->"Out[8]=", CellID->967941382] }, Open ]], Cell[TextData[{ "Find up to two pairs containing ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{ 3.74993381996111*^9, {3.763815104986375*^9, 3.763815105454815*^9}, { 3.853498169204317*^9, 3.853498174296657*^9}}, CellID->883981864], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "z"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"5", ",", "x"}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"#", ",", "x"}], "]"}], "&"}], ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7499338280489216`*^9}, CellLabel->"In[9]:=", CellID->938166180], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933829060893*^9, 3.7499340308397303`*^9, 3.7499349202310724`*^9}, CellLabel->"Out[9]=", CellID->81821857] }, Open ]], Cell["Fewer than the requested elements may be returned:", "Text", TaggingRules->{}, CellChangeTimes->{3.7499338352416754`*^9}, CellID->740478776], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "z"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"5", ",", "x"}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"#", ",", "z"}], "]"}], "&"}], ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.749933842232454*^9}, CellLabel->"In[10]:=", CellID->381363715], Cell[BoxData[ RowBox[{"{", RowBox[{"{", "4", "}"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933842899459*^9, 3.74993403252168*^9, 3.749934921946231*^9}, CellLabel->"Out[10]=", CellID->578792416] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->338699573], Cell["Use an operator form as selection criterion:", "Text", TaggingRules->{}, CellChangeTimes->{3.7499338492072315`*^9}, CellID->773606358], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"GreaterThan", "[", "3", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.749933856182107*^9}, CellLabel->"In[11]:=", CellID->111823807], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "7", "}"}], ",", RowBox[{"{", "8", "}"}], ",", RowBox[{"{", "9", "}"}], ",", RowBox[{"{", "10", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933857036158*^9, 3.7499340342106256`*^9, 3.7499349272680373`*^9}, CellLabel->"Out[11]=", CellID->842998907] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1454823253], Cell[TextData[{ "Use ", Cell[BoxData[ StyleBox["SelectPositions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in operator form:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499338655490336`*^9, 3.7499338769774356`*^9}, { 3.8534981950783663`*^9, 3.8534981974114313`*^9}}, CellID->361559801], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Range", "[", "10", "]"}], "//", 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{"GreaterThan", "[", "3", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.749933885439166*^9}, CellLabel->"In[12]:=", CellID->8281071], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "7", "}"}], ",", RowBox[{"{", "8", "}"}], ",", RowBox[{"{", "9", "}"}], ",", RowBox[{"{", "10", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933889059661*^9, 3.7499340361625776`*^9, 3.749934929924075*^9}, CellLabel->"Out[12]=", CellID->176087609] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Generalizations and Extensions", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.749934164334094*^9, 3.7499341716456547`*^9}, { 3.763815124280491*^9, 3.7638151245527635`*^9}}, CellID->954992772], Cell[TextData[{ Cell[BoxData[ StyleBox["SelectPositions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " works with any head, not just ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["List", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/List", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.749933532285071*^9, 3.749933547687168*^9}, { 3.853498215303364*^9, 3.853498233354446*^9}}, CellID->780871477], 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "a", ",", "2", ",", "b", ",", "3"}], "]"}], ",", "IntegerQ"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.749933527711213*^9, 3.749933528582159*^9}}, CellLabel->"In[13]:=", CellID->829635051], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749933529161159*^9, 3.7499341774894423`*^9, 3.749934932495714*^9}, CellLabel->"Out[13]=", CellID->513480357] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->656917937], Cell[TextData[{ Cell[BoxData[ StyleBox["SelectPositions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " works with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.749933466469674*^9, 3.7499334815752015`*^9}, { 3.853498242992841*^9, 3.853498249387828*^9}}, CellID->94296596], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{"SparseArray", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["2", "i"], "\[Rule]", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "5"}], "}"}]}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7499334105674033`*^9}, CellLabel->"In[14]:=", CellID->970024940], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache -> {18., {0., 18.}}], Appearance -> None, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBgBGIBIAaxJ7AxOi9wuWB/IX12WU/bXfv7faeFk0ve2DcH Lgn7XH7RnsnPa04B12P7a1WlLiV27+ytynfHzVI6Zz/HeNEW8x9X7F8sUnwc uOqVfc3fJaaJYTfsWVS+/my+88w+69J2sXLf9zjVkypu08r44Uv+I/t3pn4h DZav7GdOndSVvZB65tNafGe3gevOLS/sb7gvX1cz7a39yYjcf/Ff39sDAM9u yto= "], {{0, 0}, {16, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["6", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "32", "}"}], "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance -> None, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBgBGIBIAaxJ7AxOi9wuWB/IX12WU/bXfv7faeFk0ve2DcH Lgn7XH7RnsnPa04B12P7a1WlLiV27+ytynfHzVI6Zz/HeNEW8x9X7F8sUnwc uOqVfc3fJaaJYTfsWVS+/my+88w+69J2sXLf9zjVkypu08r44Uv+I/t3pn4h DZav7GdOndSVvZB65tNafGe3gevOLS/sb7gvX1cz7a39yYjcf/Ff39sDAM9u yto= "], {{0, 0}, {16, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["6", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "32", "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.1875`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", StyleBox[ PaneBox[ "0", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", StyleBox[ PaneBox[ "2", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "8", "}"}], "\[Rule]", StyleBox[ PaneBox[ "3", BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True], LineBreakWithin -> False]}]}, { ItemBox[ "\"\[VerticalEllipsis]\"", Alignment -> Center, StripOnInput -> False]}}, DefaultBaseStyle -> "Column", GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], SparseArray[ Automatic, {32}, 0, { 1, {{0, 6}, {{1}, {2}, {4}, {8}, {16}, {32}}}, {0, 1, 2, 3, 4, 5}}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499334142532716`*^9, 3.7499341796054015`*^9, 3.7499349351940804`*^9}, CellLabel->"Out[14]=", CellID->131276009] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{"s", ",", "EvenQ"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.749933415086265*^9, 3.74993341920712*^9}}, CellLabel->"In[15]:=", CellID->312545244], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "7", "}"}], ",", RowBox[{"{", "9", "}"}], ",", RowBox[{"{", "10", "}"}], ",", RowBox[{"{", "11", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "13", "}"}], ",", RowBox[{"{", "14", "}"}], ",", RowBox[{"{", "15", "}"}], ",", RowBox[{"{", "16", "}"}], ",", RowBox[{"{", "17", "}"}], ",", RowBox[{"{", "18", "}"}], ",", RowBox[{"{", "19", "}"}], ",", RowBox[{"{", "20", "}"}], ",", RowBox[{"{", "21", "}"}], ",", RowBox[{"{", "22", "}"}], ",", RowBox[{"{", "23", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "25", "}"}], ",", RowBox[{"{", "26", "}"}], ",", RowBox[{"{", "27", "}"}], ",", RowBox[{"{", "28", "}"}], ",", RowBox[{"{", "29", "}"}], ",", RowBox[{"{", "30", "}"}], ",", RowBox[{"{", "31", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499334211190777`*^9, 3.749934180737358*^9, 3.749934937359483*^9}, CellLabel->"Out[15]=", CellID->332274175] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{"s", ",", "OddQ"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7499334435511813`*^9, 3.7499334442891593`*^9}}, CellLabel->"In[16]:=", CellID->190853615], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "8", "}"}], ",", RowBox[{"{", "32", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499334449891295`*^9, 3.749934184532222*^9, 3.7499349388324633`*^9}, CellLabel->"Out[16]=", CellID->252480867] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell["\<\ Get positions of elements that match a criterion for use in other functions:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7499342386931887`*^9, 3.7499342511810265`*^9}, { 3.7638151466857157`*^9, 3.7638151475261283`*^9}}, CellID->406604884], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expr", "=", RowBox[{"f", "[", RowBox[{"1", ",", "a", ",", "2", ",", "b", ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7499341909570465`*^9, 3.74993419231011*^9}}, CellLabel->"In[17]:=", CellID->877691765], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"1", ",", "a", ",", "2", ",", "b", ",", "3"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749934197701081*^9, 3.749934941154386*^9}, CellLabel->"Out[17]=", CellID->116098961] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pos", "=", 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{"expr", ",", "IntegerQ"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7499340957631226`*^9, 3.749934110430114*^9}, 3.749934148696327*^9, {3.7499341900070763`*^9, 3.7499342074801297`*^9}}, CellLabel->"In[18]:=", CellID->740102161], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749934208101113*^9, 3.749934943041301*^9}, CellLabel->"Out[18]=", CellID->66017945] }, Open ]], Cell[TextData[{ "Use with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Extract", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Extract", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499342569170303`*^9, 3.7499342629021893`*^9}, { 3.7499343026491966`*^9, 3.749934308796517*^9}, 3.749934389933097*^9, { 3.8534982612894287`*^9, 3.853498266786566*^9}}, CellID->428858294], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Extract", "[", RowBox[{"expr", ",", "pos"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.749934209871081*^9, 3.7499342133976107`*^9}}, CellLabel->"In[19]:=", CellID->860998224], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749934223490282*^9, 3.749934945412252*^9}, CellLabel->"Out[19]=", CellID->744289167] }, Open ]], Cell[TextData[{ "Use with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ReplacePart", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/ReplacePart", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.749934291317286*^9, 3.749934312980364*^9}, { 3.853498271689395*^9, 3.853498277405864*^9}}, CellID->759975048], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReplacePart", "[", RowBox[{"expr", ",", RowBox[{"pos", "\[Rule]", "n"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7499342686922746`*^9, 3.7499342869984236`*^9}}, CellLabel->"In[20]:=", CellID->488502923], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"n", ",", "a", ",", "n", ",", "b", ",", "n"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.74993428758438*^9, 3.749934946892205*^9}, CellLabel->"Out[20]=", CellID->880127712] }, Open ]], Cell[TextData[{ "Use with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MapAt", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/MapAt", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499343343737326`*^9, 3.7499343405655365`*^9}, { 3.85349828095293*^9, 3.8534982858428288`*^9}}, CellID->148097622], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapAt", "[", RowBox[{"g", ",", "expr", ",", "pos"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.749934321358101*^9, 3.7499343297898912`*^9}}, CellLabel->"In[21]:=", CellID->621964656], Cell[BoxData[ RowBox[{"f", "[", RowBox[{ RowBox[{"g", "[", "1", "]"}], ",", "a", ",", RowBox[{"g", "[", "2", "]"}], ",", "b", ",", RowBox[{"g", "[", "3", "]"}]}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499343306168528`*^9, 3.749934949673116*^9}, CellLabel->"Out[21]=", CellID->607874656] }, Open ]], Cell[TextData[{ "Use with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Insert", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Insert", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499343634134264`*^9, 3.74993436949124*^9}, { 3.853498290104516*^9, 3.8534982960296497`*^9}}, CellID->533992056], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Insert", "[", RowBox[{"expr", ",", "n", ",", "pos"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.749934350491208*^9, 3.749934358765582*^9}}, CellLabel->"In[22]:=", CellID->236957227], Cell[BoxData[ RowBox[{"f", "[", RowBox[{ "n", ",", "1", ",", "a", ",", "n", ",", "2", ",", "b", ",", "n", ",", "3"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749934359666548*^9, 3.7499349519550447`*^9}, CellLabel->"Out[22]=", CellID->448251791] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ Cell[BoxData[ StyleBox["SelectPositions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is similar to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Position", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Position", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " except that it uses a function instead of a pattern:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499344179973793`*^9, 3.7499344437788625`*^9}, { 3.8534983007122507`*^9, 3.853498309210499*^9}}, CellID->26565307], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"RandomInteger", "[", RowBox[{"9", ",", RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.749934457612398*^9}, CellLabel->"In[23]:=", CellID->489804578], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499344613562794`*^9, 3.7499349543039446`*^9}, CellLabel->"Out[23]=", CellID->233790059] }, Open ]], Cell["\<\ Select the position of lists that have a sum of elements less than 10:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.749934467757077*^9, 3.7499344904771338`*^9}, { 3.763815169793539*^9, 3.7638151709423003`*^9}}, CellID->785856908], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f", "=", RowBox[{ RowBox[{ RowBox[{"Total", "[", "#", "]"}], "<", "10"}], "&"}]}], ";"}], "\[IndentingNewLine]", 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["SelectPositions", "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["SelectPositions", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/SelectPositions"}, "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], "SelectPositions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SelectPositions"], BoxID -> "SelectPositions", Selectable->False], "[", RowBox[{"list", ",", "f"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7499344795324774`*^9, 3.749934484324308*^9}}, CellLabel->"In[24]:=", CellID->605173161], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "7", "}"}], ",", RowBox[{"{", "9", "}"}], ",", RowBox[{"{", "10", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.749934492854081*^9, 3.7499349554179077`*^9}, CellLabel->"Out[25]=", CellID->484918456] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Position", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Position", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to get the same result:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7499345015490026`*^9, 3.749934512941633*^9}, { 3.853498316415704*^9, 3.8534983210744133`*^9}}, CellID->300678179], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Position", "[", RowBox[{"list", ",", RowBox[{"x_", "/;", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"Heads", "\[Rule]", "False"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7499345208133984`*^9, 3.749934528296133*^9}}, CellLabel->"In[26]:=", CellID->734963357], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "7", "}"}], ",", RowBox[{"{", "9", "}"}], ",", RowBox[{"{", "10", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7499345297240887`*^9, 3.74993495778286*^9}, CellLabel->"Out[26]=", CellID->140859619] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SelectPositions | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[628, 23, 168, 7, 70, "Subsection",ExpressionUUID->"e1ab333c-c8c6-4c26-98a1-a2536aa75129", CellID->462042388], Cell[799, 32, 164, 3, 70, "Text",ExpressionUUID->"beba64ac-f29b-48bf-a913-2f801777fc4f", CellID->317281996], Cell[CellGroupData[{ Cell[988, 39, 7267, 183, 70, "Input",ExpressionUUID->"6d2216fe-7448-4aaa-87b3-1edd9caf047d", CellID->531243479], Cell[8258, 224, 339, 11, 70, "Output",ExpressionUUID->"d84e33ec-e155-4865-a547-bcdd9183fc83", CellID->354549381] }, Open ]], Cell[CellGroupData[{ Cell[8634, 240, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"29802210-1424-4034-86d4-166d1a15f973", CellID->965671501], Cell[8781, 246, 162, 3, 70, "Text",ExpressionUUID->"452dd061-a093-4ec7-a799-f674d8ac5469", CellID->278964459], Cell[CellGroupData[{ Cell[8968, 253, 7283, 185, 70, "Input",ExpressionUUID->"f6245ccb-c3be-4b0b-b7ca-b167c4edef3b", CellID->743025853], Cell[16254, 440, 306, 10, 70, "Output",ExpressionUUID->"86f7ba62-4b34-435f-8cba-2c401254430d", CellID->595312714] }, Open ]], Cell[16575, 453, 165, 3, 70, "Text",ExpressionUUID->"a937cd1b-2a4e-4423-96b0-8afc72b2d9b4", CellID->527457616], Cell[CellGroupData[{ Cell[16765, 460, 7293, 185, 70, "Input",ExpressionUUID->"81fd9d1c-7df4-4b1d-9079-215285b9690e", CellID->196043931], Cell[24061, 647, 226, 7, 70, "Output",ExpressionUUID->"bb388378-a345-42a0-9de0-9bcf3521526f", CellID->588108661] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24336, 660, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"45b94c42-90e4-4267-9828-61e4e00acbe5", CellID->1506996928], Cell[24484, 666, 334, 10, 70, "Text",ExpressionUUID->"17ef5bde-aaf3-43a4-9053-204421206410", CellID->962762260], Cell[CellGroupData[{ Cell[24843, 680, 7480, 187, 70, "Input",ExpressionUUID->"cbefde96-eae2-4b6e-829f-61f2ce5c7805", CellID->494797754], Cell[32326, 869, 344, 11, 70, "Output",ExpressionUUID->"3fe2e362-5480-4783-9fad-3cdfb7eca5ff", CellID->792117042] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32719, 886, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"373fb0dd-f733-4884-ae0d-49a4affd47ee", CellID->675236178], Cell[32866, 892, 865, 26, 70, "Text",ExpressionUUID->"ff504e01-7048-4960-995e-8200669143e1", CellID->776998219], Cell[CellGroupData[{ Cell[33756, 922, 7387, 188, 70, "Input",ExpressionUUID->"e438c7a1-a49e-4bcc-80b5-41a3ac597b03", CellID->406341208], Cell[41146, 1112, 338, 11, 70, "Output",ExpressionUUID->"27903715-b5e8-4fb4-acad-4952b3b82e27", CellID->262659676] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41545, 1130, 159, 7, 70, "Subsection",ExpressionUUID->"155fe429-7dcb-44c4-9acf-298189d2b1b3", CellID->964056545], Cell[41707, 1139, 846, 24, 70, "Text",ExpressionUUID->"188d882c-89d6-4651-b412-32eca3601e2f", CellID->528931782], Cell[CellGroupData[{ Cell[42578, 1167, 7269, 184, 70, "Input",ExpressionUUID->"66fb4a35-20c9-4aef-9ade-4091a40bd326", CellID->591702281], Cell[49850, 1353, 274, 9, 70, "Output",ExpressionUUID->"adb38297-0c14-40e3-8aa7-9e8742f65be2", CellID->809206666] }, Open ]], Cell[50139, 1365, 899, 28, 70, "Text",ExpressionUUID->"7115d1e2-9680-4a44-9208-7d834ea97e8f", CellID->214463306], Cell[CellGroupData[{ Cell[51063, 1397, 111, 4, 70, "Input",ExpressionUUID->"48ebeb79-13ee-457d-8e9c-4ef3f2adb79b", CellID->694167168], Cell[51177, 1403, 178, 5, 70, "Output",ExpressionUUID->"d1e8c20b-593c-4da4-9408-93818a495533", CellID->597554885] }, Open ]], Cell[CellGroupData[{ Cell[51392, 1413, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"641510c9-0d03-437c-8c57-4a14cb27eeed", CellID->1203885999], Cell[51540, 1419, 322, 10, 70, "Text",ExpressionUUID->"6516b458-1654-44e9-a60c-e96e64686e9f", CellID->385610208], Cell[CellGroupData[{ Cell[51887, 1433, 7574, 195, 70, "Input",ExpressionUUID->"10a6bf95-0c94-4eff-8def-0eff4668fce3", CellID->979652773], Cell[59464, 1630, 307, 10, 70, "Output",ExpressionUUID->"467a2e83-d4be-4dce-8e4d-8b03c66992eb", CellID->967941382] }, Open ]], Cell[59786, 1643, 338, 11, 70, "Text",ExpressionUUID->"4250b684-50b9-4804-8fc0-8e3de5a609be", CellID->883981864], Cell[CellGroupData[{ Cell[60149, 1658, 7586, 195, 70, "Input",ExpressionUUID->"0e912380-15ab-49e9-88b0-a8162de6001f", CellID->938166180], Cell[67738, 1855, 275, 9, 70, "Output",ExpressionUUID->"17663c83-db3a-4187-9341-5a6a4ce848a1", CellID->81821857] }, Open ]], Cell[68028, 1867, 149, 3, 70, "Text",ExpressionUUID->"5d20080f-f435-460d-9e6b-f05a83466200", CellID->740478776], Cell[CellGroupData[{ Cell[68202, 1874, 7585, 195, 70, "Input",ExpressionUUID->"ff4e9307-c3d5-4c9f-9a50-2cfb5f613d2e", CellID->381363715], Cell[75790, 2071, 224, 7, 70, "Output",ExpressionUUID->"2560e903-59f5-4607-96b6-0a42ceb9fd94", CellID->578792416] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76063, 2084, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"c0b664fe-45fb-49bb-8119-59351d5433ff", CellID->338699573], Cell[76210, 2090, 143, 3, 70, "Text",ExpressionUUID->"4c086aa7-b306-4d63-b73b-6a256ca0e01f", CellID->773606358], Cell[CellGroupData[{ Cell[76378, 2097, 7218, 182, 70, "Input",ExpressionUUID->"3529f740-74ab-441a-a205-af20ce98eac5", CellID->111823807], Cell[83599, 2281, 448, 14, 70, "Output",ExpressionUUID->"dc4624da-6c89-48d9-8e66-533db87590b0", CellID->842998907] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84096, 2301, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"e193a605-2b2f-465d-a37d-cd3106024998", CellID->1454823253], Cell[84244, 2307, 344, 10, 70, "Text",ExpressionUUID->"7ecea1b2-f890-445d-92ec-5e2f02a5e655", CellID->361559801], Cell[CellGroupData[{ Cell[84613, 2321, 7451, 186, 70, "Input",ExpressionUUID->"2846fe0a-3017-4e12-9d08-8ca8ec8e713c", CellID->8281071], Cell[92067, 2509, 446, 14, 70, "Output",ExpressionUUID->"f34e4ae1-b762-4b51-b8a5-e5b6cdbaba47", CellID->176087609] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[92574, 2530, 303, 9, 70, "Subsection",ExpressionUUID->"a212dc0c-ace6-41a2-9b39-15449d2ec7d2", CellID->954992772], Cell[92880, 2541, 801, 24, 70, "Text",ExpressionUUID->"3f253e7f-e20a-4710-9bb5-833c7181ee41", CellID->780871477], Cell[CellGroupData[{ Cell[93706, 2569, 7264, 183, 70, "Input",ExpressionUUID->"6efc15a8-ee29-4c0c-af91-ab94f54b7f94", CellID->829635051], Cell[100973, 2754, 309, 10, 70, "Output",ExpressionUUID->"aa4e8b0c-8af6-47aa-8246-2a0b6bb84203", CellID->513480357] }, Open ]], Cell[CellGroupData[{ Cell[101319, 2769, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"d507353f-13cf-4d17-82e7-3efc0e763b2e", CellID->656917937], Cell[101466, 2775, 847, 25, 70, "Text",ExpressionUUID->"f13266a7-0b4c-400f-b4c6-77c5387bcd5d", CellID->94296596], Cell[CellGroupData[{ Cell[102338, 2804, 375, 12, 70, "Input",ExpressionUUID->"8a368d97-50a3-4746-a9d8-820f35b09b4a", CellID->970024940], Cell[102716, 2818, 9055, 196, 70, "Output",ExpressionUUID->"5821dea4-132e-492b-b837-e67dd377b1bc", CellID->131276009] }, Open ]], Cell[CellGroupData[{ Cell[111808, 3019, 7172, 180, 70, "Input",ExpressionUUID->"e9aff7a7-de73-4af2-840e-aacd88f42adb", CellID->312545244], Cell[118983, 3201, 1215, 36, 70, "Output",ExpressionUUID->"666e9e02-d39d-4ebe-b7e5-1f6a225712af", CellID->332274175] }, Open ]], Cell[CellGroupData[{ Cell[120235, 3242, 7176, 180, 70, "Input",ExpressionUUID->"011fa770-23c0-472e-a9ff-b0a132cc36ed", CellID->190853615], Cell[127414, 3424, 312, 10, 70, "Output",ExpressionUUID->"11748c61-4327-4cf4-b570-001d8365e23b", CellID->252480867] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[127787, 3441, 166, 7, 70, "Subsection",ExpressionUUID->"b77cdb84-7f91-46b5-9c33-41db8a798716", CellID->568056528], Cell[127956, 3450, 262, 6, 70, "Text",ExpressionUUID->"c6fb73a9-ada9-46a9-a542-794ea6d272b2", CellID->406604884], Cell[CellGroupData[{ Cell[128243, 3460, 264, 7, 70, "Input",ExpressionUUID->"178962a6-7699-460a-be05-dd6cb659421f", CellID->877691765], Cell[128510, 3469, 235, 6, 70, "Output",ExpressionUUID->"f28ac47c-6b7c-4eba-8e9e-4903ad33ecbb", CellID->116098961] }, Open ]], Cell[CellGroupData[{ Cell[128782, 3480, 7518, 186, 70, "Input",ExpressionUUID->"6f7ce966-4a60-42b2-a3c6-6c02f6921364", CellID->740102161], Cell[136303, 3668, 281, 9, 70, "Output",ExpressionUUID->"9d39dab6-f2c1-45a1-822b-52bfc06ea8d1", CellID->66017945] }, Open ]], Cell[136599, 3680, 742, 22, 70, "Text",ExpressionUUID->"b2131e01-c352-42f7-bb4a-135e665492c5", CellID->428858294], Cell[CellGroupData[{ Cell[137366, 3706, 219, 6, 70, "Input",ExpressionUUID->"3831f572-7f66-4dc1-9cc9-2a92dc59a0c5", CellID->860998224], Cell[137588, 3714, 210, 6, 70, "Output",ExpressionUUID->"2b0392eb-9396-44a2-984f-9f1c1f3101e2", CellID->744289167] }, Open ]], Cell[137813, 3723, 669, 21, 70, "Text",ExpressionUUID->"f151353a-63e2-4b9e-abe8-819e5a6fe92a", CellID->759975048], Cell[CellGroupData[{ Cell[138507, 3748, 255, 7, 70, "Input",ExpressionUUID->"dbffa895-4384-4702-9702-798ef3bbf4e7", CellID->488502923], Cell[138765, 3757, 234, 6, 70, "Output",ExpressionUUID->"45a9b84d-a941-4d6c-b58f-c210eb163858", CellID->880127712] }, Open ]], Cell[139014, 3766, 662, 21, 70, "Text",ExpressionUUID->"4f7e5805-75c0-48b6-a13c-6b352f1ee2a4", CellID->148097622], Cell[CellGroupData[{ Cell[139701, 3791, 227, 6, 70, "Input",ExpressionUUID->"4be25e4f-a945-46fd-b55e-62f081f1d31c", CellID->621964656], Cell[139931, 3799, 324, 9, 70, "Output",ExpressionUUID->"73203e14-7c04-4d1f-bb33-61078565a962", CellID->607874656] }, Open ]], Cell[140270, 3811, 662, 21, 70, "Text",ExpressionUUID->"e084d0b8-9b28-4f3b-ad0e-59d5c82764f8", CellID->533992056], Cell[CellGroupData[{ Cell[140957, 3836, 226, 6, 70, "Input",ExpressionUUID->"a860c258-3738-4bbe-96c5-406a2f873b40", CellID->236957227], Cell[141186, 3844, 273, 8, 70, "Output",ExpressionUUID->"108876ad-4d0c-4e16-ad5f-24a765a63288", CellID->448251791] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[141508, 3858, 178, 7, 70, "Subsection",ExpressionUUID->"9ea18f91-4e03-405c-8438-e64c013a0da1", CellID->754506620], Cell[141689, 3867, 850, 24, 70, "Text",ExpressionUUID->"4557befd-4904-4e09-87af-6cd47960a009", CellID->26565307], Cell[CellGroupData[{ Cell[142564, 3895, 273, 9, 70, "Input",ExpressionUUID->"50ebe337-f483-41ad-a2a8-dfd1c8830382", CellID->489804578], Cell[142840, 3906, 774, 26, 70, "Output",ExpressionUUID->"ff98fab7-93b4-4b92-a67c-227b2b619cb3", CellID->233790059] }, Open ]], Cell[143629, 3935, 252, 6, 70, "Text",ExpressionUUID->"c84fd5b1-ee5e-4046-b746-aece78c922dd", CellID->785856908], Cell[CellGroupData[{ Cell[143906, 3945, 7344, 187, 70, "Input",ExpressionUUID->"60b3a8c8-4b2e-40ac-9262-107e630b6809", CellID->605173161], Cell[151253, 4134, 387, 12, 70, "Output",ExpressionUUID->"d95f63fc-c36e-4009-a5e3-c383ce0e7dd0", CellID->484918456] }, Open ]], Cell[151655, 4149, 685, 21, 70, "Text",ExpressionUUID->"ab553696-583e-4ba2-984d-018e4065ffa7", CellID->300678179], Cell[CellGroupData[{ Cell[152365, 4174, 356, 10, 70, "Input",ExpressionUUID->"7ec9fce1-6a3c-434e-b722-44de372e99e5", CellID->734963357], Cell[152724, 4186, 386, 12, 70, "Output",ExpressionUUID->"2421ccd0-d045-465a-95b8-24fa0bd55b84", CellID->140859619] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)