いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

366:デフォルトの名無しさん
09/07/06 06:37:37
>>365
一番基本的なものは以下のようなものでしょう。

到達可能(A,B,Log) :-
到達可能(A,B,[A],Log).

到達可能(A,B,L1,Log) :-
　　arc(A,B),
　　\+ member(B,L1),
　　append(L1,[B],Log).
到達可能(A,B,L1,L) :-
　　arc(A,C),
　　\+ member(C,L1),
　　append(L1,[C],L2),
　　到達可能(C,B,L2,L).

次ページ

続きを表示

1を表示