10/02/07 16:55:48
>>629
% Prolog 母音出現数をカウントする 以下は、この定義の方が自然かもしれない。
% でも、私はアスタリスクの表示でカウントしているとする>>631の方が好きだ。
キーボードから英文を１文字ずつ入力し母音の出現数をカウントする。その数だけアスタリスクを表示する :-
キーボードから英文を１文字ずつ入力し(Chars),
母音の出現数をカウントする(Chars,_カウント),
その数だけアスタリスクを表示する(_カウント).
キーボードから英文を１文字ずつ入力し(Chars) :-
get_chars(Chars).
母音の出現数をカウントする(Chars,_カウント) :-
count((member(A,Chars),member(A,['A','E','I','O','U',a,e,i,o,u])),_カウント).
その数だけアスタリスクを表示する(_カウント) :-
length(L,_カウント),
all(L,'*'),
concat_atom(L,S),
write_formatted('%t\n',[S]).