このディレクトリの索引


重複要素を削る(_ならび,_重複要素を削ったならび) :-
        findall(_要素,(
                    append(L0,[_要素|R],_ならび),
                    \+(member(_要素,L0))),
                _重複要素を削ったならび).


重複要素を削って表示する(_ならび) :-
        forall((
                append(L0,[要素|_],_ならび),
                \+(member(要素,L0))),
            writef('%t ',[_要素])).