このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/5
#  [1] 授業単元: C言語 
#  [2] 問題文(含コード&リンク):  
#  以下の実行結果になるようおねがいします 
#   
#  文字列を入力してください 
#  adlkjgeiakdalf 
#   
#  確認したい文字を入力してください 
#  a 
#   
#  文字(a)の数は3文字です 
#   

入力された文字列の中にある文字が何個含まれるか :-
        文字列を入力してください(_文字列),
        確認したい文字を入力してください(_文字),
        count(sub_atom(_文字列,_,1,_,_文字),_何個),
        整数を全角文字表現に変換する(_何個,_何個の全角文字表現),
        write_formatted('文字(%t)の数は%t文字です\n',[_何個,_回数の全角文字表現]).        

文字列を入力してください(_文字列) :-
        write('文字列を入力してください\n'),
        get_line(_文字列).

確認したい文字を入力してください(_文字) :-
        write('確認したい文字を入力してください\n'),
        get_line(_文字列),
        sub_atom(_文字列,0,1,_,_文字),!.

整数を全角文字表現に変換する(_整数,_整数の全角文字表現) :-
        number_chars(_整数,Chars),
        findall(_全角文字,(
                    member(A,Chars),
                    list_nth(N,['1','2','3','4','5','6','7','8','9','0'],A),
                    list_nth(N,['1','2','3','4','5','6','7','8','9','0'],_全角文字)),
                L),
        concat_atom(L,_整数の全角表現).