Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (5 sloc) 226 Bytes
/*If C1 is a genl of C2 if C2 is a fenl of C3 ... if Ck is a genl of Cn then
merge and increase the value of the highest value to begin with*/
/* h114_it is in h114a.pl
*/
h114(C):- assertz(counter(0)),h114_it(C,C,0,[]).