(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 714251, 14104] NotebookOptionsPosition[ 581248, 11516] NotebookOutlinePosition[ 694734, 13686] CellTagsIndexPosition[ 693756, 13655] WindowTitle->RandomPretentiousJobTitle | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["RandomPretentiousJobTitle", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->452569958], Cell["Generate random pretentious job titles", "Text", CellTags->{"Description", "TemplateCell"}, CellID->173589249], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Definition", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[BoxData[ RowBox[{ RowBox[{"aRandomPretentiousJobTitleWords", "=", RowBox[{"<|", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"<|", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "\[IndentingNewLine]", "|>"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "->", RowBox[{"<|", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\:0411\:044a\:0434\:0435\:0449\>\"", ",", "\"\<\:0412\:043e\:0434\:0435\:0449\>\"", ",", "\"\<\:0413\:043b\:0430\:0432\:0435\:043d\>\"", ",", "\"\<\:0421\:0442\:0430\:0440\:0448\:0438\>\"", ",", "\"\<\:0427\:043e\:0432\:0435\:0448\:043a\:0438\>\"", ",", "\"\<\:0412\:044a\:0442\:0440\:0435\:0448\:0435\:043d\>\"", ",", "\"\<\:0413\:043b\:043e\:0431\:0430\:043b\:0435\:043d\>\"", ",", "\"\<\:0414\:0438\:0440\:0435\:043a\:0442\:0435\:043d\>\"", ",", "\"\<\:041a\:043b\:0438\:0435\:043d\:0442\:043e\:0432\>\"", ",", "\"\<\:041e\:0431\:043b\:0430\:0441\:0442\:0435\:043d\>\"", ",", "\"\<\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:043d\>\"", ",", "\"\<\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:043d\>\"", ",", "\"\<\:0426\:0435\:043d\:0442\:0440\:0430\:043b\:0435\:043d\>\ \"", ",", "\"\<\:0418\:043d\:0432\:0435\:0441\:0442\:0438\:0440\:0430\:0449\>\ \"", ",", "\"\<\:041d\:0430\:0446\:0438\:043e\:043d\:0430\:043b\:0435\:043d\>\ \"", ",", "\"\<\:0420\:0435\:0433\:0438\:043e\:043d\:0430\:043b\:0435\:043d\>\ \"", ",", "\"\<\:0420\:0435\:043b\:0430\:0446\:0438\:043e\:043d\:0435\:043d\>\ \"", ",", "\"\<\:041d\:0430\:0441\:043b\:0435\:0434\:0441\:0442\:0432\:0435\ \:043d\>\"", ",", "\"\<\:041f\:0440\:043e\:0433\:0440\:0435\:0441\:0438\:0432\:0435\ \:043d\>\"", ",", "\"\<\:0418\:043d\:0442\:0435\:0440\:0430\:043a\:0442\:0438\:0432\ \:0435\:043d\>\"", ",", "\"\<\:041a\:043e\:0440\:043f\:043e\:0440\:0430\:0442\:0438\:0432\ \:0435\:043d\>\"", ",", "\"\<\:041c\:0435\:0436\:0434\:0443\:043d\:0430\:0440\:043e\:0434\ \:0435\:043d\>\"", ",", "\"\<\:041f\:0440\:043e\:0434\:0443\:043a\:0446\:0438\:043e\:043d\ \:0435\:043d\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\:0418\:0434\:0435\:0438\>\"", ",", "\"\<\:0413\:0440\:0443\:043f\:0438\>\"", ",", "\"\<\:0414\:0430\:043d\:043d\:0438\>\"", ",", "\"\<\:0415\:043a\:0438\:043f\:0438\>\"", ",", "\"\<\:041c\:0430\:0440\:043a\:0438\>\"", ",", "\"\<\:041c\:0440\:0435\:0436\:0438\>\"", ",", "\"\<\:041f\:0430\:0437\:0430\:0440\:0438\>\"", ",", "\"\<\:041e\:0442\:0433\:043e\:0432\:043e\:0440\:0438\>\"", ",", "\"\<\:0420\:0435\:0448\:0435\:043d\:0438\:044f\>\"", ",", "\"\<\:0422\:0430\:043a\:0442\:0438\:043a\:0438\>\"", ",", "\"\<\:0424\:0430\:043a\:0442\:043e\:0440\:0438\>\"", ",", "\"\<\:0418\:043d\:0442\:0440\:0430\:043d\:0435\:0442\>\"", ",", "\"\<\:041a\:0430\:0447\:0435\:0441\:0442\:0432\:043e\>\"", ",", "\"\<\:041e\:043f\:0435\:0440\:0430\:0446\:0438\:0438\>\"", ",", "\"\<\:041f\:0440\:043e\:0433\:0440\:0430\:043c\:0438\>\"", ",", "\"\<\:0414\:0438\:0440\:0435\:043a\:0442\:0438\:0432\:0438\>\"", ",", "\"\<\:041c\:0430\:0440\:043a\:0435\:0442\:0438\:043d\:0433\>\ \"", ",", "\"\<\:041c\:043e\:0431\:0438\:043b\:043d\:043e\:0441\:0442\>\"", ",", "\"\<\:041e\:0442\:0447\:0435\:0442\:043d\:043e\:0441\:0442\>\ \"", ",", "\"\<\:041f\:0430\:0440\:0430\:0434\:0438\:0433\:043c\:0438\>\"", ",", "\"\<\:041f\:0440\:0438\:043b\:0430\:0433\:0430\:043d\:0435\>\ \"", ",", "\"\<\:0420\:0435\:0437\:043e\:043d\:0430\:043d\:0441\:0438\>\"", ",", "\"\<\:0421\:0438\:0433\:0443\:0440\:043d\:043e\:0441\:0442\>\ \"", ",", "\"\<\:0411\:0440\:0430\:043d\:0434\:0438\:0440\:0430\:043d\:0435\>\ \"", ",", "\"\<\:0418\:043d\:0442\:0435\:0433\:0440\:0430\:0446\:0438\:044f\>\ \"", ",", "\"\<\:041f\:043e\:043a\:0430\:0437\:0430\:0442\:0435\:043b\:0438\>\ \"", ",", "\"\<\:041f\:0440\:0438\:043b\:043e\:0436\:0435\:043d\:0438\:044f\>\ \"", ",", "\"\<\:0412\:044a\:0437\:0434\:0435\:0439\:0441\:0442\:0432\:0438\ \:0435\>\"", ",", "\"\<\:0418\:0434\:0435\:043d\:0442\:0438\:0447\:043d\:043e\:0441\ \:0442\>\"", ",", "\"\<\:0418\:0437\:0441\:043b\:0435\:0434\:0432\:0430\:043d\:0438\ \:044f\>\"", ",", "\"\<\:041a\:043e\:043c\:0443\:043d\:0438\:043a\:0430\:0446\:0438\ \:0438\>\"", ",", "\"\<\:041a\:0440\:0435\:0430\:0442\:0438\:0432\:043d\:043e\:0441\ \:0442\>\"", ",", "\"\<\:041e\:043f\:0442\:0438\:043c\:0438\:0437\:0430\:0446\:0438\ \:044f\>\"", ",", "\"\<\:041e\:0441\:0438\:0433\:0443\:0440\:044f\:0432\:0430\:043d\ \:0435\>\"", ",", "\"\<\:041a\:043e\:043d\:0444\:0438\:0433\:0443\:0440\:0430\:0446\ \:0438\:0438\>\"", ",", "\"\<\:0418\:0437\:043f\:043e\:043b\:0437\:0432\:0430\:0435\:043c\ \:043e\:0441\:0442\>\"", ",", "\"\<\:0412\:0437\:0430\:0438\:043c\:043e\:0434\:0435\:0439\:0441\ \:0442\:0432\:0438\:044f\>\"", ",", "\"\<\:0424\:0443\:043d\:043a\:0446\:0438\:043e\:043d\:0430\:043b\ \:043d\:043e\:0441\:0442\:0438\>\"", ",", "\"\<\:0418\:043d\:0444\:0440\:0430\:0441\:0442\:0440\:0443\:043a\ \:0442\:0443\:0440\:0430\:0442\:0430\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\:0410\:0433\:0435\:043d\:0442\>\"", ",", "\"\<\:041f\:043b\:0430\:043d\:043e\:0432\:0438\:043a\>\"", ",", "\"\<\:0422\:0435\:0445\:043d\:0438\:043a\>\"", ",", "\"\<\:0418\:043d\:0436\:0435\:043d\:0435\:0440\>\"", ",", "\"\<\:0421\:0442\:0440\:0430\:0442\:0435\:0433\>\"", ",", "\"\<\:0410\:0440\:0445\:0438\:0442\:0435\:043a\:0442\>\"", ",", "\"\<\:0410\:0441\:0438\:0441\:0442\:0435\:043d\:0442\>\"", ",", "\"\<\:0414\:0438\:0437\:0430\:0439\:043d\:0435\:0440\>\"", ",", "\"\<\:0414\:0438\:0440\:0435\:043a\:0442\:043e\:0440\>\"", ",", "\"\<\:041c\:0435\:043d\:0438\:0434\:0436\:044a\:0440\>\"", ",", "\"\<\:041d\:0430\:0447\:0430\:043b\:043d\:0438\:043a\>\"", ",", "\"\<\:0421\:043b\:0443\:0436\:0438\:0442\:0435\:043b\>\"", ",", "\"\<\:041f\:043e\:0441\:0440\:0435\:0434\:043d\:0438\:043a\>\"", ",", "\"\<\:041f\:0440\:043e\:0434\:0443\:0446\:0435\:043d\:0442\>\ \"", ",", "\"\<\:0421\:0438\:043d\:0435\:0440\:0433\:0438\:0441\:0442\>\"", ",", "\"\<\:0421\:044a\:0442\:0440\:0443\:0434\:043d\:0438\:043a\>\ \"", ",", "\"\<\:0410\:043d\:0430\:043b\:0438\:0437\:0430\:0442\:043e\:0440\>\ \"", ",", "\"\<\:0418\:0437\:043f\:044a\:043b\:043d\:0438\:0442\:0435\:043b\>\ \"", ",", "\"\<\:041a\:043e\:043d\:0441\:0443\:043b\:0442\:0430\:043d\:0442\>\ \"", ",", "\"\<\:0421\:043f\:0435\:0446\:0438\:0430\:043b\:0438\:0441\:0442\>\ \"", ",", "\"\<\:041a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\:043e\ \:0440\>\"", ",", "\"\<\:041e\:0440\:043a\:0435\:0441\:0442\:0440\:0430\:0442\:043e\ \:0440\>\"", ",", "\"\<\:0420\:0430\:0437\:0440\:0430\:0431\:043e\:0442\:0447\:0438\ \:043a\>\"", ",", "\"\<\:0421\:0443\:043f\:0435\:0440\:0432\:0430\:0439\:0437\:043e\ \:0440\>\"", ",", "\"\<\:0424\:0430\:0441\:0438\:043b\:0438\:0442\:0430\:0442\:043e\ \:0440\>\"", ",", "\"\<\:041f\:0440\:0435\:0434\:0441\:0442\:0430\:0432\:0438\:0442\ \:0435\:043b\>\"", ",", "\"\<\:041f\:0440\:043e\:0435\:043a\:0442\:0430\:043d\:0442\>\"", ",", "\"\<\:0410\:0434\:043c\:0438\:043d\:0438\:0441\:0442\:0440\ \:0430\:0442\:043e\:0440\>\""}], "}"}]}]}], "\[IndentingNewLine]", "|>"}]}]}], "\[IndentingNewLine]", "|>"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.822897069111315*^9, 3.822897192550406*^9}, 3.8228973116696043`*^9, {3.822900902633232*^9, 3.822900931828423*^9}, { 3.822901036076373*^9, 3.82290103952642*^9}, 3.823019751684688*^9, { 3.8233474114594517`*^9, 3.823347441633334*^9}, {3.823347768866726*^9, 3.823347875985291*^9}, {3.82334809130849*^9, 3.82334812671134*^9}, { 3.823348164141382*^9, 3.823348164353958*^9}, {3.823348200782267*^9, 3.8233482355573378`*^9}, {3.8233484444443827`*^9, 3.823348453947674*^9}, 3.82340421303487*^9}, CellLabel->"In[102]:=", CellID->485612627], Cell[BoxData[ RowBox[{"Clear", "[", "RandomPretentiousJobTitle", "]"}]], "Input", TaggingRules->{"AttachedInlineCell" -> CellObject[72353]}, CellChangeTimes->{{3.8228971956775846`*^9, 3.82289730573658*^9}, { 3.8228974728142233`*^9, 3.822897520873317*^9}, {3.82289756134433*^9, 3.822897611347546*^9}, {3.822897680425462*^9, 3.822897724782464*^9}, { 3.8228978759286346`*^9, 3.8228979507998543`*^9}, {3.8229009040844812`*^9, 3.822900932793037*^9}, 3.823019751658538*^9}, CellLabel->"In[103]:=", CellID->146526896], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SyntaxInformation", "[", "RandomPretentiousJobTitle", "]"}], "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{"_.", ",", "_.", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8228971956775846`*^9, 3.82289730573658*^9}, { 3.8228974728142233`*^9, 3.822897520873317*^9}, {3.82289756134433*^9, 3.822897611347546*^9}, {3.822897680425462*^9, 3.822897724782464*^9}, { 3.8228978759286346`*^9, 3.8228979507998543`*^9}, {3.822900902607205*^9, 3.822900931806126*^9}, 3.822901115884776*^9, 3.823019751661685*^9, { 3.823347232896982*^9, 3.8233472336937723`*^9}}, CellLabel->"In[104]:=", CellID->173108558], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Options", "[", "RandomPretentiousJobTitle", "]"}], "=", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "3"}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8228971956775846`*^9, 3.82289730573658*^9}, { 3.8228974728142233`*^9, 3.822897520873317*^9}, {3.82289756134433*^9, 3.822897611347546*^9}, {3.822897680425462*^9, 3.822897724782464*^9}, { 3.8228978759286346`*^9, 3.822897949978714*^9}, {3.8229009026136007`*^9, 3.8229009318102407`*^9}, 3.822901116852365*^9, 3.8230197516647387`*^9}, CellLabel->"In[105]:=", CellID->325119434], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "::", "nwords"}], "=", "\"\\""}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.822898060386404*^9, 3.8228981353122883`*^9}, { 3.822900902617165*^9, 3.8229009318136063`*^9}, 3.822901031890709*^9, 3.8230197516677732`*^9}, CellLabel->"In[106]:=", CellID->280068482], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "::", "args"}], "=", "\"\\""}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.82331140709793*^9, 3.823311425008123*^9}, { 3.823311593965003*^9, 3.8233116788932047`*^9}, 3.823336539097149*^9, { 3.823336581064001*^9, 3.823336598665599*^9}, 3.82334894628605*^9}, CellLabel->"In[107]:=", CellID->620150672], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"\"\\"", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "nWords", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nWords", "=", RowBox[{"OptionValue", "[", RowBox[{"RandomPretentiousJobTitle", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"Automatic", ",", "Random", ",", "RandomChoice"}], "}"}], ",", "nWords"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"nWords", "=", RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "nWords"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"RandomPretentiousJobTitle", "::", "nwords"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"nWords", "=", "3"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"StringRiffle", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"Values", "[", RowBox[{"RandomChoice", "/@", RowBox[{ "aRandomPretentiousJobTitleWords", "[", "\"\\"", "]"}]}], "]"}], ",", RowBox[{"-", "nWords"}]}], "]"}], ",", "\"\< \>\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8228971956775846`*^9, 3.82289730573658*^9}, { 3.8228974728142233`*^9, 3.822897520873317*^9}, {3.82289756134433*^9, 3.822897611347546*^9}, {3.822897680425462*^9, 3.822897724782464*^9}, { 3.8228978759286346`*^9, 3.8228980552679033`*^9}, {3.822898115469737*^9, 3.822898164743277*^9}, {3.8228983556815643`*^9, 3.822898402019092*^9}, { 3.82290090262187*^9, 3.822900931820333*^9}, {3.822901032945773*^9, 3.822901043735797*^9}, {3.8229010953874903`*^9, 3.82290111877452*^9}, { 3.82290132433705*^9, 3.822901335608129*^9}, {3.823019751671155*^9, 3.823019751677342*^9}, {3.823347287843328*^9, 3.823347294580996*^9}, { 3.823347457540571*^9, 3.823347465618663*^9}}, CellLabel->"In[108]:=", CellID->39916012], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"\"\\"", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "nWords", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nWords", "=", RowBox[{"OptionValue", "[", RowBox[{"RandomPretentiousJobTitle", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"Automatic", ",", "Random", ",", "RandomChoice"}], "}"}], ",", "nWords"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"nWords", "=", RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "nWords"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"RandomPretentiousJobTitle", "::", "nwords"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"nWords", "=", "3"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"StringRiffle", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], ">", "1"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"#", ",", RowBox[{"-", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "\[LeftDoubleBracket]", RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{ "\"\<\:043d\:0430\>\"", ",", "\"\<\:043f\:043e\>\""}], "}"}], "]"}], ",", RowBox[{"#", "\[LeftDoubleBracket]", RowBox[{"-", "2"}], "\[RightDoubleBracket]"}]}], "}"}]}], "]"}], ",", "#"}], "]"}], "&"}], "@", RowBox[{"Take", "[", RowBox[{ RowBox[{"Values", "[", RowBox[{"RandomChoice", "/@", RowBox[{ "aRandomPretentiousJobTitleWords", "[", "\"\\"", "]"}]}], "]"}], ",", RowBox[{"-", "nWords"}]}], "]"}]}], ",", "\"\< \>\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.823347269053743*^9, 3.8233472728113337`*^9}, { 3.823347525065205*^9, 3.8233475484784107`*^9}, {3.82334758116007*^9, 3.8233476716801453`*^9}, {3.823347981729006*^9, 3.823348017446939*^9}}, CellLabel->"In[109]:=", CellID->761493257], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"\"\\"", ",", "opts"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.823347299384963*^9, 3.823347309284341*^9}, { 3.823347687771237*^9, 3.823347690253907*^9}}, CellLabel->"In[110]:=", CellID->973578333], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"n_Integer", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"\"\\"", ",", "opts"}], "]"}], ",", "n"}], "]"}], "/;", RowBox[{"n", ">", "0"}]}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8228971956775846`*^9, 3.82289730573658*^9}, { 3.8228974728142233`*^9, 3.822897520873317*^9}, {3.82289756134433*^9, 3.822897611347546*^9}, {3.822897680425462*^9, 3.822897724782464*^9}, { 3.8228978759286346`*^9, 3.822897972297831*^9}, {3.8229009026289587`*^9, 3.8229009318244658`*^9}, {3.822901034759741*^9, 3.822901050282963*^9}, { 3.823019751680482*^9, 3.823019751681176*^9}, {3.823347315552042*^9, 3.823347338219913*^9}, {3.823349177994125*^9, 3.82334918231255*^9}}, CellLabel->"In[111]:=", CellID->767555642], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"lang_String", ",", "n_Integer", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"lang", ",", "opts"}], "]"}], ",", "n"}], "]"}], "/;", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "lang"}], "]"}], "&&", RowBox[{"n", ">", "0"}]}]}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8228971956775846`*^9, 3.82289730573658*^9}, { 3.8228974728142233`*^9, 3.822897520873317*^9}, {3.82289756134433*^9, 3.822897611347546*^9}, {3.822897680425462*^9, 3.822897724782464*^9}, { 3.8228978759286346`*^9, 3.822897972297831*^9}, {3.8229009026289587`*^9, 3.8229009318244658`*^9}, {3.822901034759741*^9, 3.822901050282963*^9}, { 3.823019751680482*^9, 3.823019751681176*^9}, 3.823347276140315*^9, { 3.823347344532569*^9, 3.823347378350504*^9}, {3.823349165709446*^9, 3.8233491694765244`*^9}}, CellLabel->"In[112]:=", CellID->401840674], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", "All", "]"}], ":=", "aRandomPretentiousJobTitleWords"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.823349375043837*^9, 3.823349381265785*^9}}, CellLabel->"In[113]:=", CellID->942047211], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPretentiousJobTitle", "[", "___", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"RandomPretentiousJobTitle", "::", "args"}], ",", RowBox[{"StringRiffle", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\"\<\\\"\>\"", "<>", "#", "<>", "\"\<\\\"\>\""}], "&"}], "/@", RowBox[{"Keys", "[", "aRandomPretentiousJobTitleWords", "]"}]}], ",", "\"\<, \>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "$Failed"}], ")"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.823310364118434*^9, 3.823310454861671*^9}, { 3.823311012843512*^9, 3.823311401812689*^9}, 3.823311509004142*^9, { 3.823311689403326*^9, 3.823311698706809*^9}, 3.823311786336111*^9, { 3.823336309261026*^9, 3.823336314190218*^9}, {3.823336412744454*^9, 3.8233364617724524`*^9}, {3.823348667627688*^9, 3.8233486690438843`*^9}, { 3.823348707079371*^9, 3.8233487126615553`*^9}}, CellLabel->"In[114]:=", CellID->696691025] }, Open ]], Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPretentiousJobTitle", "[", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->533408859], Cell["generates a random pretentious job title string.", "UsageDescription", CellID->521986581] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPretentiousJobTitle", "[", StyleBox["n", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->152767235], Cell[TextData[{ "generates ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " random pretentious job title strings." }], "UsageDescription", CellID->710134159] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPretentiousJobTitle", "[", StyleBox["lang", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->214661983], Cell[TextData[{ "generates a random pretentious job title string in the language ", Cell[BoxData[ StyleBox["lang", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->338689776] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{ StyleBox["lang", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->448210574], Cell[TextData[{ "generates ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " random pretentious job title strings in the language ", Cell[BoxData[ StyleBox["lang", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->20481408] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPretentiousJobTitle", "[", StyleBox["All", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->280269440], Cell["\<\ gives an association of associations of languages and job title parts.\ \>", "UsageDescription", CellID->417266629] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Details & Options", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[TextData[{ Cell[BoxData["RandomPretentiousJobTitle"], "InlineFormula", FontFamily->"Source Sans Pro"], " uses three sets of words for the generation of random pretentious job \ titles." }], "Notes", CellTags->"TabNext", CellID->946426472], Cell["By default, three-word job titles are generated.", "Notes", CellID->742721373], Cell["\<\ The option \"NumberOfWords\" can be used to control the number of words in \ the generated job titles.\ \>", "Notes", CellID->358401425], Cell[TextData[{ "The value given to the option \"NumberOfWords\" can be ", Cell[BoxData["1"], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["2"], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["3"], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->680368464] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Generate a random pretentious job title:", "Text", TaggingRules->{}, CellChangeTimes->{{3.822897625826416*^9, 3.822897644219735*^9}, 3.823019837591807*^9, {3.827250667482108*^9, 3.827250668607473*^9}}, CellID->523542670], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "3", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"RandomPretentiousJobTitle", "[", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.8228974576832237`*^9, 3.8228974657091227`*^9}, { 3.822900434988119*^9, 3.822900444638307*^9}, {3.822900902642552*^9, 3.822900931835966*^9}, 3.822901011626863*^9, 3.8230197517506*^9}, CellLabel->"In[1]:=", CellID->742102511], Cell[BoxData["\<\"Dynamic Infrastructure Executive\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.822897466163809*^9, 3.822897489051766*^9}, 3.8228975248137302`*^9, 3.8228976196948633`*^9, {3.822900439253766*^9, 3.82290044495042*^9}, 3.822900914512146*^9, 3.822901017122916*^9, 3.822901055692687*^9, 3.822901121906905*^9, 3.8229012268794813`*^9, 3.8229013401382217`*^9, 3.8230198624064617`*^9, 3.826979108317424*^9}, CellLabel->"Out[2]=", CellID->158669354] }, Open ]], Cell["Generate four random pretentious job titles:", "Text", TaggingRules->{}, CellChangeTimes->{{3.822897625826416*^9, 3.822897659250001*^9}, 3.82289833179735*^9, {3.82290042488267*^9, 3.822900425883005*^9}, { 3.8229006646126957`*^9, 3.8229006653671427`*^9}, 3.823019837629937*^9}, CellID->26070163], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPretentiousJobTitle", "[", "4", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8228974576832237`*^9, 3.8228974657091227`*^9}, { 3.822897660928249*^9, 3.8228976610163937`*^9}, 3.8228983339812*^9, { 3.822900422253263*^9, 3.8229004225428143`*^9}, {3.822900902646606*^9, 3.822900931839448*^9}, 3.822901013078394*^9, 3.8230197517559423`*^9}, CellLabel->"In[3]:=", CellID->368013855], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"International Research Assistant\"\>", ",", "\<\"Regional Program Liason\"\>", ",", "\<\"Interactive Program Assistant\"\>", ",", "\<\"National Impact Planner\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.822897466163809*^9, 3.822897489051766*^9}, 3.8228975248137302`*^9, 3.8228976196948633`*^9, 3.822897661250184*^9, 3.822898334213085*^9, {3.822900422798972*^9, 3.8229004481593*^9}, 3.822900914519957*^9, 3.822901017162469*^9, 3.822901055700913*^9, 3.822901121938428*^9, 3.822901226910245*^9, 3.8229013401452312`*^9, 3.823019862604596*^9, 3.826979108326079*^9}, CellLabel->"Out[3]=", CellID->121205892] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["\<\ Generate a list of random pretentious job titles with different numbers of \ words:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.822898516658606*^9, 3.8228985470907297`*^9}, 3.823019837670466*^9, 3.827250681524974*^9}, CellID->992684540], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "12", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ColumnForm", "@", RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"8", ",", RowBox[{"\"\\"", "\[Rule]", "RandomChoice"}]}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.82289818966304*^9, 3.822898204535201*^9}, { 3.822898338672208*^9, 3.822898341179285*^9}, {3.822898433624179*^9, 3.822898458270829*^9}, {3.822900902650689*^9, 3.8229009318430367`*^9}, 3.822900990769638*^9, 3.823019751766705*^9}, CellLabel->"In[1]:=", CellID->223030971], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"Planner\"\>"}, {"\<\"Corporate Paradigm Producer\"\>"}, {"\<\"Officer\"\>"}, {"\<\"Human Directives Planner\"\>"}, {"\<\"Intranet Specialist\"\>"}, {"\<\"Strategist\"\>"}, {"\<\"Web Associate\"\>"}, {"\<\"District Quality Architect\"\>"} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], ColumnForm[{ "Planner", "Corporate Paradigm Producer", "Officer", "Human Directives Planner", "Intranet Specialist", "Strategist", "Web Associate", "District Quality Architect"}], Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.822898200400765*^9, 3.822898204844961*^9}, { 3.822898341553505*^9, 3.822898360122127*^9}, {3.822898407439481*^9, 3.822898458725898*^9}, 3.822900456899126*^9, 3.822900914568461*^9, 3.822901017215994*^9, 3.82290105574471*^9, 3.8229011219876623`*^9, 3.822901226956553*^9, 3.822901340198214*^9, 3.8230198626413727`*^9, 3.823348301178887*^9, 3.82334949700177*^9, 3.8269791083737097`*^9}, CellLabel->"Out[2]=", CellID->752024651] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Generate random pretentious job titles in Bulgarian:", "Text", TaggingRules->{}, CellChangeTimes->{{3.823347704215225*^9, 3.823347713642634*^9}, { 3.823348380021283*^9, 3.8233484147062683`*^9}}, CellID->687011213], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "33", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ColumnForm", "@", RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"\"\\"", ",", "8", ",", RowBox[{"\"\\"", "\[Rule]", "RandomChoice"}]}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.82289818966304*^9, 3.822898204535201*^9}, { 3.822898338672208*^9, 3.822898341179285*^9}, {3.822898433624179*^9, 3.822898458270829*^9}, {3.822900902650689*^9, 3.8229009318430367`*^9}, 3.822900990769638*^9, 3.823019751766705*^9, {3.8233477149042683`*^9, 3.823347720032296*^9}, {3.8233478594711943`*^9, 3.8233478605710793`*^9}, { 3.823347916184164*^9, 3.823347940808741*^9}, {3.823348357669545*^9, 3.823348358015753*^9}, {3.823349009084093*^9, 3.823349023728917*^9}}, CellLabel->"In[1]:=", CellID->841305914], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"\:041c\:0435\:043d\:0438\:0434\:0436\:044a\:0440 \:043d\:0430 \ \:0418\:0434\:0435\:043d\:0442\:0438\:0447\:043d\:043e\:0441\:0442\"\>"}, {"\<\"\:0418\:0437\:043f\:044a\:043b\:043d\:0438\:0442\:0435\:043b \:043d\ \:0430 \:041a\:0440\:0435\:0430\:0442\:0438\:0432\:043d\:043e\:0441\:0442\"\>\ "}, {"\<\"\:0418\:043d\:0436\:0435\:043d\:0435\:0440\"\>"}, {"\<\"\:0421\:043b\:0443\:0436\:0438\:0442\:0435\:043b \:043d\:0430 \ \:0421\:0438\:0433\:0443\:0440\:043d\:043e\:0441\:0442\"\>"}, {"\<\"\:041c\:0435\:0436\:0434\:0443\:043d\:0430\:0440\:043e\:0434\:0435\ \:043d \:0421\:0442\:0440\:0430\:0442\:0435\:0433 \:043d\:0430 \:0418\:0437\ \:0441\:043b\:0435\:0434\:0432\:0430\:043d\:0438\:044f\"\>"}, {"\<\"\:0414\:0438\:0440\:0435\:043a\:0442\:0435\:043d \:041a\:043e\:043d\ \:0441\:0443\:043b\:0442\:0430\:043d\:0442 \:043d\:0430 \:041a\:0440\:0435\ \:0430\:0442\:0438\:0432\:043d\:043e\:0441\:0442\"\>"}, {"\<\"\:041e\:0431\:043b\:0430\:0441\:0442\:0435\:043d \:0421\:044a\:0442\ \:0440\:0443\:0434\:043d\:0438\:043a \:043f\:043e \:0424\:0443\:043d\:043a\ \:0446\:0438\:043e\:043d\:0430\:043b\:043d\:043e\:0441\:0442\:0438\"\>"}, {"\<\"\:0414\:0438\:0437\:0430\:0439\:043d\:0435\:0440 \:043d\:0430 \ \:041a\:0440\:0435\:0430\:0442\:0438\:0432\:043d\:043e\:0441\:0442\"\>"} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], ColumnForm[{ "\:041c\:0435\:043d\:0438\:0434\:0436\:044a\:0440 \:043d\:0430 \ \:0418\:0434\:0435\:043d\:0442\:0438\:0447\:043d\:043e\:0441\:0442", "\:0418\:0437\:043f\:044a\:043b\:043d\:0438\:0442\:0435\:043b \ \:043d\:0430 \:041a\:0440\:0435\:0430\:0442\:0438\:0432\:043d\:043e\:0441\ \:0442", "\:0418\:043d\:0436\:0435\:043d\:0435\:0440", "\:0421\:043b\:0443\:0436\:0438\:0442\:0435\:043b \:043d\:0430 \:0421\ \:0438\:0433\:0443\:0440\:043d\:043e\:0441\:0442", "\:041c\:0435\:0436\:0434\:0443\:043d\:0430\:0440\:043e\:0434\:0435\:043d \ \:0421\:0442\:0440\:0430\:0442\:0435\:0433 \:043d\:0430 \:0418\:0437\:0441\ \:043b\:0435\:0434\:0432\:0430\:043d\:0438\:044f", "\:0414\:0438\:0440\:0435\:043a\:0442\:0435\:043d \ \:041a\:043e\:043d\:0441\:0443\:043b\:0442\:0430\:043d\:0442 \:043d\:0430 \ \:041a\:0440\:0435\:0430\:0442\:0438\:0432\:043d\:043e\:0441\:0442", "\:041e\:0431\:043b\:0430\:0441\:0442\:0435\:043d \ \:0421\:044a\:0442\:0440\:0443\:0434\:043d\:0438\:043a \:043f\:043e \:0424\ \:0443\:043d\:043a\:0446\:0438\:043e\:043d\:0430\:043b\:043d\:043e\:0441\:0442\ \:0438", "\:0414\:0438\:0437\:0430\:0439\:043d\:0435\:0440 \:043d\:0430 \ \:041a\:0440\:0435\:0430\:0442\:0438\:0432\:043d\:043e\:0441\:0442"}], Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8233477204161053`*^9, {3.8233478574092607`*^9, 3.8233479592040854`*^9}, { 3.823348023539886*^9, 3.8233480607595873`*^9}, {3.823348138823103*^9, 3.823348173981982*^9}, {3.8233482737225657`*^9, 3.823348301191741*^9}, 3.823348358210059*^9, {3.823348460648717*^9, 3.823348472992342*^9}, { 3.823349009444023*^9, 3.8233490240879507`*^9}, 3.823349497061552*^9, 3.8269791083851957`*^9}, CellLabel->"Out[2]=", CellID->94593036] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ "All job title parts per language can be obtained with the argument ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["All", "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/All", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.823316383978466*^9, 3.8233164940425653`*^9}, { 3.823349469431883*^9, 3.823349485070616*^9}}, CellID->185986081], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"Length", ",", RowBox[{"RandomPretentiousJobTitle", "[", "All", "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8233164168516293`*^9, 3.823316420125635*^9}, { 3.823349491363508*^9, 3.823349513928904*^9}}, CellLabel->"In[1]:=", CellID->42142014], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"English\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"uno\"\>", "\[Rule]", "24"}], ",", RowBox[{"\<\"zwei\"\>", "\[Rule]", "39"}], ",", RowBox[{"\<\"trois\"\>", "\[Rule]", "26"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"Bulgarian\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"uno\"\>", "\[Rule]", "23"}], ",", RowBox[{"\<\"zwei\"\>", "\[Rule]", "39"}], ",", RowBox[{"\<\"trois\"\>", "\[Rule]", "28"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.823316420455505*^9, 3.823336616744069*^9, 3.8233379423293324`*^9, 3.8233382335381813`*^9, {3.823349491927363*^9, 3.823349514319006*^9}, 3.826979108410246*^9}, CellLabel->"Out[1]=", CellID->648906085] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell[CellGroupData[{ Cell["NumberOfWords", "Subsubsection", TaggingRules->{}, CellChangeTimes->{3.822898477634371*^9}, CellID->481518551], Cell["\<\ The option \"NumberOfWords\" can be used to control the number of words in \ the generated job title:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{ 3.822898485147974*^9, {3.8228987643447247`*^9, 3.822898831755034*^9}, { 3.8229007047890787`*^9, 3.822900711786415*^9}, 3.823626675853936*^9}, CellID->319343145], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "16", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"RandomPretentiousJobTitle", "[", RowBox[{"\"\\"", "\[Rule]", "#"}], "]"}]}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "Automatic"}], "}"}]}], "]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"\"\