>>629
% Prolog

キーボードから英文を１文字ずつ入力し母音の出現数をカウントする。その数だけアスタリスクを表示する :-
　　キーボードから英文を１文字ずつ入力し(Chars),
　　母音の出現数をカウントする(Chars,L),
　　その数だけアスタリスクを表示する(L).

キーボードから英文を１文字ずつ入力し(Chars) :-
　　get_chars(Chars).

母音の出現数をカウントする(L) :-
　　findall('*',(member(A,Chars),member(A,['A','E','I','O','U',a,e,i,o,u])),L).

その数だけアスタリスクを表示する(L) :-
　　concat_atom(L,S),
　　write_formatted('%t\n',[S]).