このディレクトリの索引

ハミング距離(_a,_b,_ハミング距離) :-
'_aと_bの桁数が同じ'(_a,_b),
'_aと_bの同じ位置で値が異なる個数'(_a,_b,_ハミング距離).

'_aと_bの桁数が同じ'(_a,_b) :-
length(_a,_n),
length(_b,_n).

'_aと_bの同じ位置で値が異なる個数'(_a,_b,_ハミング距離) :-
度数((
nth1(_k,_a,A),
nth1(_k,_b,B),
\+(A = B)),_ハミング距離).

度数(P,_度数) :-
findall(1,P,L),
length(L,_度数).