- 68 名前：デフォルトの名無しさん mailto:sage [2009/12/25(金) 12:15:11 ]
- >>65
% Prolog
指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
指定された文字列(_指定された文字列),
split(_指定された文字列,[',','"'],_文字ならびのならび),
文字列を長さと共に表示する(_文字ならびのならび).
文字列を長さと共に表示する([]) :- !.
文字列を長さと共に表示する([Chars|R]) :-
length(Chars,_長さ),
atom_chars(_表示文字列,Chars),
write_formatted('%t:%t\n',[_長さ,_表示文字列]),
文字列を長さと共に表示する(R).
