10/01/20 22:58:22
>>336
% Prolog リストの変形では得られない点は同じ。
与えられた文字リスト中で複数回現れる文字を残して得られるリストを作成する(_文字リスト,_複数回現れる文字を残して得られるリスト) :-
multiple(_文字リスト,_複数回現れる文字を残して得られるリスト).
multiple(_文字リスト,_複数回現れる文字を残して得られるリスト) :-
findall(_文字,(append(L1,[_文字|L2],_文字リスト),\+(member(_文字,L1)),member(_文字,L2)),_複数回現れる文字を残して得られるリスト).