このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/205
#  [1] 授業単元:楽しいC言語(ファイルからの読み込み) 
#  [2] 問題文(含コード&リンク):以下の実行例のように,キーボードからファイル名を 
#  読み込み,そのファイル中の数字文字の個数をカウント 
#  して画面に表示するプログラムを作成せよ.(’0’〜’9’ 
#  のそれぞれの個数を別々に数える必要はない.) 
#   
#  【実行結果例】 
#   % cat intro.txt 
#  Hello! 
#  I’m Taro .MASAKI 
#  I was born in Tokyo in 1991. 
#   ./intro 
#   ファイル名:intro.txt 
#  ファイル中の数字文字の個数:4 
#  

'キーボードからファイル名を読み込み,そのファイル中の数字文字の個数をカウントして画面に表示する' :-
        write('ファイル名 : '),
        get_line(_ファイル名),
        get_chars(_ファイル名,Chars),
        count((member(A,Chars),数字(A)),_数字の度数).
        writef('ファイル中の数字文字の個数: %t\n',[_数字の度数]).

数字(A) :-
        char_code(A,Code),
        Code >= 48,
        Code =< 57.

count(P,N) :-
        findall(1,P,L),
        length(L,N).