This repository has been archived by the owner. It is now read-only.
Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (14 sloc) 490 Bytes
/***********************************************************
* h44 anyconcept.examples.suggest
* If very few examples of X are found, then add
* generalize X, since a less restrictive concept may
* be more interesting.
*/
h44(C) :-
exs(C,Exs),
length(Exs,Num),
Num > 5,
get(C,[worth],[W1]),
W is W1 * 10 / 9,
addtoagenda(fillin,C,[genl],W,
'Xs are quite rare, less restrictive concept is more int').