6 lines
198 B
Text
6 lines
198 B
Text
:- pred noun(string).
|
|
:- mode noun(out) is multi. % provide any one noun.
|
|
:- mode noun(in) is semidet. % fail if given string isn't a known noun.
|
|
noun("frog").
|
|
noun("elephant").
|
|
noun("thing").
|