このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/144
#  [1] 授業単元:C・プログラミング 
#  [2] 問題文(含コード&リンク): 
#  深さ優先探索をリスト表現で表すプログラムを作成せよ。 
#  制限は特にないです。 
#  

出会うまでリストを手繰る(_求めるもの,[_求めるもの|R]) :-
        write_formatted('!%t!\n',[_求めるもの]).
出会うまでリストを手繰る(_求めるもの,[A|R]) :-
        list(A),
        出会うまでリストを手繰る(_求めるもの,A).
出会うまでリストを手繰る(_求めるもの,[_|R]) :-
        list(A),
        出会うまでリストを手繰る(_求めるもの,R).
出会うまでリストを手繰る(_求めるもの,[A|R]) :-
        \+(list(A)),
        write_formatted('%t-',[A]),
        出会うまでリストを手繰る(_求めるもの,R).