(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 9319, 258] NotebookOptionsPosition[ 7839, 215] NotebookOutlinePosition[ 8163, 231] CellTagsIndexPosition[ 8120, 228] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Check if a word is a adjective:", "Text", CellChangeTimes->{{3.748278503950818*^9, 3.7482785105678177`*^9}, { 3.7482789336008177`*^9, 3.7482789346668177`*^9}, 3.748279449035771*^9}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"AdjectiveQ\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["AdjectiveQ"], BoxID -> "AdjectiveQ"], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.748278512853818*^9, 3.7482785354588175`*^9}, 3.748278893630818*^9, {3.748278960671818*^9, 3.7482789660208178`*^9}, 3.7482791481815653`*^9, {3.7482794678646536`*^9, 3.7482794687707443`*^9}}, CellLabel->"In[3]:=", CellID->7099978], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.748278521947818*^9, 3.7482785383108177`*^9}, 3.748278967664818*^9, 3.748279474123279*^9}, CellLabel->"Out[3]=", CellID->118031267] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"AdjectiveQ\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["AdjectiveQ"], BoxID -> "AdjectiveQ"], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.748278512853818*^9, 3.748278553554818*^9}, 3.748278894181818*^9, {3.748278970254818*^9, 3.748278976875818*^9}, 3.7482791481855664`*^9, {3.748279478299697*^9, 3.748279479678835*^9}}, CellLabel->"In[4]:=", CellID->659027975], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.748278521947818*^9, 3.7482785539918175`*^9}, 3.7482789774488177`*^9, 3.748279480043871*^9}, CellLabel->"Out[4]=", CellID->47493682] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->20767984], Cell["Find how many words in an article can be used as adjectives:", "Text", CellChangeTimes->{{3.7482786161528177`*^9, 3.7482786476498175`*^9}, { 3.748278945604818*^9, 3.7482789462418175`*^9}, 3.7482794497748446`*^9}, CellID->124684369], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Counts", "[", RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"AdjectiveQ\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["AdjectiveQ"], BoxID -> "AdjectiveQ"], "/@", RowBox[{"TextWords", "[", RowBox[{"WikipediaData", "[", "\"\\"", "]"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.748278582785818*^9, 3.7482786107248178`*^9}, { 3.7482788951548176`*^9, 3.748278896413818*^9}, {3.748279148189567*^9, 3.7482791481905675`*^9}}, CellLabel->"In[5]:=", CellID->50799260], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"False", "\[Rule]", "2068"}], ",", RowBox[{"True", "\[Rule]", "720"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.748278723124818*^9, 3.7482789891478176`*^9, 3.74827949373124*^9}, CellLabel->"Out[5]=", CellID->103358214] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"e5cc1572-4334-4876-8da0-7670ba9898a3", CellID->285421464], Cell[639, 25, 211, 3, 70, "Text",ExpressionUUID->"88668bd5-5da6-4cbd-b9ea-c22fac52f2bd", CellID->221583938], Cell[CellGroupData[{ Cell[875, 32, 1907, 44, 70, "Input",ExpressionUUID->"6020d6ce-bf67-42ca-b1a4-0993c603e002", CellID->7099978], Cell[2785, 78, 190, 4, 70, "Output",ExpressionUUID->"66dfd182-0e5f-4cb6-be20-47c0552a3dfe", CellID->118031267] }, Open ]], Cell[CellGroupData[{ Cell[3012, 87, 1905, 44, 70, "Input",ExpressionUUID->"009e08a5-6502-482e-a385-a930581c396c", CellID->659027975], Cell[4920, 133, 192, 4, 70, "Output",ExpressionUUID->"4932b825-768c-435f-b971-953b5d07bc70", CellID->47493682] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5161, 143, 53, 1, 70, "Subsection",ExpressionUUID->"9541696f-5610-4956-9f33-29f53ec10b93", CellID->20767984], Cell[5217, 146, 242, 3, 70, "Text",ExpressionUUID->"11dcdd5b-ccb0-4295-aa49-23d5c553831b", CellID->124684369], Cell[CellGroupData[{ Cell[5484, 153, 2011, 48, 70, "Input",ExpressionUUID->"2f90d16c-3949-4697-aaa7-d689579a9cf0", CellID->50799260], Cell[7498, 203, 313, 8, 70, "Output",ExpressionUUID->"e91e787d-e37e-4740-9eab-3f34a1369bc0", CellID->103358214] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)