(* 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[ 21348, 553] NotebookOptionsPosition[ 18675, 480] NotebookOutlinePosition[ 20440, 532] CellTagsIndexPosition[ 20397, 529] WindowTitle->OrdinalNumberString | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["The first ordinal:", "Text", TaggingRules->{}, CellChangeTimes->{{3.760712206784164*^9, 3.760712217430146*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["OrdinalNumberString", "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["OrdinalNumberString", "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/OrdinalNumberString"}, "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], "OrdinalNumberString"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["OrdinalNumberString"], BoxID -> "OrdinalNumberString", Selectable->False], "[", "1", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->443871870], Cell[BoxData["\<\"1st\"\>"], "Output", TaggingRules->{}, CellLabel->"Out[2]=", CellID->1392982981] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["All positive integers are supported:", "Text", TaggingRules->{}, CellChangeTimes->{3.76071219238367*^9}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", 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["OrdinalNumberString", "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["OrdinalNumberString", "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/OrdinalNumberString"}, "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], "OrdinalNumberString"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["OrdinalNumberString"], BoxID -> "OrdinalNumberString", Selectable->False], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "103"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->836153427], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"1st\"\>", ",", "\<\"2nd\"\>", ",", "\<\"3rd\"\>", ",", "\<\"4th\"\>", ",", "\<\"5th\"\>", ",", "\<\"6th\"\>", ",", "\<\"7th\"\>", ",", "\<\"8th\"\>", ",", "\<\"9th\"\>", ",", "\<\"10th\"\>", ",", "\<\"11th\"\>", ",", "\<\"12th\"\>", ",", "\<\"13th\"\>", ",", "\<\"14th\"\>", ",", "\<\"15th\"\>", ",", "\<\"16th\"\>", ",", "\<\"17th\"\>", ",", "\<\"18th\"\>", ",", "\<\"19th\"\>", ",", "\<\"20th\"\>", ",", "\<\"21st\"\>", ",", "\<\"22nd\"\>", ",", "\<\"23rd\"\>", ",", "\<\"24th\"\>", ",", "\<\"25th\"\>", ",", "\<\"26th\"\>", ",", "\<\"27th\"\>", ",", "\<\"28th\"\>", ",", "\<\"29th\"\>", ",", "\<\"30th\"\>", ",", "\<\"31st\"\>", ",", "\<\"32nd\"\>", ",", "\<\"33rd\"\>", ",", "\<\"34th\"\>", ",", "\<\"35th\"\>", ",", "\<\"36th\"\>", ",", "\<\"37th\"\>", ",", "\<\"38th\"\>", ",", "\<\"39th\"\>", ",", "\<\"40th\"\>", ",", "\<\"41st\"\>", ",", "\<\"42nd\"\>", ",", "\<\"43rd\"\>", ",", "\<\"44th\"\>", ",", "\<\"45th\"\>", ",", "\<\"46th\"\>", ",", "\<\"47th\"\>", ",", "\<\"48th\"\>", ",", "\<\"49th\"\>", ",", "\<\"50th\"\>", ",", "\<\"51st\"\>", ",", "\<\"52nd\"\>", ",", "\<\"53rd\"\>", ",", "\<\"54th\"\>", ",", "\<\"55th\"\>", ",", "\<\"56th\"\>", ",", "\<\"57th\"\>", ",", "\<\"58th\"\>", ",", "\<\"59th\"\>", ",", "\<\"60th\"\>", ",", "\<\"61st\"\>", ",", "\<\"62nd\"\>", ",", "\<\"63rd\"\>", ",", "\<\"64th\"\>", ",", "\<\"65th\"\>", ",", "\<\"66th\"\>", ",", "\<\"67th\"\>", ",", "\<\"68th\"\>", ",", "\<\"69th\"\>", ",", "\<\"70th\"\>", ",", "\<\"71st\"\>", ",", "\<\"72nd\"\>", ",", "\<\"73rd\"\>", ",", "\<\"74th\"\>", ",", "\<\"75th\"\>", ",", "\<\"76th\"\>", ",", "\<\"77th\"\>", ",", "\<\"78th\"\>", ",", "\<\"79th\"\>", ",", "\<\"80th\"\>", ",", "\<\"81st\"\>", ",", "\<\"82nd\"\>", ",", "\<\"83rd\"\>", ",", "\<\"84th\"\>", ",", "\<\"85th\"\>", ",", "\<\"86th\"\>", ",", "\<\"87th\"\>", ",", "\<\"88th\"\>", ",", "\<\"89th\"\>", ",", "\<\"90th\"\>", ",", "\<\"91st\"\>", ",", "\<\"92nd\"\>", ",", "\<\"93rd\"\>", ",", "\<\"94th\"\>", ",", "\<\"95th\"\>", ",", "\<\"96th\"\>", ",", "\<\"97th\"\>", ",", "\<\"98th\"\>", ",", "\<\"99th\"\>", ",", "\<\"100th\"\>", ",", "\<\"101st\"\>", ",", "\<\"102nd\"\>", ",", "\<\"103rd\"\>"}], "}"}]], "Output", TaggingRules->{}, CellLabel->"Out[3]=", CellID->122734323] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"OrdinalNumberString | 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[632, 23, 168, 7, 70, "Subsection",ExpressionUUID->"694fdadc-8c35-4840-8274-847e9ba44269", CellID->462042388], Cell[803, 32, 138, 3, 70, "Text",ExpressionUUID->"59d2e6e1-66bf-4207-8ae2-9c702cfa382c", CellID->13078159], Cell[CellGroupData[{ Cell[966, 39, 7157, 181, 70, "Input",ExpressionUUID->"110ce4fa-9752-4021-8a41-a6cf20a5421a", CellID->443871870], Cell[8126, 222, 101, 3, 70, "Output",ExpressionUUID->"3bcc9098-791b-4860-9fda-cc83b62cb69e", CellID->1392982981] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8276, 231, 159, 7, 70, "Subsection",ExpressionUUID->"7705e51a-0fa3-4fe5-a922-62e8660c71d8", CellID->964056545], Cell[8438, 240, 132, 3, 70, "Text",ExpressionUUID->"7ef57ad9-b5fd-4ed3-a374-02092b7565ad", CellID->649685796], Cell[CellGroupData[{ Cell[8595, 247, 7640, 188, 70, "Input",ExpressionUUID->"f2eba3e7-73a8-4c7e-b388-ee347757f2dd", CellID->836153427], Cell[16238, 437, 2409, 39, 70, "Output",ExpressionUUID->"02c13ad4-1746-40a2-b839-5e41b698fa32", CellID->122734323] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)