このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1279286575/74
#  【質問テンプレ】 
#  [1] 授業単元:情報処理課題 
#  [2] 問題文(含コード&リンク):英語の文章で構成されるテキストファイルに対して、その中に含まれる総文字数と異なる文字ごとの出現回数とを数え上げよ。 
#  [3.3] 言語:C 
#  [4] 期限:2010年07月19日00:00まで 
#  [5] その他の制限:Xcodeを使用しています。読み込むファイルは"/Users/user/Desktop/data.txt"で。 
#   
#  似たようなプログラムを作った時は「数列を入力し総文字数と数字ごとに出現回数とを数え上げグラフで表示」というような課題で 
#  数字だったので0〜9までを表示することが簡単に出来ましたがアルファベットなのでa-zをどう表示したものか 
#  またstrlenだと半角空白も数えてしまうので総"文字"数とずれてくるのではないかと悩んでいます。 
#  よろしくお願いします。 
# 
# 

英語の文章で構成されるテキストファイルに対して、その中に含まれる総文字数と異なる文字ごとの出現回数とを数え上げる(_総文字数,_文字ごとの出現度数ならび) :-
        get_chars('/Users/user/Desktop/data.txt',Chars),
        length(Chars,_総文字数),
        findsetof(C,member(C,Chars),L1),
        findall([C,_出現度数],(member(C,L1),count(member(C,Chars),_出現度数)),_文字ごとの出現度数ならび).

findsetof(A,B,L) :-
        findall(A,B,C),
        setof(A,member(A,C),L).