このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/602
#  [1] 授業単元:配列  
#  [2] 問題文(含コード&リンク): 文字列を入力し、その文字列に含まれる英字、数字、その他の文字の数を出力せよ。 
#  

'文字列を入力し、その文字列に含まれる英字、数字、その他の文字の数を出力せよ。' :-
        get_line(_文字列),
        findsum([A,B,C],(
                     sub_atom(_文字列,_,1,_,_文字),
                     文字種判定(_文字,A,B,C)),
                [_英字の数,_数字の数,_その他の文字の数]),
        writef('英字の数は %t,数字の数は %t,その他の文字の数は %t\n',[_英字の数,_数字の数,_その他の文字の数]).

文字種判定(_文字,1,0,0) :-
        英字(_文字),!.
文字種判定(_文字,0,1,0) :-
        数字(_文字),!.
文字種判定(_文字,0,0,1).



%  findsum/3
%  英字/1
%  数字/1