Jaccard index: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 296: | Line 296: | ||
findall(X, (member(X,A), member(X,B)), I), length(I,N), |
findall(X, (member(X,A), member(X,B)), I), length(I,N), |
||
findall(X, (member(X,B), not(member(X,A))), T), append(A,T,U), length(U,M), |
findall(X, (member(X,B), not(member(X,A))), T), append(A,T,U), length(U,M), |
||
j(N,M,J), show(["A = ",A,", B = ",B", J = ",J]), nl, fail; true. |
j(N,M,J), show(["A = ",A,", B = ",B,", J = ",J]), nl, fail; true. |
||
</lang> |
</lang> |
||
{{out}} |
{{out}} |