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" ?
>
>
>