Paste number 34669: pl

Paste number 34669: pl
Pasted by: rkz
1 year, 11 months ago
None
Paste contents:
Raw Source | XML | Display As
lookup_synset(POS, Word, Synonyms, Gloss, Hyp):-
        % look up the synsetID for the given word
        s(ID, _, Word, POS, _, _),
        % find all words in a synset
        findall(Wi, s(ID, _, Wi, POS,_,_), Synonyms),
        % get the gloss of the synset
        g(ID, Gloss),
        {
        hyp(ID, HypID),
        s(HypID,_,Hyp,_,_,_);
        Hyp = []
        }.

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.