このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/580
#  [1] 授業単元:プログラミング演習 
#  [2] 問題文(含コード&リンク) 
#  引数をとして、複数の文字列を格納した配列、 
#  その文字列数、ある文字列aを与え、 
#  aが複数の文字列を格納した配列中に見つかれば1を出力し、 
#  見つからなければ0を出力する関数find_string()をつくれ 
#    

'引数をとして、複数の文字列を格納した配列、その文字列数、ある文字列aを与え、aが複数の文字列を格納した配列中に見つかれば1を出力し、見つからなければ0を出力する'(_文字列ならび,_文字列数,_文字列a) :-
        append(_,[_文字列a|_],_文字列ならび]),
        write_formatted('%t\n',[1]),!.
'引数をとして、複数の文字列を格納した配列、その文字列数、ある文字列aを与え、aが複数の文字列を格納した配列中に見つかれば1を出力し、見つからなければ0を出力する'(_文字列ならび) :-
        write_formatted('%t\n',[0]).