PrologでまったりPart 2
■ このスレッドは過去ログ倉庫に格納されています
0561デフォルトの名無しさん
2006/05/27(土) 04:16:09u([P|R],L) :- u(R,L2),a_u(P,L2,L).
a_u(P,[],[[P]]) :- !.
a_u(P,[[Q|R1]|R2],[[P,Q|R1]|R2]) :- functor(P,F,1),functor(Q,F,1),!.
a_u(P,[L|R1],[L|R2]) :- a_u(P,R1,R2).
だと、思ったのだが。
■ このスレッドは過去ログ倉庫に格納されています