このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1320365280/147
#  1] 授業単元: Cプロ 
#  [2] 問題文(含コード&リンク):文字列st の中に含まれる文字ch の個数(含まれて 
#  いなければ0 とする)を返す関数 
#  int str_chnum(const char st[], int ch) 
#  を作成せよ. 
#  以下の実行例のように,関数の動作を確認 
#  できるmain 関数も作成して完成させよ 
#  【実行例】文字列を入力してください:Koukka 
#  検索する文字を入力してください:k 
#  その文字は2 個含まれています。 
#  (注意)】scanf で文字列を入力させた後にgetchar 関 
#  数で文字を入力させたい場合,getchar で文字を入力 
#  させる前に 
#  scanf("%*c"); 
#  などとして,バッファに残った改行コードを読み捨て 
#  ておく必要がある. 
#   
#  

'文字列st の中に含まれる文字ch の個数を表示しなさい' :-
        文字列の入力(_文字列),
        検索文字の入力(_検索する文字),
        '文字列st の中に含まれる文字ch の個数(含まれていなければ0 とする)を返す'(_文字列,_検索する文字,_個数),
        writef('文字列 %t に文字 %t は %t個含まれています。\n',[_文字列,_検索する文字,_含まれる個数]).

文字列の入力(_文字列) :-
        write('文字列を入力しなさい : '),
        get_line(_文字列).

検索文字の入力(_検索する文字) :-
        write('検索する文字を入力しなさい : '),
        get_line(_文字列),
        sub_atom(_文字列,0,1,_,_検索する文字).

'文字列の中に含まれる文字の個数(含まれていなければ0 とする)を返す'(_文字列,_検索する文字,_含まれる個数) :-
        count(sub_atom(_文字列,_1,_,_検索する文字),_含まれる個数).