Jaccard index: Difference between revisions

Content added Content deleted

Inline

@@ Line 293: / Line 293: @@
 task:- L = [[], [1,2,3,4,5], [1,3,5,7,9], [2,4,6,8,10], [2,3,5,7], [8]],
-    member(A,L), member(B,L),
+    forall((member(A,L), member(B,L)), (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),
-    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)).
 </lang>
 {{out}}