(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 33999, 965] NotebookOptionsPosition[ 28799, 838] NotebookOutlinePosition[ 29131, 854] CellTagsIndexPosition[ 29088, 851] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->462042388], Cell["Find the highest numbered slot in a function:", "Text", CellChangeTimes->{{3.7664864442746425`*^9, 3.766486512826212*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", SuperscriptBox["#", "2"], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7664863402803574`*^9, 3.7664863481388674`*^9}}, CellLabel->"In[13]:=", CellID->443871870], Cell[BoxData["1"], "Output", CellChangeTimes->{3.766486350092764*^9}, CellLabel->"Out[13]=", CellID->149805494] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", RowBox[{"#1", " ", "+", " ", "#2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.766486360906127*^9, 3.766486368671914*^9}}, CellLabel->"In[8]:=", CellID->189037281], Cell[BoxData["2"], "Output", CellChangeTimes->{{3.766486364685402*^9, 3.766486368921858*^9}, 3.766486456888983*^9}, CellLabel->"Out[8]=", CellID->60665846] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"Sin", "[", RowBox[{"x", " ", "+", " ", FractionBox["y", "z"]}], "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.766486631358789*^9, 3.766486643857314*^9}}, CellLabel->"In[43]:=", CellID->27682959], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.7664866443259535`*^9, 3.766486692576679*^9}, 3.766486864951723*^9}, CellLabel->"Out[43]=", CellID->332189379] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->265989127], Cell["\<\ In this function, slot 2 goes unused, but it will still be counted:\ \>", "Text", CellChangeTimes->{{3.766486472530449*^9, 3.7664864743991776`*^9}, { 3.7664865184060535`*^9, 3.7664865769983172`*^9}}, CellID->71023468], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", RowBox[{"#1", " ", "+", " ", "#3"}], "]"}], "]"}]], "Input", CellChangeTimes->{3.7664865399367466`*^9}, CellLabel->"In[10]:=", CellID->505599434], Cell[BoxData["3"], "Output", CellChangeTimes->{3.7664865413742085`*^9}, CellLabel->"Out[10]=", CellID->111793337] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->964056545], Cell["Slots in inner functions will not be counted:", "Text", CellChangeTimes->{{3.7664868809995317`*^9, 3.766486889857837*^9}, { 3.7664869625456343`*^9, 3.766486972468568*^9}}, CellID->753966563], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", "\[IndentingNewLine]", RowBox[{"Function", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Function", "[", RowBox[{"#1", "+", "#2", "+", "#3"}], "]"}], "[", RowBox[{"#1", ",", RowBox[{"2", "#1"}], ",", RowBox[{"3", "#1"}]}], "]"}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7664869021406126`*^9, 3.7664869465453634`*^9}, { 3.766486981601082*^9, 3.766486991185944*^9}}, CellLabel->"In[45]:=", CellID->126375391], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7664869473108006`*^9, 3.766486993698494*^9}, CellLabel->"Out[45]=", CellID->76312432] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->8475922], Cell[TextData[{ "A function that uses ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SlotSequence", "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/SlotSequence"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " will be counted as having infinite arguments:" }], "Text", CellChangeTimes->{{3.7664870222953234`*^9, 3.766487051436473*^9}}, CellID->1036615], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", RowBox[{"Plus", "[", "##", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.766487058499273*^9, 3.766487063530784*^9}}, CellLabel->"In[46]:=", CellID->154201311], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{3.7664870639211817`*^9}, CellLabel->"Out[46]=", CellID->748296397] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->424245334], Cell["\<\ String slots will be counted as being part of the first argument:\ \>", "Text", CellChangeTimes->{{3.7664871530455475`*^9, 3.7664871653279037`*^9}, { 3.766487195920684*^9, 3.766487232810818*^9}}, CellID->81038384], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", RowBox[{"#a", " ", "+", " ", "#b"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7664871741548862`*^9, 3.7664871791033955`*^9}}, CellLabel->"In[51]:=", CellID->545733082], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7664871798068185`*^9}, CellLabel->"Out[51]=", CellID->742516233] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", RowBox[{"#a", " ", "+", " ", "#b", "+", "#2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7664871881320877`*^9, 3.76648718937497*^9}}, CellLabel->"In[52]:=", CellID->22340788], Cell[BoxData["2"], "Output", CellChangeTimes->{3.766487189734129*^9}, CellLabel->"Out[52]=", CellID->164671591] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->7739649], Cell[TextData[{ Cell[BoxData[ FormBox["ArgumentCount", TraditionalForm]]], " works with compiled functions:" }], "Text", CellChangeTimes->{{3.7664873451872435`*^9, 3.7664873568898816`*^9}}, CellID->815709460], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"Sqrt", "[", RowBox[{"x", " ", "y", " ", "z"}], "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.766487320577242*^9, 3.766487329841939*^9}}, CellLabel->"In[54]:=", CellID->61337767], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.7664873237491035`*^9, 3.766487330248908*^9}}, CellLabel->"Out[54]=", CellID->108805469] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->776923543], Cell[CellGroupData[{ Cell["IgnoreSlotSequence", "Subsubsection", CellChangeTimes->{ 3.7664870146672764`*^9, {3.7681429862911797`*^9, 3.7681429872901535`*^9}}, CellID->62906287], Cell[TextData[{ "A function that uses ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SlotSequence", "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/SlotSequence"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " will be counted as having infinite arguments:" }], "Text", CellChangeTimes->{{3.7664870222953234`*^9, 3.766487051436473*^9}}, CellID->642174889], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{"Function", "[", RowBox[{"Plus", "[", RowBox[{"#1", ",", " ", "#2", ",", "##"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.766487058499273*^9, 3.7664870795157557`*^9}, { 3.7664871138860188`*^9, 3.7664871144672804`*^9}}, CellLabel->"In[49]:=", CellID->945577690], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{{3.7664870639211817`*^9, 3.766487083998466*^9}, 3.766487115982411*^9}, CellLabel->"Out[49]=", CellID->5849577] }, Open ]], Cell[TextData[{ "This behavior can be changed with the ", Cell[BoxData[ FormBox["\"\\"", TraditionalForm]]], " option:" }], "Text", CellChangeTimes->{{3.766487074150803*^9, 3.766487093263977*^9}, { 3.766487128692261*^9, 3.766487139420993*^9}}, CellID->66160859], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"ArgumentCount\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ArgumentCount\""}], ResourceFunction["ArgumentCount"], BoxID -> "ArgumentCount", Selectable->False], "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"Plus", "[", RowBox[{"#1", ",", "#2", ",", " ", "##"}], "]"}], "]"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", " ", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.7664871009207373`*^9, 3.7664871084526815`*^9}}, CellLabel->"In[50]:=", CellID->21575000], Cell[BoxData["2"], "Output", CellChangeTimes->{{3.7664871038547363`*^9, 3.766487117749166*^9}}, CellLabel->"Out[50]=", CellID->79762015] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 75, 2, 70, "Subsection",ExpressionUUID->"bdaef978-4951-4b35-a28b-291d7470db51", CellID->462042388], Cell[658, 26, 148, 2, 70, "Text",ExpressionUUID->"a51b3aa9-cb0a-49d0-9630-aabffe7c8581", CellID->13078159], Cell[CellGroupData[{ Cell[831, 32, 1969, 49, 70, "Input",ExpressionUUID->"f4ac1a6e-b11e-4a7f-bb6f-717b23e03c5f", CellID->443871870], Cell[2803, 83, 114, 3, 70, "Output",ExpressionUUID->"817cb987-674b-4639-b61b-66c9bdb35852", CellID->149805494] }, Open ]], Cell[CellGroupData[{ Cell[2954, 91, 1975, 49, 70, "Input",ExpressionUUID->"1beed384-f72f-4544-b971-260ec01497bc", CellID->189037281], Cell[4932, 142, 162, 4, 70, "Output",ExpressionUUID->"a3f3ba1e-0582-491f-a13d-1b61478c7060", CellID->60665846] }, Open ]], Cell[CellGroupData[{ Cell[5131, 151, 2117, 54, 70, "Input",ExpressionUUID->"a762d161-2507-48a6-8d1d-cd0e164f9876", CellID->27682959], Cell[7251, 207, 166, 4, 70, "Output",ExpressionUUID->"143de43c-9c9b-4fac-bdec-50f0b9ac0b60", CellID->332189379] }, Open ]], Cell[CellGroupData[{ Cell[7454, 216, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"2689b584-f573-42e1-a83b-8f04e9dfccde", CellID->265989127], Cell[7582, 221, 231, 5, 70, "Text",ExpressionUUID->"20494247-cb07-49cb-a1a2-7c43ce4c86c7", CellID->71023468], Cell[CellGroupData[{ Cell[7838, 230, 1954, 49, 70, "Input",ExpressionUUID->"9f84df72-d9b1-471d-ae65-e2df63112b45", CellID->505599434], Cell[9795, 281, 116, 3, 70, "Output",ExpressionUUID->"b879f44f-8904-448e-95f5-045cdb44029b", CellID->111793337] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9972, 291, 66, 2, 70, "Subsection",ExpressionUUID->"11726176-b54c-47be-bb55-0f1a4b4ba084", CellID->964056545], Cell[10041, 295, 200, 3, 70, "Text",ExpressionUUID->"506ee3ee-efe5-4467-8be5-83628e60b0bd", CellID->753966563], Cell[CellGroupData[{ Cell[10266, 302, 2273, 56, 70, "Input",ExpressionUUID->"83b32ed4-fcf3-4111-a061-ea88b10eaea1", CellID->126375391], Cell[12542, 360, 137, 3, 70, "Output",ExpressionUUID->"5ee755bd-a1c5-48b5-8b36-4fa5d316c4a5", CellID->76312432] }, Open ]], Cell[CellGroupData[{ Cell[12716, 368, 123, 3, 70, "ExampleDelimiter",ExpressionUUID->"b5d50eb7-181d-4ab9-bbc8-be8fba97ac99", CellID->8475922], Cell[12842, 373, 646, 19, 70, "Text",ExpressionUUID->"032eeb42-9be5-457a-a456-b3929ca54e18", CellID->1036615], Cell[CellGroupData[{ Cell[13513, 396, 1973, 49, 70, "Input",ExpressionUUID->"f960ea88-7d52-426f-a678-e1cbf88b48bb", CellID->154201311], Cell[15489, 447, 126, 3, 70, "Output",ExpressionUUID->"03356354-f5b7-4631-b1b4-d9d23280c421", CellID->748296397] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15664, 456, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"e37d3e35-df6e-45ba-b7ed-6c8c0e8d4ef0", CellID->424245334], Cell[15792, 461, 227, 5, 70, "Text",ExpressionUUID->"1a4fab6d-bfbc-48a0-badc-cb108aacb4a1", CellID->81038384], Cell[CellGroupData[{ Cell[16044, 470, 1981, 49, 70, "Input",ExpressionUUID->"1c0beb1d-68a2-4ad2-8a94-34afab9934f2", CellID->545733082], Cell[18028, 521, 116, 3, 70, "Output",ExpressionUUID->"aabe45dd-7d4c-4f77-9f34-e72f294a740f", CellID->742516233] }, Open ]], Cell[CellGroupData[{ Cell[18181, 529, 1988, 49, 70, "Input",ExpressionUUID->"5c870ff3-b537-4ff5-8478-b04801dcd614", CellID->22340788], Cell[20172, 580, 114, 3, 70, "Output",ExpressionUUID->"ced3e9ed-760c-4e38-ab38-7f3ff22cbb4a", CellID->164671591] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20335, 589, 123, 3, 70, "ExampleDelimiter",ExpressionUUID->"34de5ffe-2b41-40ad-b45f-a19f2af62c4f", CellID->7739649], Cell[20461, 594, 214, 6, 70, "Text",ExpressionUUID->"407974ac-d883-49f0-8484-cc00061e33c2", CellID->815709460], Cell[CellGroupData[{ Cell[20700, 604, 2092, 53, 70, "Input",ExpressionUUID->"09eb0e9e-7a0f-410d-8ebf-6afd2b57b988", CellID->61337767], Cell[22795, 659, 140, 3, 70, "Output",ExpressionUUID->"187b97f2-e0ad-4f5e-b365-4ea887b43999", CellID->108805469] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22996, 669, 68, 2, 70, "Subsection",ExpressionUUID->"22f6a60c-bcd1-424e-8821-0b73f2daeb29", CellID->776923543], Cell[CellGroupData[{ Cell[23089, 675, 159, 3, 70, "Subsubsection",ExpressionUUID->"b4ed9fef-dc2b-465a-b95c-0163257247ce", CellID->62906287], Cell[23251, 680, 648, 19, 70, "Text",ExpressionUUID->"65214839-9da5-4454-aab8-63e552898709", CellID->642174889], Cell[CellGroupData[{ Cell[23924, 703, 2070, 51, 70, "Input",ExpressionUUID->"b6b3898b-ea94-49c4-9f61-71788dac4ac8", CellID->945577690], Cell[25997, 756, 174, 4, 70, "Output",ExpressionUUID->"24dedb37-b21f-4dc8-aaf0-ed39eca27c09", CellID->5849577] }, Open ]], Cell[26186, 763, 291, 8, 70, "Text",ExpressionUUID->"1898faab-2949-4ee7-94a8-14b3a14b2dfa", CellID->66160859], Cell[CellGroupData[{ Cell[26502, 775, 2115, 53, 70, "Input",ExpressionUUID->"c789dc27-bd81-4b7f-9621-70faa6d1fded", CellID->21575000], Cell[28620, 830, 139, 3, 70, "Output",ExpressionUUID->"fa5b4cc7-cc1a-4d50-8656-2cc09d804002", CellID->79762015] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)