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 (13 sloc) 383 Bytes
/*************************************************************
* h12 anything.suggest
* fillin any blank facet of any concept
* Takes forever.
*/
h12(_) :-
time(T),
T > 500,
allconcepts(C),fillable_slots(S),
member(X,C),member(Y,S),get(X,Y,[]),
addtoagenda(fillin,X,Y,100,'no value currently defined'),
fail.
h12(_).