Re: Accessing Dictionary definitions
- To: mathgroup at smc.vnet.net
- Subject: [mg100130] Re: Accessing Dictionary definitions
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 26 May 2009 05:07:13 -0400 (EDT)
- Organization: Uni Leipzig
- References: <gvdr7e$730$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi, getKind[word_] := {word, Last /@ First /@ WordData[word, "Definitions"]} selectKind[{w_, lst_List}, what_] := MemberQ[lst, what] and (If[selectKind[getKind[#], "VarietyMeat"], #, {}] & /@ WordData[]) /. {} :> Sequence[] Regards Jens Lincoln sievable wrote: > Can anyone guide whether Mathematica, can return words that have > common elements in their Definitions ? For example, WordData["liver", > "Definitions"] shows" liver" has been given a definition that includes > {"liver", "Noun", "VarietyMeat"}. Is there a way to, for example, > return all words that are "VarietyMeat" ? > > >