このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/408
#  課題3、文字列を入力すると、文字列中の 
#  a の個数を数えるプログラムを書け。 
#   
#     実行例 
#   
#     文字を入力して下さい 
#     Toshidaigaku 
#     aが2個含まれています 
#
#  [5] その他の制限:  
#  #include <stdio.h> 
#     int main() 
#  スタートでお願いします。 


program :-
    write('文字を入力して下さい\n'),
    get_line(_文字列),
    '文字列を入力すると、文字列中の a の個数を数える'(_文字列,N),
    write_formatted('aが%t個含まれています\n',[N]).

'文字列を入力すると、文字列中の a の個数を数える'(_文字列,N) :-
    findall(_,sub_atom(_文字列,_,1,_,a),L),
    length(L,N).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

string型の引数を二つ与えて大文字小文字を区別せずそれが同じものかどうかを判定(_ 文字列1,_文字列2,同じもの) :- 
    to_lower(_文字列1,_小文字化された文字列), 
    to_lower(_文字列2,_小文字化された文字列),!. 
string型の引数を二つ与えて大文字小文字を区別せずそれが同じものかどうかを判定(_,_,同じものではない).