- 631 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 16:50:26 ]
- >>630 (>>629) 訂正
% Prolog 述語 母音の出現数をカウントする の第一引数が落ちていました。
キーボードから英文を１文字ずつ入力し母音の出現数をカウントする。その数だけアスタリスクを表示する :-
キーボードから英文を１文字ずつ入力し(Chars),
母音の出現数をカウントする(Chars,L),
その数だけアスタリスクを表示する(L).
キーボードから英文を１文字ずつ入力し(Chars) :-
get_chars(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]).
