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

'文字列を入力し、その文字列に含まれる英字、数字、その他の文字の数を出力せよ。' :-
        get_line(_文字列),
        'その文字列に含まれる英字、数字、その他の文字の数を'(_文字列,_英字の数,_数字の数,_その他の文字の数),
        writef('英字の数 %t, 数字の数 %t, その他の文字の数 %t\n',[_英字の数,_数字の数,_その他の文字の数]).

'その文字列に含まれる英字、数字、その他の文字の数を'(_文字列,_英字の数,_数字の数,_その他の文字の数) :-
        count((sub_atom(_文字列,_,1,_,_文字),英字(_文字)),_英字の数),
        count((sub_atom(_文字列,_,1,_,_文字),数字(_文字)),_数字の数),
        count((sub_atom(_文字列,_,1,_,_文字),\+(英字(_文字)),\+(数字(_文字))),_その他の文字の数).


%  count/2