このディレクトリの索引

調和平均(L,_調和平均) :-
        length(L,_要素数),
        findsum(V,(
                    member(V,L),
                    W is 1 / V)),
                Sum1),
        _調和平均 is _要素数 / Sum1.