10/01/29 04:46:44
>>482
% Prolog
名簿を呼びだし、名前で検索しその結果を新しいファイルに保存する(_名簿ファイル,_出力ファイル,_検索する名前) :-
名簿を呼び出し(_名簿ファイル,L),
名前で検索しその結果を新しいファイルに保存する(_出力ファイル,L,_名前),!.
名簿を呼び出し(_名簿ファイル,L) :-
get_split_lines(_名簿ファイル,[' ',','],L),!.
名前で検索しその結果を新しいファイルに保存する(_出力ファイル,L,_名前) :-
tell(_出力ファイル),
名前で検索しその結果を新しいファイルに保存する(L,_名前),
told.
名前で検索しその結果を新しいファイルに保存する([],_) :- !.
名前で検索しその結果を新しいファイルに保存する([[_名字,_名前,_住所,_電話番号]|R],_名前) :-
write_formatted('%t,%t,%t,%t\n',[_名字,_名前,_住所,_電話番号]),
名前で検索しその結果を新しいファイルに保存する(R,_名前),!.
名前で検索しその結果を新しいファイルに保存する([_|R],_名前) :-
名前で検索しその結果を新しいファイルに保存する(R,_名前),!.