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

'引数をとして、複数の文字列を格納した配列、その文字列数、ある文字列aを与え、aが複数の文字列を格納した配列中に見つかれば1を返し、見つからなければ0を返す'(_文字列ならび,_文字列の数,_ある文字列_a,_あれば1見つからなければ0) :-
        length(_文字列ならび,_文字列の数),
        'ある文字列aを与え、aが複数の文字列を格納した配列中に見つかれば1を返し、見つからなければ0を返す'(_文字列ならび,_文字列の数,_ある文字列_a,_あれば1見つからなければ0).

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