Revision as of 20:26, 3 December 2021 (view source) rosettacode>Johndevou (→‎{{header\|Prolog}}) ← Older edit		Revision as of 20:28, 3 December 2021 (view source) rosettacode>Johndevou (→‎{{header\|Prolog}}) Newer edit →
Line 293: task:- L = [[], [1,2,3,4,5], [1,3,5,7,9], [2,4,6,8,10], [2,3,5,7], [8]], forall((member(A,L), member(B,L)), (~~findall(X, (member(X,A), member(X,B)), I), length(I,N),~~ findall(X, (member(X,BA), ~~not(~~member(X,A)B)), ~~T), append(A,T,U~~I), length(UI,MN), j findall(NX,M (member(X,JB), ~~show~~not(~~["A = "~~member(X,A)))," T), ~~B = "~~append(A,BT,"U), ~~J = "~~length(U,J]M), ~~nl)).~~ j(N,M,J), show(["A = ",A,", B = ",B,", J = ",J]), nl)). </lang> {{out}}

Jaccard index: Difference between revisions

Jaccard index (view source)