このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1296387672/564
#  http://ime.nu/codepad.org/jP4CQKdZ 
#  リストの生成、検索、削除が出来るようにしてもらえないでしょうか? 
# 
# 


リストの生成(end,[]) :- !.
リストの生成(gen,L) :-
        write('name,tel : '),
        get_line(Line),
        リストの生成(Line,L),!.
リストの生成(Line,[[_name,_tel]|R]) :-
        split(Line,[','],[_name,_tel]),
        get_line(Line),
        リストの生成(Line2,R).

リストから削除(L1,L2) :-
        write('削除キー : '),
        get_line(_削除キー),
        write('削除キー値 : '),
        get_line(_削除キー値),
        リスト構造(_削除キー,_削除値,_削除要素),
        リストから削除(_削除要素,L1,L2).

リストから削除(_,[],[]) :- !.
リストから削除(_削除要素,[_削除要素|R1],L2) :-
        リストから削除(_削除要素,R1,L2),!.
リストから削除(_削除要素,[A|R1],[A|R2]) :-
        リストから削除(_削除要素,R1,R2).

リスト構造(name,_name,[_name,_]).
リスト構造(tel,_tel,[_,_tel]).

リスト表示(L) :-
        findall('%t',リスト構造(_,_),L1),
        concat_atom(L1,',',_パターン),
        リスト表示(_パターン,L).

リスト表示(_パターン,[L|R]) :-
        write_formatted('%t\n',L),
        リスト表示(_パターン,R).