Anonymous user
Jaccard index: Difference between revisions
→{{header|Prolog}}
No edit summary |
|||
Line 296:
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),
j(N,M,J), show(["A = ",A,", B = ",B,", J = ",J]), nl, fail; true.
</lang>
{{out}}
| |||